Tipo - Learn · Pascal · Типо Лерн · Урок 6

Perfect vision for programming

> урок 1 > урок 2 > урок 3 > урок 4 > урок 5 > урок 6 (Вы здесь) > урок 7
Циклические алгоритмы. Циклы for, while, repeat
Цикл со счетчиком for ЗАДАЧА: Создать случайное двузначное число. Найти количество его делителей и вывести их. Найти среднее арифметическое делителей числа. Является ли число правильным? Описание типов данных и создание двузначного числа uses crt; var a,i,k,sum:INTEGER; sr:REAL; BEGIN a:=10+RANDOM (90); writeln ('Загаданное число=',a); k:=0; sum:=0; write (' Делители числа ',a,': '); Нахождение количества и суммы делителей. FOR i:=1 TO a DO begin IF a mod i=0 THEN begin write (i,' '); // Выводим делитель INC (k); // Равносильно 'k:=k+1'. Считаем количество sum:=sum+i; // Считаем сумму. Равносильно 'INC (sum)' end; end; Выводим ответ writeln; writeln ('Количество=',k); sr:=sum/k; writeln ('Среднее арифметическое: ',sr:10:2); IF k=2 THEN writeln ('Число ',a,' простое') ElSE writeln ('Число ',a,' не является простым'); END.
Цикл с предусловием while ЗАДАЧА: Создайте случайное трехзначное число. Выведите и посчитайте количество чисел, меньше чем заданное, которые кратны 3, но не кратны 4 Описание типов данных и создание числа uses crt; var x,k,i:INTEGER; BEGIN x:=100+RANDOM (900); writeln ('Задуманное число=',x); i:=1; Создание цикла и условия проверки WHILE i<=x DO begin IF (i mod 4<>0) AND (i mod 3=0) THEN // Проверяем число. Если НЕ делится на 4 и делится на 3, то begin write (' ',i); // Выводит на экран число и пробел INC (k); // Равносильно 'k:=k+1' end; INC (i); end; writeln; writeln ('Количество подходящих = ',k); END.
Цикл с постусловием repeat ЗАДАЧА: Даны 4 числа (x1 (начальная координата x), x2 (конечная координата x), y1 (начальная координата y),y2 (конечная координата y)). Построить рамку циклом repeat uses crt; var x1,x2,y1,y2,x,y,cy,cx,ct,cf:INTEGER; BEGIN write ('Введите x1 '); readln (x1); write ('Введите x2 '); readln (x2); write ('Введите y1 '); readln (y1); write ('Введите y2 '); readln (y2); clrscr; // Процедура очистки экрана (Работает при включенном модуле 'crt') ct:=0; cf:=4; Заглушка IF x1>x2 THEN begin x:=x1; x1:=x2; x2:=x; cx:=cf; end; IF y1>y2 THEN begin y:=y1; y1:=y2; y2:=y; cy:=cf; end; IF x1>80 THEN x1:=80 ELSE IF x1 < 1 THEN x1:=1; IF x2>80 THEN x2:=80 ELSE IF x2 < 1 THEN x2:=1; IF y1>25 THEN y1:=25 ELSE IF y1 < 1 THEN y1:=1; IF y2>25 THEN y2:=25 ELSE IF y2 < 1 THEN y2:=1; IF (x1 < 1) OR (x1>80) OR (x2 < 1) Or (x2>80) THEN cx:=cf; IF (y1 < 1) OR (y1>25) OR (y2 < 1) Or (y2>25) THEN cy:=cf; Цикл вывода рамки на экран REPEAT gotoxy (x,y1); write (''); gotoxy (x,y2); write (''); x:=x+1; UNTIL (x2 < x); y:=y1; textcolor (cy); REPEAT gotoxy (x1,y); write (''); gotoxy (x2,y); write (''); y:=y+1; UNTIL (y2 < y) END.

Letyshops [lifetime]

2018-2020, Илья Любимов.

Автор - Tipo_4ek

По коммерческим предложениям - e-mail