найти ошибку в программе

@IIaJIbI4 · Регистрация: 16.11.2009

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

Всем привет. помогите найти ошибку...

Pascal

Program lab3;
var a,b,an,ak,ah,bn,bk,bh,x,c:real;
begin
writeln('an,ak,ah,bn,bk,bh,x');
readln(an,ak,ah,bn,ak,ah,x);
a:=an;
repeat
b:=bn;
repeat
if (a<0.3) and (b>0.2) then
c:=(b*(sin(a*x)))
else
c:=(a*(cos(b*x)));
b:=bn+bh;
until b>bk;
a:=an+ah;
until a>ak;
writeln('c= ',c);
readln;
end.

@WolfCF · 30.12.2009, 04:50

Какая задача? где ошибка,в чем заключается.....

@mamedovvms · 30.12.2009, 06:40

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

readln(an,ak,ah,bn,ak,ah,x);

повнимательнее на эту строку посмотри

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	30.12.2009, 04:50	2
	Какая задача? где ошибка,в чем заключается..... 0

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	30.12.2009, 06:40	3
	Сообщение от IIaJIbI4 readln(an,ak,ah,bn,ak,ah,x); повнимательнее на эту строку посмотри 1