Skocz do zawartości


Zdjęcie

[pascal]Kalkulator


  • Zamknięty Temat jest zamknięty
2 odpowiedzi w tym temacie

#1 szarutka

szarutka

    Nowy

  • 1 postów

Napisano 27 11 2007 - 22:27

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.

  • 0

#2 Bono

Bono

    Nowy

  • 1 postów

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

  • 0

#3 Hooligan

Hooligan

    Początkujący

  • 14 postów

Napisano 17 12 2007 - 17:20

Proszę :rolleyes: 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.


  • 0

Zobacz więcej tematów z tagiem: Turbo Pascal



Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych