Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задачи на Паскале [help]

Автор: Kaliban 12.11.2006 1:02

Народ, нужно выполнить несколько задач в Паскале, а я не особо разбираюсь пока что.
Напишите, если не влом. Пока что не к спеху.

Прикрепленное изображение

Спасибо за FAQ, помог. Первых два задания уже сделал. good.gif
Кста, 3е надо делать не через массивы... а как-то по-другому



Автор: klem4 12.11.2006 1:04

Ты хоть пробовал делать ? задачки то простые, а если FAQ читал то вопросов быть не должно ... Покажи как ты делаешь, подскажем, поправим.

Автор: volvo 12.11.2006 1:22

Задание #5 - в поиск... "Знакопеременный ряд" или что-то подобное ...

Автор: Kaliban 12.11.2006 21:31

Цитата(klem4 @ 11.11.2006 21:04) *

Ты хоть пробовал делать ? задачки то простые, а если FAQ читал то вопросов быть не должно ... Покажи как ты делаешь, подскажем, поправим.

Ага. Третью вообще пока что не понял как делать. Так что, это кому как...
Мне это делать совсем не просто mega_chok.gif
Вот сел за четвертую, и уже через 10мин запутался в том, что пишу

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.

Автор: volvo 12.11.2006 21:40

Сумма - в скобках, то есть 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]);
...


А для решения задач, подобных третьей, специально придумали функцию Pos (все, что требуется от программы - определить, встречается ли в заданной тобой строке запятая...)

Автор: Kaliban 13.11.2006 1:09

Это получается вот так?

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.


Про Pos без понятия куда его ставить...

Автор: Kaliban 19.11.2006 21:24

Что-то всеравно не выходит... есть у кого соображения?

Автор: мисс_граффити 19.11.2006 22:04

показывай, что не выходит.

Автор: Kaliban 19.11.2006 22:53

Цитата(мисс_граффити @ 19.11.2006 18:04) *

показывай, что не выходит.

см. выше