контрольная работа по турбо паскалю(блок-схемы +программы)

[Irishka_magic]

Люди добрые,помогите пожалуйста,голова совсем уже не варит с этой сессией....

нужно решить любые 3 задания.(зарание прошу прощения что не перепечатала в нормальном виде,просто уже сил нет) составить блок-схемы и программу к ним.

буду безумно благодарна если поможете!

[Alex Cones]

Или показывайте свои наработки или GTFO во "Фриланс".

[Irishka_magic]

а теперь по русски можно то, что вы только что аписали оО

[Irishka_magic]

у меня есть программы к первому заданию(первое фото) и к последнему(второе фото) только незнаю правильно нет

1)uses crt
var a:array[1..30] of real;
i,k:byte;
y:real;
begin
clrscr;
for i:=1 to 30 do
begin
writeln('a[',i,']= ');
readln(a[i]);
end;
writeln('Данный массив');
for i:=1 to 30 do
write(a[i]:0:2,' ');
k:=1;
for i:=1 to 30 do
begin
y:=y + k*a[i]*a[31-i];
k:=-k;
end;
writeln;
writeln(y:0:2);
readln;
end.

3)uses crt;
const n=9;
var a:array[1..n,1..n] of real;
s:real;
i,j:byte;
begin
clrscr;
writeln('Исходная матрица:');
s:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=10*random;
if ((j>=i)and(j<=n-i+1))or((j>=n-i+1)and(j<=i))then
begin
textcolor(12);
write(a[i,j]:5:2);
s:=s+a[i,j];
end
else
begin
textcolor(15);
write(a[i,j]:5:2);
end;
end;
writeln;
end;
s:=s-a[n div 2+1,n div 2+1];
writeln;
textcolor(15);
write('Сумма элементов в заданной области=',s:0:2);
readln
end.

[Alex Cones]

В первом сразу же жестокая ошибка - не инициализируете y.

[Irishka_magic]

а как его тогда написать?

[Alex Cones]

Все ясно, код не ваш и вы в этом не шарите абсолютно, ибо оператору присваивания учат на первой же лекции. Топаем во "Фриланс". Здесь за вас никто ничего делать не будет.

[Irishka_magic]

нахрена тогда вы тут нужны непонятно...
и на лекциях я была и все прекрасно понимаю,то что я не могу разобраться в контрольной ещё не показатель.

[Alex Cones]

нахрена тогда вы тут нужны непонятно...

Да действительно. Тут коммунизм, и халявы нет - либо СВОИ наработки, либо бабки.

и все прекрасно понимаю

Как же все понимаете, если вы не знаете, что такое инициализация?

[Irishka_magic]

ну например нам на лекции не говорили что такое инициализазия...разве трудно сказать другими словами??