Question

Przerobić poniższy program tak, by działanie lub sam wynik zapisywało do pliku tekstowego.

program kalkulator;
uses crt;
var a, b, c: Integer;

begin
clrscr;
write('Podaj pierwsza liczbe: ');
readln(a);
write('Podaj druga liczbe: ');
readln(b);

writeln('Wybierz: ');
writeln('1 dodawanie');
writeln('2 odejmowanie');
writeln('3 mnozenie');
writeln('4 dzielenie');
readln(c);

case c of
1: writeln('Wynik: ',a, ' + ', b, ' = ', wynik=a+b);
2: writeln('Wynik: ', a, ' - ', b, ' = ', a-b);
3: writeln('Wynik: ', a, ' * ', b, ' = ', a*b);
4: writeln('Wynik: ', a, ' / ', b, ' = ', a/b);
else writeln('Tylko liczby 1-4');
end;
readln;
end.

Answer 1

Nie da się dodać załącznika w notatniku, więc wkleiłem kod tutaj: http://wklej.org/id/993427/

 

Bo jak znam życie to znajdzie sie moderator co sie przyczepi, że kod jest niesformatowany..

 

 

 Liczę na najlepszą odpowiedź. Z góry dzięki. Pozdro.