Üdv.
Az elõbb írtam egy számológépet pascal nyelven.
A kód szabadon felhasználható a készítõ (JBauer) nevének feltüntetésével!
A kódot teszteltem, mûködik.
Íme:
program Szamologep;
var melyik,szam1,szam2:integer;
begin
writeln(\'========///\\\\\\Számológép///\\\\\\========\');
writeln(\'Kérlek írd be, hogy melyik mûvelettel szeretnél dolgozni!\');
writeln(\'1 = összeadás, 2 = kivonás, 3 = szorzás, 4 = osztás\');
writeln(\'Minden mûveletnél csak 2 tagot használhatsz!\');
readln(melyik);
if melyik = 1 then begin
writeln(\'Összeadás: Írd be az elsõ tagot!\');
readln(szam1);
writeln(\'Ok‚, most írd be a második tagot!\');
readln(szam2);
writeln(\'A két szám (\' ,szam1, \', \' ,szam2,\') összege: \', szam1+szam2, \'!\');
szam1:=0;
szam2:=0;
end;
if melyik = 2 then begin
writeln(\'Kivonás: Írd be az elsõ tagot!\');
readln(szam1);
writeln(\'Ok, most Írd be a második tagot!\');
readln(szam2);
writeln(\'A két szám (\' ,szam1, \', \' ,szam2,\') kivonata: \', szam1-szam2, \'!\');
szam1:=0;
szam2:=0;
end;
if melyik = 3 then begin
writeln(\'Szorzás: Írd be az elsõ tagot!\');
readln(szam1);
writeln(\'Ok, most Írd be a második tagot!\');
readln(szam2);
writeln(\'A két szám (\' ,szam1, \', \' ,szam2,\') szorzata: \', szam1*szam2, \'!\');
szam1:=0;
szam2:=0;
end;
if melyik = 4 then begin
writeln(\'Osztás: Írd be az elsõ tagot!\');
readln(szam1);
writeln(\'Ok‚ most írd be a második tagot!\');
readln(szam2);
writeln(\'A két szám (\' ,szam1, \', \' ,szam2,\') hányada: \', szam1/szam2, \'!\');
szam1:=0;
szam2:=0;
end;
writeln(\'========///\\\\\\Számológép///\\\\\\========\');
writeln(\'A scriptet JBauer készítette, szabadon felhasználható a készítõ nevének feltûntetésével!\');
end.
Remélem tetszeni fog!
Üdv. JBauer
