pascal_5.pdf

Turbo Pascal cześć 5

ver. 1.1

Dziś poznamy najważniejsze funkcje występujące w Turbo Pascal, a dokładniej pętle. Są to instrukcje

grupujące (grupują kilka instrukcji) traktowane jako jedno polecenie.

W Pascalu istnieją trzy rodzaje pętli :

FOR

WHILE

REPEAT .. UNTIL

Dziś poznamy pętlę Repeat :

Pętla zaczyna się słowem kluczowym Repeat, dalej znajdują się instrukcje do wykonywania zakończone

słowem UNTIL i warunkiem. Instrukcję tą tłumaczy się następująco "Powtarzaj … dopóki …"

Jeśli warunek został spełniony przerywa pętle i kontynuuje program, jeśli nie to powraca do Repeat i znów

dochodzi do until itd.

Pamiętaj:

…………………………………………………………………………………………………………………......

………………………………………………………………………………………………………………….....

Przećwiczmy działanie tej pętli, na podstawie schematu blokowego.

Zadanie 1

Przeanalizuj krok po kroku schemat blokowy i napisz jaki będzie wynik.

………………………………………………………………………………………………………………….....

Zadanie 2

Przepisz poniższy program i opisz co robi.

Kurs opracował mgr Jarosław Teodorczuk

veljarek@poczta.gazeta.pl

Przepisz poniższy program i opisz co wykonuje.

Zadanie 3

PROGRAM Petla1;

USES Crt;

VAR n, x : Integer;

y : Real;

Zn : Char;

BEGIN

ClrScr;

Write('Podaj X : ');

ReadLn(x);

y:=1;

n:=1;

REPEAT

Write('N = ', n:3);

y:=x/n;

WriteLn(' X/N = ', y:7:5);

n:=n+1;

UNTIL y<0.2;

Zn:=ReadKey;

END.

Polecenie ReadKey oznacza "czytaj znak".

Zadanie 4

Co wykonuje poniższy program?

Program co_robie;

Uses CRT;

Const

haslo=’pascal’;

var

wprowadz:string;

petla:byte;

Begin

petla:=0;

Repeat

Clrscr;

gotoxy(31,12);

write(‘podaj haslo’);

readln(wprowadz);

if petla=4 then

repeat

clrscr;

gotoxy(31,12);

Write(‘access denied!’);

Sound(3160);

Delay(500);

Sound(3190);

Delay(500);

Until 1=2;

petla:=petla+1;

until wprowadz=haslo;

end.

Kurs opracował mgr Jarosław Teodorczuk

veljarek@poczta.gazeta.pl

………………………………………………………………………………………………………………….....

Zadanie 5

Napisz program, który wypisze 10-razy na ekranie tekst "I Love INFORMATYKA  "

………………………………………………………………………………………………………………….....

Zadanie 6

Napisz program, który sumuje podawane liczby, dopóki nie podamy zera

………………………………………………………………………………………………………………….....

Kurs opracował mgr Jarosław Teodorczuk

veljarek@poczta.gazeta.pl

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika: