Смотрите запись вебинара для учителей о современных инструментах, повышающих эффективность обучения в классе и дистанционно

СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Выбрать материалы

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Была в сети 18.05.2025 20:12

Дегтянникова Олеся Сергеевна

учитель информатики

42 года

4 909

11 222

Подписчики

Подписки

Местоположение

Россия, г. Хабаровск

Обо мне Блог Файлы Тесты Галерея Активность Награды

Практикум Паскаль. Цикл с параметром (цикл FOR)

Категория: Информатика

11.02.2021 14:48

Просмотр содержимого документа
«Практикум Паскаль. Цикл с параметром (цикл FOR)»

Пример: Вывести на экран 5 раз «Hello»

Program primer1;

var i: integer;

begin

for i:=1 to 5 do

begin

write(‘Hello ’);

end;

end.

Пример: Написать программу, которая подсчитывает сумму натуральных чисел от 1 до n (n вводится с клавиатуры)

Program primer2;

var i,n,s: integer;

begin

s:=0;

writeln ('Введите число, до которого будем считать сумму');

readln (n);

for i:= 1 to n do

begin

s:=s+i

end;

writeln ('Сумма натуральных чисел от 1 до ',n, ' равна ',s);

end.

Задания для самостоятельной работы:

Сто раз написать свои имена на экране в строчку
Дано целое число, вывести его на экран «в столбик» 5 раз
Даны целые числа K и N. Вывести N раз число K.
Написать программу, которая выводит на экран все натуральные числа от 1 до n (n вводится с клавиатуры)
Написать программу, которая выводит на экран все натуральные числа от n до 1
Написать программу, которая выводит на экран: 20 40 80 160 320
Написать программу, которая подсчитывает произведение натуральных чисел от 1 до n
Написать программу, которая выводит на экран табл. умножения, например на 6.
Дано действительное число – цена 1 кг конфет. Вывести стоимость 1, 2 … 15 кг конфет.
Дано действительное число – цена 1 кг конфет. Вывести стоимость 0,1; 0,2 … 1,2 кг конфет.
Даны действительные числа x, y. Найти произведение всех целых чисел, расположенных между х и у, а также количество этих чисел.

Пример: Вывести на экран 5 раз «Hello»

Program primer1;

var i: integer;

begin

for i:=1 to 5 do

begin

write(‘Hello ’);

end;

end.

Пример: Написать программу, которая подсчитывает сумму натуральных чисел от 1 до n (n вводится с клавиатуры)

Program primer2;

var i,n,s: integer;

begin

s:=0;

writeln ('Введите число, до которого будем считать сумму');

readln (n);

for i:= 1 to n do

begin

s:=s+i

end;

writeln ('Сумма натуральных чисел от 1 до ',n, ' равна ',s);

end.

Задания для самостоятельной работы:

Сто раз написать свои имена на экране в строчку
Дано целое число A, вывести его на экран «в столбик» 5 раз
Даны целые числа K и N. Вывести N раз число K.
Написать программу, которая выводит на экран все натуральные числа от 1 до n (n вводится с клавиатуры)
Написать программу, которая выводит на экран все натуральные числа от n до 1
Написать программу, которая выводит на экран: 20 40 80 160 320
Написать программу, которая подсчитывает произведение натуральных чисел от 1 до n
Написать программу, которая выводит на экран табл. умножения, например на 6.
Дано действительное число – цена 1 кг конфет. Вывести стоимость 1, 2 … 15 кг конфет.
Дано действительное число – цена 1 кг конфет. Вывести стоимость 0,1; 0,2 … 1,2 кг конфет.
Даны действительные числа x, y. Найти произведение всех целых чисел, расположенных между х и у, а также количество этих чисел.