Yui
Administrator
Dołączył: 29 Wrz 2007
Posty: 45
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Gdynia Witomino
|
 Wysłany: Sob 16:44, 29 Wrz 2007 Temat postu: Zadania z zajęć z 29IX |
|
|
Nie daje 100% gwarancji że działa, nie są to też "jedyne słuszne rozwiązania" 
Zadanie 1
Napisz program który wypisze na ekranie kolejne liczby naturalne z przedziału zamkniętego od 23 do 45 oddzielone spacjami.
| Kod: | Program zadanie1;
var i : integer;
BEGIN
FOR i:=23 TO 45 DO
write(i);
readln;
END.
|
Zadanie 2
Napisz program który pobiera z klawiatury liczby podane przez użytkownika aż do momentu gdy ich suma jest równa 50
| Kod: | Program zadanie2;
var i,suma : integer;
BEGIN
suma:=0;
repeat
writeln ('Podaj liczbe jaka Ci sie podoba');
readln (i);
suma:=i+suma;
i:=i+1;
until suma>50;
writeln ('Suma Twoich cyferek wynosi ', suma);
readln
END.
|
Zadanie 3
Napisz program który wypisze wszystkie dwucyfrowe liczby parzyste podzielne przez 3
| Kod: | Program zadanie3;
var i: integer;
BEGIN
for i:=10 to 99 do
if (i mod 2=0) and (i mod 3=0) then
writeln(i);
readln;
END. |
Zadanie 4
Napisz program który pobiera trzy liczby i wyznacza najmniejszą z nich
| Kod: | Program zadanie4;
var a,b,c,min :integer;
BEGIN
writeln ('Podaj trzy liczby, oddzielajac je enterem, z kt˘rych chcesz zobaczyc jaka jest najmniejsza ');
readln (a,b,c);
if a<b then
min:=a
else
min:=b;
if min<c then
writeln ('Najmniejsza liczba jest ', min)
else
writeln ('Najmniejsza liczba jest ', c);
readln;
END. |
Zadanie 5
Napisz program który pobiera trzy liczby i wyświetla je w kolejności malejącej | Kod: | Program zadanie5;
uses crt;
var a,b,c,min,max :integer;
BEGIN
clrscr;
writeln ('Podaj trzy liczby, oddzielajac je enterem ');
readln (a,b,c);
writeln ('a = ', a);
writeln('b= ',b);
if a<b then
begin
min:=a;
max:=b;
end
else
begin
min:=b;
max:=a;
end;
if c<min then
writeln (max,' ',min,' ',c)
else
begin
if c>max then
writeln (c,' ',max,' ',min)
else
writeln (max,' ',c,' ',min);
end;
readln;
END. |
Zadanie 6
Napisz program który pobierze dwie liczby (całkowite) i zapyta użytkownika o ich iloczyn, a w przypadku złej odpowiedzi wyświetli komunikat o błędzie - chodzi o program do nauki tabliczki mnożenia | Kod: | Program zadanie6;
var a,b,c,iloczyn :integer;
BEGIN
Writeln ('Wpisz dwie liczby, pamietaj o oddzieleniu ich enterem');
readln (a,b);
iloczyn:=a*b;
repeat
Writeln ('Podaj ile wynosi iloczyn liczb ', a, ' i ', b);
Readln (c);
if iloczyn <>c then
writeln('Sorry, pomysl jeszcze raz')
else
writeln('Gratulacje!');
until iloczyn =c;
readln;
END. |
Ostatnie zadanie jest bez tej pętli powodującej iż po poprawnej odpowiedzi użytkownik może zacząć od początku
Post został pochwalony 0 razy
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
