Успейте получить инструменты учителя по летним ценам! Скидки до 45% на комплекты видеоуроков и электронных тетрадей

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

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

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

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

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

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

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

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

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

Итоги урока

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

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

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

42 года

4 879

11 129

Подписчики

Подписки

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

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

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

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

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

16.03.2021 14:29

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

Задача: написать программу, которая выводит на экран все натуральные числа от 1 до n

Программа с циклом for

Program z;

var i,n:integer;

begin

writeln('Введите n');

readln(n);

for i:=1 to n do

write(i,' ');

end.

Программа с циклом while

Program z;

var i,n:integer;

begin

writeln('Введите n');

readln(n);

i:=1;

while i

begin

write(i,' ');

i:=i+1;

end;

end.

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

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

Задача: написать программу, которая выводит на экран все натуральные числа от 1 до n

Программа с циклом for

Program z;

var i,n:integer;

begin

writeln('Введите n');

readln(n);

for i:=1 to n do

write(i,' ');

end.

Программа с циклом while

Program z;

var i,n:integer;

begin

writeln('Введите n');

readln(n);

i:=1;

while i

begin

write(i,' ');

i:=i+1;

end;

end.

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

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