Kód: Vybrat vše
program kalkulacka;
var a,b:integer;
odpoved:string;
begin
write('Zadej dve cisla: ');
readln(a,b);
write('chces scitat (ano/ne): ');
readln(odpoved);
if odpoved='ano' then
writeln(a,'+',b,'=',a+b);
readln;
end.Chyb je tam víc, ale když už něco vypočítáš, opravdu to chceš hned přepsat něčím jiným?
Kód: Vybrat vše
vysledek = cislo1 + cislo2
readln(vysledek);Krom toho se v Pascalu přiřazuje takhle:
vysledek := cislo1 + cislo2
Samotné rovnítko je jen pro porovnání!
Koukni do tohohle:
http://home.pf.jcu.cz/~edpo/program/program.html
http://pascal.webz.cz/kurs/index.html
http://www.spsemoh.cz/vyuka/pascal/
