русс | укр

Языки программирования

ПаскальСиАссемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование

Все о программировании


Linux Unix Алгоритмические языки Аналоговые и гибридные вычислительные устройства Архитектура микроконтроллеров Введение в разработку распределенных информационных систем Введение в численные методы Дискретная математика Информационное обслуживание пользователей Информация и моделирование в управлении производством Компьютерная графика Математическое и компьютерное моделирование Моделирование Нейрокомпьютеры Проектирование программ диагностики компьютерных систем и сетей Проектирование системных программ Системы счисления Теория статистики Теория оптимизации Уроки AutoCAD 3D Уроки базы данных Access Уроки Orcad Цифровые автоматы Шпаргалки по компьютеру Шпаргалки по программированию Экспертные системы Элементы теории информации

Структура оператора цикла с параметром


Дата добавления: 2015-06-12; просмотров: 2119; Нарушение авторских прав


Цикл по возрастающим значениям параметра имеет вид:

 

FOR I:= N1 TO N2 DO

Тело цикла;

следующий оператор;

Количество повторений зависит от параметра цикла I.

При первом вхождении в цикл, параметр цикла I принимает значение равное величине нижней границы N1 и выполняется оператор или операторы, записанные после служебного слова DO. Затем значение параметра увеличивается на 1 и вновь выполняется тело цикла. Подобные действия будут повторяться до тех пор, пока значение параметра цикла не станет больше величины N2, после чего осуществляется выход из цикла

Если тело цикла не содержит операторов, то цикл называется пустым.

Цикл по убывающим значениям параметра имеет вид:

 

FOR I:= N2 DOWNTO N1 DO

Тело цикла;

следующий оператор;

При первом вхождении в цикл, параметр цикла I принимает значение равное величине нижней границы N2 и выполняется оператор или операторы, записанные после служебного слова DO. Затем значение параметра уменьшается на 1 и вновь выполняется тело цикла. Подобные действия будут повторяться до тех пор, пока значение параметра цикла не станет меньше величины N1, после чего осуществляется выход из цикла

 

Пример выполнения работы:

 

Условие:   Вывести все целые числа от 20 до 50   Var I: integer; Begin For I:=20 To 50 Do Writeln(I); End. Условие:   Вычислить сумму 20+18+16+14+…+2 Var S,I: integer; Begin S:=0; For I:=20 DownTo 2 Do Begin S:=S+I; I:=I-1; End; Writeln(S); End.

Контрольные вопросы

 

· Когда используется цикл с параметром (со счетчиком)?

· Как работает оператор цикл с параметром?

· В чем разница между двумя способами записи оператора FOR?

· Как изменить шаг цикла?

· Сколько операторов включает тело цикла?




Варианты к лабораторной работе №5

(ваш номер по журналу соответствует номеру варианта)

Задание 1 Задание 2
Ввести целое числоN.Найти сумму первых N чётных натуральных чисел.
Вычислить 2/3+2/5+2/7+…+2/19
Ввести целое числоN. Вывести таблицу умножения для N от 1 до 10.
Определить сумму квадратов всех целых чисел в интервале, заданном значениями M и N.
Последовательно вводятся 10 целых чисел. Определить каких среди них больше: положительных или отрицательных.
Вычислить 2/3+3/4+4/5+…+19/20
Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 3.
Вычислить 2n+4n+6n+…+10n
Последовательно вводятся 10 целых чисел. Сосчитать сколько из них совпадают с первым числом.
Ввести 12 чисел. Определить сколько чисел кратно 5.
Последовательно вводятся 10 целых чисел. Найти разницу между наибольшим и наименьшим из них
Составить программу, запрашивающую пароль пользователя. В случае правильности пароля выводится фраза: “ Можно приступать к работе». если пароль 3 раза введен неверно, то вывести «Вызываю охрану»
Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел
Вычислить 1/3+1/6+1/9+…+1/30
Ввести М. Вычислить М!
Вывести квадраты целых чисел, кратных 3 в диапазоне от 3 до 21
Определить сумму квадратов всех целых чисел в интервале, заданном значениями M и N.
Вычислить 1/2 *1/5 * 1/8 *…*1/20
Вывести значения градусов по шкале Цельсия (С) и соответствующие им градусы по Фаренгейту (F) для значений от 1 до 15 градусов (С) с шагом 1 градус. Перевод осуществляется по формуле F = C * 1,8 + 32.
Вычислить (2 + 1 /2) ( 3 + 1 / 3 ) ( 4 + 1 / 4 ) ( 5 + 1 / 5 )…(10 + 1/10)
Вычислить сумму нечётных чисел от 1 до 99.
Вычислить ( cos 2 + 2 ) ( cos 4 + 4 ) ( cos 6 + 6)…( cos 20+20 )
Вывести чётные числа от 1 до 20.
Ввести целое число N. Найти сумму первых N чётных натуральных чисел.
Найти сумму квадратов целых чисел от 1 до 100.
Вычислить 0,1 x + 0,3 x + 0,5 x +…+ 2,1 x
Вычислить сумму конечного ряда: для N=30
Последовательно вводятся 10 целых чисел. Найти произведение тех, которые кратны 5.
Вычислить сумму конечного ряда:
Вывести числа в интервале от 10 до 100, кратные 3.
Ввести число. Найти, произведение целых чисел от 1 до введённого пользователем числа.
Вычислить сумму нечётных чисел от 1 до 99.
Ввести Х. Вычислить функцию sin(x)/x на интервале [1;12] c шагом 2
Вычислить значение функции Y=SINX-COSX на интервале от A до B с шагом H.
Ввести 8 чисел. Определить количество значений, превосходящих число 100.
Вычислить 10/3+9/3+8/3+…+1/3
Ввести 5 чисел. Вывести «да», если хотя бы одно число = 0.
Вычислить сумму чётных чисел на отрезке от 10 до 30.
Ввести N целых чисел. Найти количество чисел равных 10.
Ввести 20 чисел. Найти количество положительных и отрицательных
Ввести с клавиатуры 8 чисел. Определить среднее арифметическое положительных значений.
Вычислить (1+sin x)(2+sin 2x)(3+sin 3x)…(10+sin 10x)
Вычислить значения функции y=sin (3X + p/5) для X, изменяющегося от 2 до 15 с шагом 3.
Последовательно вводятся 10 целых чисел. Найти среднее арифметическое этих чисел
Вычислить значения функции y=An/n для n, изменяющегося от 1 до 15, с шагом 1, A=2.
Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N.
Вывести на экран таблицу значений SINX для аргумента, меняющегося от 0 до 30 с шагом 3
Вычислить 2/4+3/6+4/8+…+10/20
Вычислить значение Y=SIN X+COS X на интервале от A до B с шагом H
Вычислить 3/2+4/3+5/4+…+10/9
Ввести 12 чисел. Определить сколько чисел кратно 5.
Вычислить 0,2 x + 0,4 x + 0,6 x +…+ 2,2 x
Вычислить сумму чётных чисел на отрезке от 10 до 30.
Ввести 15 чисел. Определить количество чисел, которые больше заданного числа N.
Найти сумму нечётных чисел в диапазоне от 1 до 99 включительно.
Вычислить сумму конечного ряда:
Вычислить значение Y=SINX-COSX на интервале от A до B с шагом H.
Вычислить сумму нечётных чисел от 1 до 99.
Вводится последовательность из N целых чисел. Найти, сколько в ней чисел равных 10.
Ввести 8 чисел. Определить количество значений, превосходящих число 100.
Ввести 15 чисел. Определить количество чисел, которые меньше заданного числа N.
Вычислить (1+sin x_)(3+sin 3x) (5+sin 5x) …(11+sin 11x)


<== предыдущая лекция | следующая лекция ==>
Пояснения к работе | ЛАБОРАТОРНАЯ РАБОТА № 5а


Карта сайта Карта сайта укр


Уроки php mysql Программирование

Онлайн система счисления Калькулятор онлайн обычный Инженерный калькулятор онлайн Замена русских букв на английские для вебмастеров Замена русских букв на английские

Аппаратное и программное обеспечение Графика и компьютерная сфера Интегрированная геоинформационная система Интернет Компьютер Комплектующие компьютера Лекции Методы и средства измерений неэлектрических величин Обслуживание компьютерных и периферийных устройств Операционные системы Параллельное программирование Проектирование электронных средств Периферийные устройства Полезные ресурсы для программистов Программы для программистов Статьи для программистов Cтруктура и организация данных


 


Не нашли то, что искали? Google вам в помощь!

 
 

© life-prog.ru При использовании материалов прямая ссылка на сайт обязательна.

Генерация страницы за: 0.983 сек.