Tek sam se u zadnje vrijeme poceo aktivno baviti programiranjem. I prije neki dan nadodem na ideju da napravim svoj calculator. Kako ucim programiranje u pascalu (od toga smo krenuli i u skoli ), htjeo sam da napravim u njemu. Kao sto naziv teme kaze pojavio se jedan problem. Napravio sam "calculator" i on radi ali ne bas najbolje. Unesem prvi broj, znak (+,-,*,/),drugi broj i on njih sabere ili sta sam vec zado. Ali moj problem je treci broj ili cetvrti. Po mom kodu kada ja dodam treci broj, ja u svakom sabiranju moram imati tri broja. Pa bih molio ako neko zna kako da rijesim taj problem da me pita da li ja hocu treci,cetvrti broj i ako ne da izracuna prva dva.
Kod:
Program Calculator;
Var
num1,num2,Ans : Integer;
Symbol : Char;
Begin
Repeat
Write(' Unesi prvi broj: ');
Readln(Num1);
Write(' Unesi simbol (+,-,*,/) : ');
Readln(Symbol);
Write(' Unesi drugi broj: ');
Readln(Num2);
Case Symbol of
'+' : ans := num1 + num2;
'-' : ans := num1 - num2;
'*' : ans := num1 * num2;
'/' : ans := num1 div num2;
End;
Write(' Konacno rjesenje je : ',Ans);
Writeln;
Readln;
Until Ans = 0;
End.