Застосування складних команд 1. Програма визначення суми n чисел 1. Програма визначення суми n чисел 1. Програма визначення суми n чисел 1. Програма визначення суми n чисел 2. Заміна циклу For… циклом While 2. Заміна циклу For… циклом While 2. Заміна циклу For… циклом While 2. Заміна циклу For… циклом While 3. Заміна циклу For циклом repeat…until 3. Заміна циклу For циклом repeat…until 3. Заміна циклу For циклом repeat…until 3. Заміна циклу For циклом repeat…until 4. Програма визначення НСД 4. Програма визначення НСД 4. Програма визначення НСД 4. Програма визначення НСД 5. Програма перевірки простоти числа 5. Програма перевірки простоти числа 5. Програма перевірки простоти числа 5. Програма перевірки простоти числа 6. Вкладені цикли з параметром (For- For) 6. Вкладені цикли з параметром (For- For) 6. Вкладені цикли з параметром (For- For) 6. Вкладені цикли з параметром (For- For) 7. Програма виводу таблиці Піфагора 7. Програма виводу таблиці Піфагора 7. Програма виводу таблиці Піфагора 7. Програма виводу таблиці Піфагора Вкладені цикли Вкладені цикли For - While For - While For - While For - While While - For While - For While - For While - For For - Repeat For - Repeat For - Repeat For - Repeat Repeat - For Repeat - For Repeat - For Repeat - For While - Repeat While - Repeat While - Repeat While - Repeat Repeat - While Repeat - While Repeat - While Repeat - While < До змісту < До змісту< До змісту< До змісту

Програма визначення суми n введених чисел program Sum; uses Crt; var i, n : integer; x, s : real; begin ClrScr; WriteLn( n ?); ReadLn( n ); s := 0; for i := 1 to n do begin ReadLn( x ); s := s + x end; WriteLn( s =, s :8 :2); ReadKey end. Визначення сумиn чисел, що вводяться. Команди вводу- червоним кольо- ром, визначення суми (s)- синім кольором записане таким кольором- НЕ ОБОВЯЗКОВЕ

end; ЗАМІНА ЦИКЛУFOR ЦИКЛОМ З ПЕРЕДУМОВОЮ (WHILE) i:=i min ; while i<=i max do begin тіло цикла ; i:=i+1

ЗАМІНА ЦИКЛУFOR ЦИКЛОМ З ПІСЛЯУМОВОЮ (REPEAT... UNTIL) i:=i min ; repeat тіло цикла ; i:=i+1 until i >i max ;

ПРОГРАМА ВИЗНАЧЕННЯ НСД ( a, b ) program EVC ; uses Crt; var a, b,a1,b1, nsd : integer; begin ClrScr; WriteLn( a, b ?);ReadLn( a,b ); a1:=a ; b1:=b ; while a1 b1 do if a1 >b1 then a1 :=a1 - b1 else b1 :=b1 - a1 ; nsd := a1 ; WriteLn(нсд(, a,,,b,=,nsd ); ReadKey end. алгоритм Евкліда записане таким кольором- НЕ ОБОВЯЗКОВЕ Прослідкуйте за величинами, виділеними синім та червоним кольором

Програма перевірки простоти натурального числа N program PROST ; var N, i, l : integer; x : boolean; begin WriteLn( N ?); ReadLn( N ); x := true ; i := 2 ; l := trunc ( sqrt ( N ) ; while ( i < = l ) andx do begin if N mod i = 0 then begin x := false; i := l end ; i := i + 1 end; WriteLn( x ); end. В умові(i <= l) and x викорис- товується біжуче значенняx = = true (видно із виділеного чер- воним кольором)

В К Л А Д Е Н І ЦИКЛИ З ПАРАМЕТРОМ (FOR– FOR) for i:=i min to i max do for j:=j min to j max do тіло цикла ;

П Р О Г Р А М А В И В О Д У Т А Б Л И Ц І П І Ф А Г О Р А program PIFAGOR; uses Crt; var i, j : integer; форматований вивід елементів таблиці (кожен представля- ється, як двоцифрове число, вирівняне по пра- вому краю) begin ClrScr; for i := 2 to 9 do for j := 2 to 9 do begin GoToXY( i *3 + 10, j ); Write( i * j : 2) end; ReadKey end. Серед процедур модуляCrt (виділено кольором)в програмі особливе місце маєGoToXY (i*3 + 10, j). Вона управляє виводом на екран елементів таблиці.

В К Л А Д Е Н І Ц И К Л И (FOR– WHILE) for i:=i min to i max do begin j:=j min while j<=j max do begin тіло цикла ; j:=j+1 end;

В К Л А Д Е Н І Ц И К Л И(WHILE- FOR) i:=i min while i<=i max do begin for j:=j min to j max do тіло цикла ; i:=i+1 end;

В К Л А Д Е Н І Ц И К Л И(FOR– REPEAT) for i:=i min to i max do begin j:=j min repeat тіло цикла ; j:=j+1 until j>j max

ВКЛАДЕНІ ЦИКЛИ (REPEAT- FOR) i:=i min ; repeat forj:=j min toj max тіло цикла ; i:=i+1 untili>i max ;

ВКЛАДЕНІ ЦИКЛИ(WHILE- REPEAT) i:=i min while i<=i max do begin j:=j min repeat тіло цикла;j:=j+1 until j>j max i:=i+1

untili>i max ВКЛАДЕНІ ЦИКЛИ (REPEAT- WHILE) i:=i min ; repeat j:=j min ; while j<=j max do begin тіло цикла ; j:=j+1end; i:=i+1 ;