Задача по програмиране(с Паскал)... Помогнете..

[bebeemalko]

Дадоха ни за домашно следната задача:
Да се състави програма SEC7, която чете от клавиатурата редици с по пет числа, до въвеждане на строго растяща редица, и отпечатва на екрана сумата от елементи на последната въведена редица.
Примерен вход
10 4 7 3 6
2 3 4 58 6
40 45 38 33 40
5 5 5 2 3
70 70 70 70 70
1 2 3 4 5
Примерен изход
15

[Chacho]

По-късно мога да ти я напиша. Ако искаш да се опиташ преди това, правиш един while, в който ще включиш for с въвеждането на масива a[5]. Във for-a в една булева променлива, която ще присвои стойност false, ако редицата е растяща. Така ще поставиш условие на while-a (check=true). Накрая извеждаш сумата чрез един for i:= 1 to 5 do sum:=sum+a[i]. (Преди цикъла зануляваш sum:=0). След всички щуротии извеждаш sum.

[bebeemalko]

Еми малко ми е като на друг език, но не ми изглежда чак толкова трудно. Ще пробвам, но не гарантирам че ще стане. Мерси, все пак.

[bebeemalko]

Ааа не. Бъгнах... програмирането не е за мен, не мога да го направя това...пълна бъркотия стана.

[Chacho]

program HelloWorld;

type arr = array[1..5] of real;

var
a: arr;
i: integer;
check: boolean;
sum: real;

begin

sum:=0;

writeln('Vuvedete redica ot 5 4lena');

repeat
begin
check:=true;
for i:=1 to 5 do
begin
write('a[',i,']=');
readln(a[i]);
if i>1 then
begin
if a[i-1]>=a[i] then
check:=false;
end;
end;
end;
writeln;
until check=true;

for i:=1 to 5 do
sum:=sum+a[i];

writeln('sum=', sum:5:2);
readln;
end.


Малко грозно съм го написал кода, но толкова малка програма мисля, че дори така е четлива. Все пак, ако искаш си бутни блоковете по два пръста навътре.

[bebeemalko]

ООо мерси :) спаси ми срочната оценка :)

[Chacho]

Да ти е жива и здрава! ;)

[bloodyF]

аз ли само си мислех, че всички вече учат на с++..?

[Chacho]

На някои места още се учи Паскал, даже и по някои ВУЗове май. Което е много тъпо, защото на олимпиади се пише на С++, аз така и не ходих докато бях ученик, точно по тази причина. :/

[anonymous546178]

Друго си е да учиш във ВУЗ и да пляскаш на Паскал, като малоумен :D

*днес имам изпит основи на програмирането в Паскал-среда :D :D :D

[Chacho]

Друго си е да учиш във ВУЗ и да пляскаш на Паскал, като малоумен :D

*днес имам изпит основи на програмирането в Паскал-среда :D :D :D

Хахаха :D Успех!

И аз днеска бях на програмиране.