Массивы (turboPascal)

[Axl_09]

1) Найти минимальный член последовательности и его порядковый номер
a(k)=Cos(2k-1), где k=1,2,...,10.

2) Даны два массива:
X=(0.2; 3.14; -1.28; 1.16; 10)
Y=(-1.13; 2.21; 0.61; -1.28; 3).
Сформировать массив Z по правилу: z[i]=z[i]+2y[i].
найти сумму квадратов положительных элементов этого массива

3) Дан массив X=(5.1; -0.0002; 1251.35; -1.5; 11.2; -1921.63)
вывести номера положительных элементов.

[Stilet]

const k=10;
 x:array[1..5] of real=(0.2, 3.14, -1.28, 1.16, 10);
 y:array[1..5] of real=(-1.13, 2.21, 0.61, -1.28, 3);
 x3:array[1..5] of real=(5.1, -0.0002, 1251.35, -1.5, 11.2, -1921.63);

1) Найти минимальный член последовательности и его порядковый номер
a(k)=Cos(2k-1), где k=1,2,...,10.
procedure _1;
 var a:array[1..10] of real; i:integer; min:integer;
begin min:=1;
 for i:=1 to k do begin
  a[k]:=cos(2*k-1); if (a[k]<a[min])or(min=1) then min:=i;
 end;
 writeln(min:10,a[min]:5;2);
end;

Сформировать массив Z по правилу: z[i]=z[i]+2y[i].
найти сумму квадратов положительных элементов этого массива
procedure _2;
 var z:array[1..5] of real; i:integer; sukv:real;
begin 
 for i:=1 to 5 do begin
  z[i]:=z[i]+2*y[i]; 
  if z[i]<0 then sukv:=sukv+sqr(z[i]);
  write(z[i]:5:2);
 end; writeln;
 writeln(sukv);
end;

вывести номера положительных элементов. 
procedure _3;
 var  i:integer; 
begin 
 for i:=1 to 5 do begin
  if x3[i]>0 then   write(i:5);
 end; 
end;

begin _1;_2;_3; readln; end.

[Poma][a]

: z[i]=z[i]+2y[i].

Вангую : должно быть так z[i] = x[i] + 2y[i]

Где просьба о помощи? Или это приказ?
Где наработки?

[Stilet]

Где наработки?

Дак вон же они вверху чуть ниже посередине

должно быть так z[i] = x[i] + 2y[i]

А по ТЗ z[i]=z[i]+2y[i]., так что не колышит. Может это такой хитрый ход, о котором в последствии в Гугле будут ходить легенды

[Poma][a]

А по ТЗ z[i]=z[i]+2y[i].,

Угу.. Будет то z[i] = 2y[i], то z[i] = -24768395 + 2y[i], то .. при одних исходных данных..

Дак вон же они вверху чуть ниже посередине

А как же "Показывай как массив вводишь"?

Кстати, во избежание возмущений ТС,
#1

if (a[k]<a[min])or(min=1) then min:=i;

Зачем? ведь изначально min = 1..

#2
sukv := 0; Перед циклом

[Stilet]

А как же "Показывай как массив вводишь"?

Сколько этих "показывай" еще будет...

Зачем?

Обфускация.

sukv := 0; Перед циклом

Лень. Паскаль сам обнулит...

[Poma][a]

Обфускация.

Коварно

Последний раз редактировалось Stilet; Сегодня в 21:49

Данке.. Привычка..

Лень. Паскаль сам обнулит...

А почему? (Проверил - во истину обнуляет) Но почему? Глобальные - понятно, а вот локальные почему? Даже старенький Турбо, даже недоделанный ABC.. они обнуляют..

[Stilet]

А почему?

Ну... Вирт свое дело знает туго. Это тебе не Си с его костылями. Я конечно понимаю что надеяться на инициализацию со стороны машины чревато, но в случае с паскалем, который предусматривает бяки с мусором в памяти вполне можно.

[Axl_09]

Сообщение от Poma][a

Вангую : должно быть так z[i] = x[i] + 2y[i]

Где просьба о помощи? Или это приказ?
Где наработки?

Раздел "помощь студентам"
ничего не говорит?
я ведь специально зашел в этот форум (форум помощи студентам)

думаю и так все понятно
что нужна помощь,
если тема в разделе "помощь студентам"

спасибо всем,

[Poma][a]

Раздел "помощь студентам"
ничего не говорит?

Только о том, что Вам возможно будет оказана помощь..

думаю и так все понятно
что нужна помощь,
если тема в разделе "помощь студентам"

То что нужна помощь - ясно. Не ясно лишь то, простите ли Вы помощи или приказываете нам что-то сделать за Вас..

Ну... Вирт свое дело знает туго. Это тебе не Си с его костылями. Я конечно понимаю что надеяться на инициализацию со стороны машины чревато, но в случае с паскалем, который предусматривает бяки с мусором в памяти вполне можно.

Спасибо