admin
|
|
« : Październik 03, 2011, 09:21:11 » |
|
W Turbo Pascalu instrukcja warunkowa realizowana jest przez złożone polecenie if....else. Składnia polecenia: if (warunek) then polecenie else polecenie;
np. if (x=10) then write('Adam') else write('Ewa');
Jeżeli x=10 to wyświetl napis Adam w przeciwnym wypadku wyświetl napis Ewa.
Uwaga: przed else nie ma średnika!!!!
|
|
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #1 : Październik 03, 2011, 09:50:59 » |
|
Jeszcze raz" Struktura instrukcji:if (warunek) then polecenie else polecenie; Przykład: if (x>10) then write('Liczba jest większa od 10') else write('to jednak inna liczba');
|
|
« Ostatnia zmiana: Październik 03, 2011, 10:12:36 wysłane przez admin »
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #2 : Październik 03, 2011, 10:33:29 » |
|
Przykład 1. Napisać program który prosi o podanie liczby. Jezeli podana liczba = 5 , program wyświetla komunikat : podałeś liczbe =5. Jeżeli podana została inna liczb wyświetlany jest komunikat: podano inną liczbe.
program misio; uses crt,dos; var x:integer; begin clrscr; write('Podaj dowolna liczbe calkowita: ');readln(x); if(x=5) then writeln('Podales liczbe =5')else writeln('Podales inna liczbe'); readkey; end.
|
|
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #3 : Październik 03, 2011, 10:58:41 » |
|
Zadanie 2. Napisać program który prosi o podanie liczby całkowitej, jeżeli liczba jest podzielna przez 2 to wyświetla komunikat liczba jest podzielna przez 2. W przeciwnym wypadku wyświetla komunikat podałeś inną liczbę.
program misio; uses crt,dos; var x,y:integer; begin clrscr; write('Podaj dowolna liczbe calkowita: ');readln(x); y:=x mod 2; if(y=0) then write('Liczba jest podzielna przez 2') else writeln('Liczba jest niepodzielna przez 2'); readkey; end.
|
|
« Ostatnia zmiana: Październik 03, 2011, 11:25:12 wysłane przez admin »
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #4 : Październik 03, 2011, 11:40:20 » |
|
Zadanie 3. Napisz program który prosi o podanie imienia jeżeli podano imie= rysio, wyświetla komunikat: "podano poprawne imie" w przeciwnym przypadku wyświetla komunikat: "błędne dane".
program misio; uses crt,dos; var x,y:integer; imie: string; begin clrscr; write('Podaj imie: ');readln(imie);
if(imie='rysio') then write('Podano poprawne imie') else writeln('Bedne dane'); readkey; end.
|
|
« Ostatnia zmiana: Październik 03, 2011, 11:57:37 wysłane przez admin »
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #5 : Październik 07, 2011, 09:20:16 » |
|
Zadanie 4. Napisz program który prosi o podanie dwóch liczb. Jeżeli podane liczby są sobie równe wyświetla komunikat : podano równe liczby. Jeżeli liczby nie są równe wyświetla komunikat: "podane liczby nie są równe"
program hermenegilda; uses crt, dos; var x,y :integer; begin clrscr; write('Podaj pierwsza liczbe: '); readln(x); write('Podaj druga liczbe: '); readln(y); if(x=y) then write('Podane liczby sa rowne!!!!') else write('Podane liczby roznia sie'); readkey; end.
|
|
« Ostatnia zmiana: Październik 10, 2011, 07:24:47 wysłane przez admin »
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #6 : Październik 07, 2011, 09:21:37 » |
|
Zadanie 5. Napisz program proszący o podanie dwóch imon. Program ma sprawdzać czy podano imiona zaczynające się na ta samą literę.
|
|
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #7 : Październik 07, 2011, 09:25:23 » |
|
Zadanie 6. Napisać program który prosi o podanie litery program sprawdza czy podaną literą jest litera A. Jeżeli wprowadzono literę A wyświetlany jest komunikat: podano literę A. W pozostałym wypadku wyświetlany jest napis: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!.
|
|
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #8 : Październik 07, 2011, 09:27:50 » |
|
Zadanie 7. Napisać program proszący o podanie trzech liczb całkowitych. Obliczający ich sumę. Jeżeli suma liczb jest większa od 20 , wyświetla komunikat: suma większa od 20 w przeciwnym wypadku wyświetla komunikat: suma mniejsza od 20.
|
|
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #9 : Październik 07, 2011, 09:30:08 » |
|
Zadanie 8. Napisać program proszący o podanie liczby. Następnie prosi o podanie drugiej liczby , Następnie prosi o podanie trzeciej liczby. Na ekranie wyświetla wartość największej wprowadzonej liczby.
|
|
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #10 : Październik 10, 2011, 07:58:50 » |
|
Zadanie X. Napisać program który prosi o podanie dwóch liczb. Po wprowadzeniu dwóch liczb prosi o podanie trzeciej liczby. Jeżeli trzecia liczba=1, wtedy program oblicza sumę dwóch pierwszych liczb, w przeciwnym wypadku oblicz ich różnicę
program hermenegilda; uses crt, dos; var x,y,z :integer; begin clrscr; write('Podaj pierwsza liczbe: '); readln(x); write('Podaj druga liczbe: '); readln(y); write('Podaj trzecia liczbe: '); readln(z); if(x=1) then write('Suma liczb=', x+y) else write('Roznica liczb=',x-y); readkey; end.
|
|
« Ostatnia zmiana: Październik 10, 2011, 10:31:49 wysłane przez admin »
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #11 : Październik 10, 2011, 08:02:07 » |
|
Zadanie XX. Napisać program który prosi o podanie imienia. Jeżeli podano imię Ala, program wyświetla komunikat "Witaj Ala", w przeciwnym wypadku wyświetla napis "To chyba pomyłka" i prosi o podanie liczby. Jeżeli wprowadzona liczba jest większa od 10 to wyświetla komunikat "Duża liczba" w przeciwnym wypadku wyświetla napis " Cos nie tak".
program hermenegilda; uses crt, dos; var x,y :string; z:integer; begin clrscr; write('Podaj imie: '); readln(x);
if(x='Ala') then write('Witaj Ala') else writeln('To chyba pomylka'); writeln('Podaj liczbe:');readln(z); if(z>10) then writeln('Duza liczba')else writeln('Cos nie tak'); readkey; end.
|
|
« Ostatnia zmiana: Październik 10, 2011, 10:36:27 wysłane przez admin »
|
Zapisane
|
|
|
|
admin
|
|
« Odpowiedz #12 : Październik 10, 2011, 08:05:51 » |
|
Zadanie XXL. Napisać program który prosi o podanie trzech liczb. Następnie wyświetla je od najmniejszej do największej oraz wiersz niżej od największej do najmniejszej.
|
|
|
Zapisane
|
|
|
|
|