30.09.2008, 20:57
|
|
Познающий
Регистрация: 02.09.2007
Сообщений: 67
Провел на форуме:
521298
Репутация:
20
|
|
Сообщение от De-visible
Писал закрытыми глазами?
Только начал изучать и в первый раз 
Сообщение от De-visible
Итак начнем  :
1)После readln забыл точку с запятой...
2) a,b,c: не описаны(var a,b,c:real или integer)
3)После if g>d точку с запятой не надо...
4)l:=K+SQRT(i; забыл скобку закрыть
5)Дальше тоже чепуха... 1, 2, 3, 4 разобрался. Никак не могу воткнуть как правильно записать оператор ветвления 
Теперь компилятор ругается на ";" перед else в операторе if.
Program discriminant;
Var G, f, d, i, k, l, n, a, b, c, M, o: real;
Begin readln (G, f, d, i);
G:=SQR(b);
f:=4*a;
d:=f*c;
i:=g-d;
if g>d
then
k:=-b;
l:=K+SQRT(i);
n:=K-SQRT(i);
m:=l/2;
o:=l/2;
writeln (M, O);
else writeln (No decision)
end.
Последний раз редактировалось Syntaxys; 30.09.2008 в 21:00..
|
|
|