Няколко задачи за паскал!

[mencho]

Здравейте!Много ще съм благодарен,ако някой ми помогне със следните задачи!
(малко съм нагъл понеже са доста задачки,но се надявам поне някои да ми кажете как се решават).Нищо не чаткам от програмата,а трябва да ме оформят - 4х4 задачите си приличат !

зад.1:Напиши програма на езика Паскал,която да намира сумата на числата от 1 до N,където N e преварително въведено число от клавиатурата естествно число.

зад.2Напиши програма на езика Паскал,която да намира сумата на четните числата от 1 до N,където N e преварително въведено число от клавиатурата естествно число.

зад.3Напиши програма на езика Паскал,която да намира сумата на нечетните числата от 1 до N,където N e преварително въведено число от клавиатурата естествно число.

зад.4Напиши програма на езика Паскал,която отпечатва квадратите на числата от 1 до N,където N e преварително въведено число от клавиатурата естествно число.

зад.5Напиши програма на езика Паскал,която по зададена дължина на страна на равностранен триъгилник намира неговото лице.

зад.6Напиши програма на езика Паскал,която изчислява лицето на кръг по зададен радиус R.

зад.7Напиши програма на езика Паскал,коятo по зададени дължини на страните на триъгълник намира неговото лице.

зад.8Напиши програма на езика Паскал,която изчислява лицето на квадрат със страна а.

[Реклама]

[Vladi_mnt]

Еми как да ти кажем как се решават? Аз ти казвам, че първата се решава като пуснеш едно цикълче да завърти числата от 1 до N, като всяка стойност на управляващата цикъла променлива се прибавя към променлива S с начална стойност 0 и S ще ти бъде сумата на числата от 1 до N... (в замяна на помощта ми искам само да ми кажеш на колко години си - просто за сведение: дали си студент или не и ще те помоля д ане лъжеш)

[Vladi_mnt]

Втората е като 1вата, само че цикълът е от 1 до (N div 2) и после това число ще го умножаваш x2 и прибавяш към същата променлива S

[Vladi_mnt]

Бтв, за първата може и по-лесно - използвайки формулата

[pavelludiq]

[mencho]

благодарности
На 17 съм...11 клас,за първа година уча Паскал,но доста пропуснах от материала!

[Vladi_mnt]

ОКЕЙ, ще ти ги напиша, но ще ми дадеш репутация... ок?

[Vladi_mnt]

Цъкаш на плюсчето под аватара ми:

[Vladi_mnt]

даваш ОК

[Vladi_mnt]

и после има едно:

[Vladi_mnt]

Кликнете HERE за да дадете точки.

[Vladi_mnt]

Цъкаш на here и цялата тази процедура я повтаряш 8 пъти - за задача по 1 път

[Реклама]

[Vladi_mnt]

Само дето след като си гласувал за мен трябва да гласуваш за някой друг и чак след това за мен - избираш си произволен човек от този форум

[Vladi_mnt]

Даваш му и на него реп и после пак на мен

[Vladi_mnt]

Звучи по просто от задача на Паскал, нали?

[Vladi_mnt]

Задача 1:


program Zad;
var N, S: Integer;
begin
s;=0;
write('N='); readln(N);
s:=n*(n+1)/2;
write(s:5);
end.

[Vladi_mnt]

Задача 2:

program Zad;
var N, i, S: Integer;
begin
s:=0;
write('N='); readln(N);
for i:=0 to (n div 2) do
s:=s+2*i;
write(s:5);
end.

[Vladi_mnt]

Задача 8:

program Lice;
var a, S: real; (ili integer - po tvoe jelanie)
begin
write('a='); readln(a);
s:=sqr(a);
write(s:5);
end.

[Vladi_mnt]

Стига толкова засега - като ми дадеш репутацийка - тогава другите задачки

[Гост]

братле хубаво първите 4 задачи са по-труднички ама последните баба ми със затворени очи ше ти ги напише...