Найти ошибку

@dark99 · Регистрация: 21.01.2011

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

Pascal

program lab1;
uses crt;
var x, y:integer;
a:real;
begin
clrscr;
write ('введите х:');
readln(y);
a:=(((8,907*x+1)+x+7,01)*x-2,06)*2;
wrineln ('ответ a:b:c);
readkey
end.

она чет вообще не правильная

@SuPeR XaKer · 28.01.2011, 18:51

1)

write ('введите х:');

а вводишь y
2)

a:=(((8,907*x+1)+x+7,01)*x-2,06)*2;

разделитель дробной части . а не ,
3)

wrineln ('ответ a:b:c);

не wrineln a writeln('ответ:=',a:2:3);

@Puporev · 28.01.2011, 18:54

Да уж... Столько ошибок в такой программе...

Pascal

program lab1;
uses crt;
var x, y:real;
begin
clrscr;
write ('введите х:');
readln(x);
y:=(((8.907*x+1)+x+7.01)*x-2.06)*2;
writeln ('ответ Y=',y:0:4);
readkey
end.

@_LoneR_ · 28.01.2011, 18:56

Pascal

var x, y:integer;
a:real;
begin
 
writeln ('vvedit x:');
readln(x);
 
a:=(8.907)*(x+1)+x+7.01*(x-2.06)*2;
writeln ('otvet a:b:c',a:1:3);
 
readln;
end.

Походу не правильно я сделал

@dark99 · 28.01.2011, 19:00 **[ТС]**

так то работает, но вот почему то ответ -4 постоянно выводит

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	28.01.2011, 18:51	2
	1) write ('введите х:'); а вводишь y 2) a:=(((8,907x+1)+x+7,01)x-2,06)*2; разделитель дробной части . а не , 3) wrineln ('ответ a:b:c); не wrineln a writeln('ответ:=',a:2:3); 1

@dark99 8 / 8 / 0 Регистрация: 21.01.2011 Сообщений: 128
	28.01.2011, 19:00 [ТС]	5
	так то работает, но вот почему то ответ -4 постоянно выводит 0

Опции темы