if read('TAK') THEN s:=a+b/2 ELSE read('NIE') s:=a=b
tej linijki bym tak nie zapisal:
1) s:=a=b s przyjmie wart logiczna: czy a=b
2) s:=a+b/2 s bedzie wynosilo a + polowa b
Poza tym ja bym jednak zrobil oddzielnie read(c) c jako string (i chyba lepiej dla swietego spokoju uzywac readln) czyli
=====
readl(c);
IF c=tak THEN s:=(a+b)/2 ELSE
IF c=nie THEN s:=a+b ELSE
begin
writeln('BLEDNY WPIS');
s:=0
end;
=====
begin
...
end;
write (s);
end;
begin
delay(5000)
end.
Za duzo endow, poza tym lepiej chyba zrobic:
=====
writeln(s);
readkey;
end.
=====
wogole to bym zrobil troche inaczej:
program Liczenie;
uses crt;
var a,b,s: real;
var c: string[3]; (nie pamietam juz dobrze czy tak nalezy)
begin
clrsrc;
writeln('Program wykonuje dodawanie i dzielenie ');
writeln('Wprowadz 1 liczbe: ');
read(a);
writeln('Wprowadź 2 liczbe: ');
read(b);
writeln('Czy chcesz podzielić sume tych liczb wpisz TAK lub NIE:');
readl(c);
IF c='TAK' THEN begin s:=(a+b)/2; writeln(c) end ELSE
IF c='NIE' THEN begin s:=a+b; writeln(c) end ELSE writeln('BLEDNY WPIS');
readkey
end.
Chyba tak
PS. - PASCAL SUX
