Pascal

HF-Készíts programot, amely számológépet szimulál. Az indításkor írja ki, hogy melyik billentyű leütésekor milyen művelet hajtódjon végre. +, -, *, /, illetve c- nullázés, x- kilép. Az egyes műveletek külön alprogramokként fussanak.

Jó munkát.

Az alábbi program felhasználható mint segítség.

A programhoz ugrok

program calculator;

uses crt;

var muv:char;

var a,b:integer;

procedure beolvas; {beolvastat ket erteket es az elvegzesre varo muvelete}

begin

writeln('add meg az elso szamot:');

readln (a);

writeln('add meg a masodik szamot:');

readln (b);

writeln('milyen muveletet vegezzek?');

writeln('osszeadas +');

writeln('kivonas -');

readln(muv);

end;

procedure osszead; {osszeadja a ket erteket, es kiirja az eredmenyt}

var sum:integer;

begin

sum:=a+b;

writeln('a ket szam osszege: ',sum);

end;

procedure kivon; {kivonja a ket erteket, es kiirja az eredmenyt}

var sub:integer;

begin

sub:=a-b;

writeln('a ket szam kulonbsege: ',sub);

end;

begin

clrscr;

beolvas; {meghivom a beolvas eljarast}

case muv of {valasztas}

'+':osszead;

'-':kivon;

end;

readkey; {billentyuleutesre var}

end.

HF= jövő héten (24.04.2008) doli!!!!!

program calculator;

uses crt;

var a,b,c:real;

var o:char;

procedure osszead;

begin

readln(b);

c:=c+b; writeln(c:5:2);

end;

procedure kivon;

begin

readln(b);

c:=c-b; writeln(c:5:2);

end;

procedure szoroz;

begin

readln(b);

c:=c*b; writeln(c:5:2);

end;

procedure oszt;

begin

readln(b);

c:=c/b; writeln(c:5:2);

end;

procedure nullaz;

begin

c:=0;

readln(c);

end;

procedure kilep;

begin

write('uss egy entert es konnyes bucsut veszunk');

exit;

end;

begin

clrscr;

writeln('Szamologep');

writeln('Minden szam, illetve muveleti jel(+,-,*,/) utan uss entert.');

writeln('Ha nem az eredmennyel szeretnel szamolni- c es enter.');

writeln('Ha nem kivansz tovabb szamolni- v es enter');

readln(a);

c:=a;

repeat

readln(o);

case o of

'+':osszead;

'-':kivon;

'*':szoroz;

'/':oszt;

'c':nullaz;

end;

until o='v';

if o='v' then kilep;

readln;

end.