С клавиатуры вводится два числа выведите на экран наименьшее
Оператор ц икла FOR (Цикл со счетчиком).
Формат оператора с увеличением перемнной:
FOR переменная := выражение1 ТО выражение2 DO оператор;
Переменная должна быть порядкового типа.
Порядковыми называются все простые типы, значения которых можно расположить в возрастающем порядке. Из известных нам это: INTEGER, WORD, LONGINT, BYTE, CHAR.
Выражение1 и Выражение2 должны быть того же типа, что и переменная.
Чтобы цикл выполнился хотя бы раз выражение1 должно быть не больше выражения2.
Выполнение начинается с вычисления значений выражения1 и выражения2. затем переменная получает значение выражения1 и делается проверка, не превышает ли значение переменной выражения2. Если не превышает, выполняется оператор стоящий после служебного слова DO. После завершения оператора переменная получает следующее по порядку значение, и все повторяется, начиная с проверки.
Когда значение переменной становится равным выражению2, оператор выполняется последний раз.
Если надо выполнять не один, а несколько операторов, то надо использовать составной оператор, то есть использовать операторные скобки BEGIN . END
Возможен вариант оператора цикла FOR , когда переменная принимает последовательно убывающие значения.
Формат оператора с уменьшением переменной:
FOR переменная := выражение1 DOWNТО выражение2 DO оператор;
В этом случае, чтобы цикл выполнился хотя бы раз, выражение1 должно быть не меньше выражения2.
Например:
For c:='z' downto 'а' do writeln(с);
Пример 1. (Сравните с примером предыдущих уроков)
For C:=1 To 9 Do
WriteLn(‘C=’,C);
На экран будет выведен столбик цифр от 1 до 9.
После чего начнет выполняться оператор, следующий за WriteLn
ПРИМЕР 2. Вычислить значение факториала N !
program factorial ;
var i, n : integer;
f: longint;
write('Введите значение N ');
for i:=1 to n do f:=f*i;
ПРИМЕР 3. Напечатать ряд из повторяющихся чисел 20 в виде :
20 20 20 20 20 20 20 20 20 20
var i: byte;
begin
for I:=1 to 10 do write(20,' ');
readln;
end.
ПРИМЕР 4. Напечатать числа следующим образом:
10 10.4
11 11.4
. . .
25 25.4
var i: byte;
begin
for I:=10 to 25 do write(I,' ',I+0.4:0:1);
вещественный результат, значит надо выполнить его
форматирование при выводе на экран>
readln;
end.
Тренировочные задания.
1.Напечатать столбиком:
а) все целые числа от 20 до 35;
б) квадраты всех целых чисел от 10 до b (значение d вводится с клавиатуры; b>=10);
в) третьи степени всех целых чисел от а до 50 (значение а вводится с клавиатуры; а<=50);
г) все целые числа от а до b (значения а и b вводятся с клавиатуры; d>=a).
2. Напечатать числа следующим образом
25 25.5 24.8
26 26.5 25.8
. . .
35 35.5 34.8
3. Распечатать в столбик таблицу умножения на 7.
4. Вывести столбиком следующие числа: 2,1 2,2 2,3 . . . , 2,8
5. Вывести столбиком следующие числа: 2,2 2,4 2,6 . . . , 4,0 4,2
6. Вывести столбиком следующие числа: 4,4 4,6 4,8 . . . , 6,2 6,4
Разбор заданий урока 12.
1. CHR(ORD(X))= Х
2. Определить значения следующих функций (как правило таблица ASCII -кодов есть в любом справочнике по программированию):
CHR(68)=D
ORD('d')=100
PRED(1) =0
SUCC('Я')=а
3. С клавиатуры вводится два числа. Составить программу сравнивающую эти числа и в зависимости от результата сравнения выводящую на экран нужный знак. Например: 3<5 или 3=3 или 3>2. Процедуру WRITE для вывода результата разрешается использовать только один раз.
Var x,y:integer;
C:char;
Begin
Write(' Введите два числа ');
Readln(x,y);
If x=y then c:='=';
If x>y then c:='>';
If x<y then c:='<';
Writeln(x,c,y);
Readln;
End.
Написать программу, которая создает одномерный массив из N целых чисел. Количество чисел в массиве и сами числа вводятся с клавиатуры. Вывести содержимое массива на экран.
Задача 2
Написать программу, которая выводит таблицу перевода расстояний в дюймах в сантиметры для значений от n до m дюймов (1 дюйм = 2,54 см)
Задача 3
Начав тренировки, спортсмен в первый день пробежал М км. Каждый день он увеличивал дневную норму на Р% нормы предыдущего дня. В какой день впервые спортсмен пробежит более K км?
Задача 4
Написать программу, которая создает одномерный массив из N целых чисел. Количество чисел в массиве и сами числа вводятся с клавиатуры. Вывести содержимое массива на экран. Вывести на экран среднее арифметическое элементов массива.
Задача 5
Написать программу, которая выводит таблицу умножения числа N в интервале от L до K. Ввод N, L,K выполнять с клавиатуры.
Задача 6
Написать программу, которая создает одномерный массив из N целых чисел. Количество чисел в массиве и сами числа вводятся с клавиатуры. Вывести содержимое массива на экран. Вывести на экран все элементы массива большее заданного числа К.
Задача 7
Написать программу, которая создает одномерный массив из N целых чисел. Количество чисел в массиве и сами числа вводятся с клавиатуры. Вывести содержимое массива на экран. найти и вывести на экран сумму всех четных элементов массива.
Задача 8
Клиент оформил вклад на m тысяч рублей в банке под k% годовых. Через сколько лет сумма вклада превысит s тысяч рублей, если за это время клиент не будет брать деньги со счета.
Задача 9
Написать программу, которая создает одномерный массив из N целых чисел. Количество чисел в массиве и сами числа вводятся с клавиатуры. Вывести содержимое массива на экран. Найти наибольший элемент массива.
Задача 10
Написать программу, которая создает одномерный массив из N целых чисел. Количество чисел в массиве и сами числа вводятся с клавиатуры. Ввести число L. Все элементы массива больше L заменить на число 5. Вывести на экран элементы введенного массива и полученного.
Задача 11
Бизнесмен взял ссуду m тысяч рублей в банке под k% годовых. Рассчитать его долг через N лет , если за это время он не будет отдавать долг?
Задача 12
Написать программу, которая создает одномерный массив из N целых чисел. Количество чисел в массиве и сами числа вводятся с клавиатуры. Вывести содержимое массива на экран. Найти сумму элементов массива кратных 3.
Читайте также: