Циклы паскаль

@FartiBOY · Регистрация: 07.10.2010

Author24 — интернет-сервис помощи студентам

Дали задачу:

Вводяться 10 пар произвольных чисел (a,b). Найти произведение P=П(a+b).

Возможно я ее не совсем так понил (что такое П? в моем понимании это число от 1 до 10, т.к. 10пар чисел), но вот что вышло:

Pascal

var
a,b,N,P,H:integer;
begin
H:=1;
while H<=10 do
begin
writeln('Vvedite a');
ReadLn(a);
writeln('Vvedite b');
ReadLn(b);
N:=10;
P:=H*(a+b);
writeln('P=',P);
H:=H+1;
end;
readln;
end.

Может как-то можно подкаректировать, подскажите, возможно ли сделать так, чтобы сначала нужно было вводить все 10пар чисел, а уже после вылетали 10 результатов "П"?
(В задаче П=H)
P.s. еще небольшой вопрос, как включить оператор чистки экрана clrscr? и где его писать, пишу перед бегином, дает ошибку неверный идентификатор, либо что-то в этом роде.

@Puporev · 12.10.2010, 18:29

Сообщение от FartiBOY

Найти произведение P=П(a+b).

Это произведение 10 сумм.

Pascal

P:=1;
for i:=1 to 10 do
 begin
  readl(a,b);
  p:=p*(a+b);
 end;

числа лучше вещественного типа, а то зашкалит..

@FartiBOY · 12.10.2010, 18:54 **[ТС]**

Сообщение от Puporev

Это произведение 10 сумм.

Pascal

P:=1;
for i:=1 to 10 do
 begin
  readl(a,b);
  p:=p*(a+b);
 end;

числа лучше вещественного типа, а то зашкалит..

спс, получилось вот, че)

Pascal

var
a,b,i,P:integer;
begin
P:=1;
for i:=1 to 10 do
begin
writeln('Vvedite chisla a,b');
readln(a,b);
P:=P*(a+b);
writeln('P=',P);
end;
readln;
end.

думаю верно, вроде проверил 4раза.
А насчет очистки экрана? или у меня паскаль неполный, поэтому не работает..(

@SuPeR XaKer · 12.10.2010, 18:57

А насчет очистки экрана? или у меня паскаль неполный, поэтому не работает..(

Модуль то подключил?
Uses CRT;

@FartiBOY · 12.10.2010, 19:08 **[ТС]**

Сообщение от SuPeR XaKer

Модуль то подключил?
Uses CRT;

теперь да, спс.

@Puporev · 12.10.2010, 19:10

И тип лучше вещественный, все же произведение....

@FartiBOY · 12.10.2010, 22:14 **[ТС]**

Сообщение от Puporev

И тип лучше вещественный, все же произведение....

поменял.
Сначала не доходило просто зачем, теперь после проверки с большими числами, понял.

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	12.10.2010, 18:57	4
	А насчет очистки экрана? или у меня паскаль неполный, поэтому не работает..( Модуль то подключил? Uses CRT; 0

@FartiBOY 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 23
	12.10.2010, 19:08 [ТС]	5
	Сообщение от SuPeR XaKer Модуль то подключил? Uses CRT; теперь да, спс. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.10.2010, 19:10	6
	И тип лучше вещественный, все же произведение.... 0

@FartiBOY 0 / 0 / 0 Регистрация: 07.10.2010 Сообщений: 23
	12.10.2010, 22:14 [ТС]	7
	Сообщение от Puporev И тип лучше вещественный, все же произведение.... поменял. Сначала не доходило просто зачем, теперь после проверки с большими числами, понял. 0