Używam programu TMT Pascal Lite. Mam dwa programy w jednym z nich jest błąd dzięki któremu możne robić komputer w głupa. Nie chodzi tutaj o wyskakiwanie błędu.
Oto kody programów:
I.
Program Wtaj1a;
VAR Imie, Odpowiedz: String; Wiek: Integer;
BEGIN
Writeln ('Witam Cie! Jak masz na imie?');
Readln (Imie);
Writeln ('Milo Cie poznac ',Imie);
Writeln ('Jak sie masz?');
Readln (Odpowiedz);
Writeln ('Zatem masz sie ', Odpowiedz);
Writeln ('Ile masz lat?');
Readln (Wiek);
Writeln ('No to zostalo Ci jeszcze ',100-Wiek, ' lat');
Readln;
END.
II.
Program Witaj;
var Imie, Odpowiedz: string; Wiek: integer;
begin
writeln ('Witam Cie! Jak masz na imie?');
readln (Imie);
writeln ('Milo Cie poznac' , Imie);
writeln ('Jak sie masz?')
readln (Odpowiedz);
if Odpowiedz = 'dobrze' then
writeln ('Ciesze sie')
else if Odpowiedz = 'zle' then
writeln ('Przykro mi')
else
writeln ('Nie rozumiem...');
writeln ('Ile masz lat?')
readln (Wiek);
writeln ('No to zostalo Ci jeszcze' , 100-Wiek, 'lat');
readln;
end.
Mam dwa problemy otóż w drugim programie pokazuje błąd w: 'readln (Odpowiedz);'. Nie wiem dlaczego? Drugi problem to to, że nie mogę znaleźć tego błędu programistycznego wydaje mi się że to właśnie gdzieś tam w Odpowiedzi w drugim programie, ale nie jestem pewny. Bardzo prosze o pomoc w rozwiązaniu tych dwóch problemów.