Podgląd pojedynczego posta
Stary 01.11.2005, 21:15   #2
andy
logged out
CDRinfo VIP
 
Avatar użytkownika andy
 
Data rejestracji: 12.07.2003
Lokalizacja: /home
Posty: 12,518
andy jest wzorem do naśladowania <650 - 999 pkt>andy jest wzorem do naśladowania <650 - 999 pkt>andy jest wzorem do naśladowania <650 - 999 pkt>andy jest wzorem do naśladowania <650 - 999 pkt>andy jest wzorem do naśladowania <650 - 999 pkt>andy jest wzorem do naśladowania <650 - 999 pkt>andy jest wzorem do naśladowania <650 - 999 pkt>andy jest wzorem do naśladowania <650 - 999 pkt>
Aplikacja konsolowa będzie wyglądała tak:
Kod:
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
   a, b, c: integer;
begin
  Write('Podaj pierwsza liczbe: ');
	 Readln(a);
  Write('Podaj drugą liczbe: ');
	 Readln(b);
  Write('Podaj trzecią liczbę: ');
	 Readln(c);
  Writeln('Średnia arytmetyczna liczb ' ,a,' ',b,' ',c,' wynosi: ',((a+b+c)/3):0:2);
	 Readln;
end.
Jeżeli chcesz zrobić na przyciskach i editach to podpinasz zmienne do nich.
__________________
XMPP: andrzej(at)czerniak.info.pl

Ostatnio zmieniany przez andy : 01.11.2005 o godz. 21:20
andy jest offline   Odpowiedz cytując ten post