|
Turbo Pascal
Właśnie się ucze programowania w tym języku. Napisałem "coś", tylko nie wiem czy dobrze. W tym programie chodzi o obliczenie sumy dwóch liczb i ewentualnie o ich podzieleniu przez dwa. Oto źródło tego programu (obeznanych proszę o pomoc):
program Liczenie;
uses crt;
var a,b,s: real;
begin
clrsrc;
write('Program wykonuje dodawanie i dzielenie ');
writeln('Wprowadz 1 liczbe: ');
read(a);
writeln('Wprowadź 2 liczbe: '):
read(b);
writeln(Czy chcesz podzielić sume tych liczb wpisz TAK lub NIE: ')
if read('TAK') THEN s:=a+b/2 ELSE read('NIE') s:=a=b
end;
write (s);
end;
begin
delay(5000)
end.
Odpowiedź potrzebuje przed godziną 12.00 dnia 22.12.2003
|