Народ, нужно выполнить несколько задач в Паскале, а я не особо разбираюсь пока что.
Напишите, если не влом. Пока что не к спеху.
Спасибо за FAQ, помог. Первых два задания уже сделал.
Кста, 3е надо делать не через массивы... а как-то по-другому
Ты хоть пробовал делать ? задачки то простые, а если FAQ читал то вопросов быть не должно ... Покажи как ты делаешь, подскажем, поправим.
Задание #5 - в поиск... "Знакопеременный ряд" или что-то подобное ...
program Laba4;
var p,q,d: array[1..12] of real;
i: integer;
begin
readln(d[i]); d[i]:=0;
for i:=1 to 12 do
begin
read(p[i],q[i]); d[i]:=(p[i]-q[i])/(p[i]/q[i]);
writeln('p[',i:2,']=',p[i]:12:3);
writeln('q[',i:2,']=',q[i]:12:3);
end
end.
Сумма - в скобках, то есть p/q к сумме не имеют никакого отношения...
...
s := 0;
for i:=1 to 12 do begin
read(p[i],q[i]); s := s + (p[i]-q[i]);
end;
for i := 1 to 12 do
d[i] := s * (p[i]/q[i]);
...
Это получается вот так?
program Laba4;
var p,q,d,s: array[1..12] of real;
i: integer;
s:= 0;
readln(d[i]); d[i]:=0;
for i:=1 to 12 do
read(p[i],q[i]); s := s + (p[i]-q[i]);
end;
for i:= 1 to 12 do
d[i]:= s * (p[i]/q[i]);
writeln('p[',i:2,']=',p[i]:12:3);
writeln('q[',i:2,']=',q[i]:12:3);
end
end.
Что-то всеравно не выходит... есть у кого соображения?
показывай, что не выходит.