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 Waga
Wyświetl posty z ostatnich:   
       
Napisz nowy temat  Odpowiedz do tematu

Wto 16:40, 14 Mar 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: Waga
PROGRAM LICZĄCY WAGĘ IDEALNĄ I PRAWIDŁOWĄ DLA DANEGO WZROSTU.

Kod:
program waga;

{$APPTYPE CONSOLE}

uses
  crt;

var
  wzrost: byte;
  znak: char;
  x: byte;
  waga1: real;
  prawidlowa: byte;

procedure intro;
begin
  writeln ('Program podaje jaka waga jest odpowiednia dla wpisanego');
  writeln ('wzrostu czlowieka. Wedlug metody Paula Broca');
  writeln;
  write ('Autor: Rafael');
  readln;
end;

procedure wprowadz_dane;
begin
clrscr;
  write ('Twoj wzrost: ');
  readln (wzrost);
  x := 1;
    repeat
      clrscr;
      textcolor(white);
      write ('Twoja plec:  ');
      if znak = #75 then x := x - 1;
      if znak = #77 then x := x + 1;
      if x = 0 then x := 2;
      if x = 3 then x := 1;
      if x = 1 then textcolor(yellow)
        else
          textcolor (white);
      write ('Mezczyzna');
      textcolor(white);
      write (' || ');
      if x = 2 then textcolor(yellow)
        else
          textcolor(white);
      writeln ('Kobieta');
      znak := readkey;
    until znak = #13;
end;

procedure obliczenia (var wzrost: byte; plec: byte);
begin
  clrscr;
  prawidlowa := wzrost - 100;
  writeln ('Waga prawidlowa: ', prawidlowa);
    if plec = 1 then waga1 := prawidlowa - 1/10 * prawidlowa;
    if plec = 2 then waga1 := prawidlowa - 3/20 * prawidlowa;
  writeln ('Waga idealna: ',waga1:4:2);
  readln;
end;


begin
  intro;
  wprowadz_dane;
  obliczenia(wzrost,x);
end.


Post został pochwalony 0 razy
 
Zobacz profil autora
      Do góry  
Pią 15:14, 27 Kwi 2007
Autor Wiadomość
Honeypot
Początkujący



Dołączył: 27 Kwi 2007
Posty: 4
Przeczytał: 0 tematów

Ostrzeżeń: 0/3
Temat postu:
Honeypot's free adult video storage:
[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