Free Pascal jak napisac kalkulator

[doomsoul]

Otoz moj problem polega na tym iz musze we free pascalu napisac kalkulator a niewiem jak to zrobic (z powodu nieobecnosci z powodowanych choroba) dostalem tylko taki wstep jak to musi wygladac

Program rachunek;

uses crt;

var

a,b,c:real;

x:integer:

begin

clrscr;

writeln;writeln;

writeln('co chcesz zrobic: 1-dodaj, 2-odejmnij, 3-dzielenie, 4-mnozenie, 5 potegowanie');

readln(x);

if x=1 then

begin

writeln('podaj a');

readln(a);

writeln('podaj b');

readln(b);

c:=a+b;

writeln('wynik wynosi : c')

end;

if x=2 then;

Prosilbym o szybko odpowiedz.

W tym co napisalem moga sie ukazac bledy.

Jesli dalem to zlej rubryce to przepraszam i prosze o przeniesie badz usuniecie;(

Przenoszę do działu Programowanie i webmastering.-org

[kejwmen]

dalej postępujesz tak samo, tylko pod zmienną z wynikiem podstawiasz inne działanie na tych dwóch liczbach.

pomyśl chwilkę, praktycznie masz tu cały program, tylko kopiuj-wklej warunku.

jak tego nie ogarniesz sam, to nie widzę Twojego programowania dalej.