Question

Turbo Pascal:

1. Napisz program, który poprosi o podanie z klawiatury długości promienia koła, wczyta ja z klawiatury, a następnie obliczy i wyświetli ile wynosi pole tego koła. Jeśli promień jest większy niż 6378, program ma skomentować: ZIEMIA MA MNIEJ, w przeciwnym razie: ZIEMIA JEST WIEKSZA.

2. Napisz program wyświetlający w kolumnie liczby od 1 do 20. Przy liczbach niepodzielnych przez 3 znajduje się odpowiedni komentarz.

3. Napisz program Zamiana złotówek na EURO. Program ma służyć do przeliczenia kwoty pieniędzy wyrażonej w złotówkach na kwotę Euro. Bieżący kurs Euro wynosi 4,125 zł.

Answer 1

//licze na naj..

1. Napisz program, który poprosi o podanie z klawiatury długości promienia koła, wczyta ja z klawiatury, a następnie obliczy  i wyświetli ile wynosi pole tego koła. Jeśli promień jest większy niż 6378, program ma skomentować: ZIEMIA MA MNIEJ, w przeciwnym razie: ZIEMIA JEST WIEKSZA.

 

program nazawa;
uses crt;
var
promien:integer;

begin
clrscr;

writeln('Podaj dlugosc promienia kola: ');
readln(promien);
writeln('Pole kola wynosi: ',(3.14*promien*promien):0:2);

writeln();
if promien > 6378 then
writeln('ZIEMIA MA MNIEJ')
else
begin
writeln('ZIEMIA MA MNIEJ');
end;


readln;
end.

 

2. Napisz program wyświetlający w kolumnie liczby od 1 do 20. Przy liczbach  niepodzielnych przez 3 znajduje się odpowiedni komentarz.

 

program nazwa;
uses crt;
var
x:integer;

begin
clrscr;
for x:=1 to 20 do
begin
if x mod 3 <> 0 then
writeln(x,'-niepodzielne, ')
else
writeln(x,', ');
end;

readln;
end.


3. Napisz program Zamiana złotówek na EURO. Program ma służyć do przeliczenia kwoty pieniędzy wyrażonej w złotówkach na kwotę Euro. Bieżący kurs Euro wynosi 4,125 zł.

 

program zamiana;
uses crt;
var
zloto:integer;

begin
clrscr;
writeln('Podaj kwote z zlotowkach: ');
readln(zloto);


writeln();
writeln('Kwota w EURO: ',zloto/4.125:0:2);

readln;
end.