Witam! Mam problem. Otóż muszę napisać kalkulator w Pascalu, a niestety nie potrafię stworzyć przycisków i przypisać im odpowiednich wartości. Proszę o pomoc!! Z góry dziękuję. Pozdrawiam.
[pascal]Kalkulator
Rozpoczęty przez
szarutka
, 27 11 2007 22:27
-
Temat jest zamknięty
2 odpowiedzi w tym temacie
#2
Bono
-
-
- 1 postów
Nowy
Napisano 13 12 2007 - 18:11
Za mało opisane!! Napisz na czym ma byc: for, if, procedrua.. i jak on ma wygladac.. jakie dzialania maja byc .. Czekam może sie podejmę..
Pozdro
Pozdro
#3
Hooligan
-
-
- 14 postów
Początkujący
Napisano 17 12 2007 - 17:20
Proszę 
Niżej mój program pisany do szkoły... Posiada 4 podstawowe działania (dodawanie, odejmowanie, dzielenie i mnożenie). Może komuś się przyda.
Niżej mój program pisany do szkoły... Posiada 4 podstawowe działania (dodawanie, odejmowanie, dzielenie i mnożenie). Może komuś się przyda.program Kalkulator;
uses
CRT;
var
C, D : Char;
A, B, I : Byte;
Tablica : array[1..5] of String;
procedure Dodawanie;
begin
writeln;
writeln('Wynik dzialania to: ', A+B);
end;
procedure Odejmowanie;
begin
writeln;
writeln('Wynik dzialania to: ', A-B);
end;
procedure Mnozenie;
begin
writeln;
writeln('Wynik dzialania to: ', A*B);
end;
procedure Dzielenie;
begin
writeln;
writeln('Wynik dzialania to: ', A/B:0:1);
end;
begin
repeat
Tablica[1]:=' 1. Dodawanie ';
Tablica[2]:=' 2. Odejmowanie ';
Tablica[3]:=' 3. Mnozenie ';
Tablica[4]:=' 4. Dzielenie ';
Tablica[5]:=' 5. Wyjscie ';
clrscr;
TextColor(15);
for I:=1 to 5 do begin
TextColor(15);
TextBackGround(0);
GotoXY(32,11+I);
Write(Tablica[I]);
end;
I := 1;
repeat
TextColor(0);
TextBackGround(15);
GotoXY(32,11+I);
write(Tablica[I]);
C := ReadKey;
D :=' ';
if C=Chr(0) then
D := ReadKey;
TextColor(15);
TextBackGround(0);
GotoXY(32,11+I);
write(Tablica[I]);
if D='H' then
Dec(I);
if D='P' then
Inc(I);
if I=0 then
I := 5;
if I=6 then
I := 1;
if C=Chr(27) then
I:=5;
until (C=chr(13));
TextColor(7);
clrscr;
if I = 5 then Halt;
write(' Podaj liczbe A: ');
readln(A);
write(' Podaj liczbe B: ');
readln(B);
if I = 1 then Dodawanie;
if I = 2 then Odejmowanie;
if I = 3 then Mnozenie;
if I = 4 then Dzielenie;
readln;
until I=5;
end. 
Użytkownicy przeglądający ten temat: 0
0 użytkowników, 0 gości, 0 anonimowych
