Witam. Muszę napisać program kalkulator, który będzie obliczał: dodawanie, odejmowanie, mnożenie, dzielenie, pole kwadratu, pole prostokąta, pole trójkąta, pole koła. Musi mieć tekstowe menu wybierania, jeżeli ktoś wybierze złą pozycję [takiej, której nie ma w menu] to program ma wyświetlić “wybierz pozycję od 1 do 8” i znowu wyświetlić menu z listą opcji. Trzeba też zabezpieczyć się przed dzieleniem przez 0 w postaci komunikatu np. Nie dziel cholero przez zero Do tej pory nastrugałem tyle:
program olbiczanie;
uses crt;
var a,b,h,r,pozycja:integer;
begin
clrscr;
repeat
writeln('1 - Dodawanie 2 - Odejmowanie 3 - Mnozenie 4 - Dzielenie 5 - Pole KW 6 - Pole prostokata 7 - Pole trojkata 8 - Pole kola');
read(pozycja);
IF pozycja<1 THEN writeln('Wybierz od 1 do 8');
IF pozycja>8 THEN writeln('Wybierz od 1 do 8');
until pozycja=1,2,3,4,5,6,7,8;
CASE pozycja OF
1:
end.
Zatrzymałem się na Case OF, nie wiem jak rozpocząć od 1 ? Jak ktoś mi podpowie jak ma wyglądać początek to dalej sam już analogicznie powinienem dać sobie radę. Czy to będzie dobrze ?
1: Writeln('Zaczynamy dodawanie');
begin
writeln('Podaj a');
read(a);
writeln('Podaj b');
read(b);
writeln('Suma a i b wynosi',a+b);
readln;
end;