Turbo Pascal
Twoje źródło wiedzy o Turbo Pascalu.
  
Szukanie zaawansowane
    
 
Home Rejestracja FAQ Użytkownicy Grupy Galerie  
  Zaloguj się, by sprawdzić wiadomości Zaloguj  
   
 

Forum Turbo Pascal Strona Główna Kody źródłowe Kalkulator
Wyświetl posty z ostatnich:   
       
Napisz nowy temat  Odpowiedz do tematu

Sob 11:37, 11 Lut 2006
Autor Wiadomość
rafael
Administrator



Dołączył: 07 Lut 2006
Posty: 72
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Skąd: Pszczyna
Temat postu: Kalkulator
Kod:
program kalkulator;

{$APPTYPE CONSOLE}

var
liczba1: real;
liczba2: real;
wynik: real;
znak: char;

procedure liczby;
begin
  write ('Podaj pierwsza liczbe: ');
  readln (liczba1);
  write ('Podaj znak [/;*;-;+]: ');
  readln (znak);
  write ('Podaj druga liczbe: ');
  readln (liczba2);

if (znak = '/') and (liczba2 = 0) then
begin
  repeat
  writeln;
  writeln ('Dzielenie przez zero zabronione!');
  write ('Podaj druga liczbe: ');
  readln (liczba2);
  until liczba2 > 0;
end;

end;

procedure liczenie;
begin
case znak of
  '/': wynik := liczba1 / liczba2;
  '*': wynik := liczba1 * liczba2;
  '-': wynik := liczba1 - liczba2;
  '+': wynik := liczba1 + liczba2;
end;

end;

procedure wynik_dzialania;
begin
  writeln;
  writeln ('Wynik dzialania to: ',wynik:0:2);
  readln;
end;


begin
liczby;
liczenie;
wynik_dzialania;
end.


Aby pobrać plik exe. kliknij :arrow: [link widoczny dla zalogowanych]

Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  
Napisz nowy temat  Odpowiedz do tematu

 
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

      Do góry  

Strona 1 z 1
Skocz do:  


fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group
Avalanche style by What Is Real © 2004
             
Regulamin
Na skróty:Turbo PascalStrona wwwInnePytaniaKody źródłoweHydeParkPropozycjeBłędyWasze projektyOgłoszeniaNewsy