5. Написать программу решения линейного уравнения с проверкой коэффициентов.
If a=0 then Writeln(‘Неверный коэффициент’) else
- Составить программу вычисления значения функции:
If x>c then y:=3*x+c else y:=x/c;
- Составить программу вычисления значения функции:
10. Составить программу, которая выводит на экран 5 раз слово «весна».
For n:=1 to 5 do writeln(‘Весна’);
11. Последовательность задана формулой n-го члена yn=1/(2*n). Вычислить и вывести первые 10 членов этой последовательности.
For n:=1 to 10 do
12. Последовательность задана формулой n-го члена yn=1/(2*n). Вычислить сумму первых 15 членов этой последовательности.
For n:=1 to 15 do
13. Напечатать таблицу квадратов натуральных чисел от 1 до n (n вводится с экрана).
Write(‘Сколько чисел? ’); Readln(n);
14. Написать программу для нахождения суммы вводимых чисел (целых). Количество чисел задается с клавиатуры.
var n,a,s,i :integer;
Урок 19. Оператор FOR — цикл с параметром. Программирование на Pascal / Паскаль
Write(‘Сколько чисел? ’); Readln(n);
write(‘Введите число: ‘); readln(a);
Writeln(‘Сумvа этих чисел равна ‘,s);
15. Написать программу для нахождения произведения натуральных чисел от 1 до n (n задается с клавиатуры). n!=
Var i,n,p: integer;
Write (‘n=’); Readln (n);
For i:=1 to n do p:=p*i;
Writeln(‘Произведение чисел от 1 до ‘,n,’ равнo ‘,p);
16. Написать программу для нахождения суммы четных чисел от 1 до n (n задается с клавиатуры).
Var i,n,s: integer;
if i mod 2 =0 then s:=s+i;
Writeln(‘Сумма четных чисел от 1 до ‘,n,’ равна ‘,s);
Задачи для самостоятельного решения
- Написать программу, которая вычисляет путь, зная скорость и время.
- Написать программу, которая вычисляет время, зная путь и скорость.
- Составить программу вычисления значения функции:
- Составить программу вычисления значения функции:
- Напишите программу нахождения наименьшего из трех чисел.
- Напишите программу нахождения наименьшего из четырех чисел.
- Составить программу, которая выводит на экран целые числа на интервале от m до n (m и n вводятся с клавиатуры).
- Составить программу, которая выводит на экран четные числа на интервале от m до n (m и n вводятся с клавиатуры).
- Составить программу, которая выводит на экран отрицательные числа на интервале от m до n (m и n вводятся с клавиатуры).
- Составить программу, которая выводит на экран числа, кратные 3, на интервале от m до n (m и n вводятся с клавиатуры).
13. Последовательность задана формулой n-го члена yn=1/n 2 . Вычислить и вывести первые m членов этой последовательности (m вводится с клавиатуры).
14. Последовательность задана формулой n-го члена yn=1/n 2 . Вычислить сумму первых m членов этой последовательности (m вводится с клавиатуры).
Pascal — типизированные файлы
15. Последовательность задана формулой n-го члена yn=1/n 2 . Вычислить произведение первых m членов этой последовательности (m вводится с клавиатуры).
16. Последовательность задана формулой n-го члена yn=1/n 2 . Вычислить произведение членов с аn по аm этой последовательности (n и m вводятся с клавиатуры).
17. Напечатать таблицу кубов натуральных чисел от 1 до n (n вводится с экрана).
18. Напечатать таблицу кубов натуральных чисел от m до n (m и n вводятся с экрана).
19. Напечатать таблицу кубов четных чисел на интервале от m до n (m и n вводятся с экрана).
20. Составить программу, которая считает количество четных чисел на интервале от m до n (m и n вводятся с клавиатуры).
21. Составить программу, которая выводит на экран четные числа на интервале от m до n и считает их количество (m и n вводятся с клавиатуры).
Источник: geum.ru
Написать программу которая 10 раз выводит на екран Имя и Фамилию. Это турбо паскаль — использование цыклов while, for и других.пожалуйста очень надо!!))
Ниже жирным шрифтом приведен код программы на Паскале. В фигурных скобках обычным шрифтом — комментарии. Можно их оставить — компилятор не сможет их прочитать и программа все равно будет работать. program printname;var first_name, family_name : string;i : byte; beginwrite(‘Введи свое имя: ‘);readln(first_name); write(‘Введи свою фамилию: ‘);readln(family_name); for i := 1 to 10 do writeln(family_name, ‘ ‘, first_name); end.
// Программа выводит по 10 раз имя и фамилию тремя разными циклами for while // repeat until Program LoopName; Uses Crt; var name,s_name:string; i:integer; begin clrscr; write(‘Введите имя: ‘); readln(name); write(‘Введите фамилию: ‘); readln(s_name); writeln(‘Цикл For’); for i:=1 to 10 do writeln(name,’ ‘,s_name ); writeln; writeln(‘Цикл while’); i:=1; while (i<=10) do begin writeln(name,’ ‘,s_name ); i:=i+1; end; writeln; writeln(‘Цикл repeat until’); i:=0; repeat writeln(name,’ ‘,s_name ); i:=i+1; until(i=10); readkey; end.
Источник: znanija.site
§ 4.6. Программирование циклических алгоритмов
Цикл с заданным условием продолжения работы (цикл-ПОКА) программируется в языке Паскаль с помощью оператора while. Общий вид оператора:
— логическое выражение; пока оно истинно, выполняется тело цикла;
— простой или составной оператор, с помощью которого записано тело цикла.
Запишем на языке Паскаль рассмотренный в п. 3.4.3 (пример 14) алгоритм получения частного q и остатка r от деления целого числа х на целое число у без использования операции деления.
4.6.2. Программирование циклов с заданным условием окончания работы
Цикл с заданным условием окончания работы (цикл-ДО) программируется в языке Паскаль с помощью оператора repeat. Общий вид оператора:
— логическое выражение; если оно ложно, то выполняется тело цикла.
Запишем на языке Паскаль рассмотренный в п. 3.4.3 (пример 17) алгоритм решения задачи о графике тренировок спортсмена.
4.6.3. Программирование циклов с заданным числом повторений
Цикл с заданным числом повторений (цикл-ДЛЯ) программируется в языке Паскаль с помощью оператора for. Его общий вид:
— переменная целого типа;
и — выражения того же типа, что и параметр, вычисляемые перед началом цикла;
— простой или составной оператор — тело цикла.
При выполнении этого оператора после каждого выполнения тела цикла происходит увеличение на единицу параметра цикла; условием выхода из цикла является превышение параметром конечного значения.
Запишем на языке Паскаль рассмотренный в п. 3.4.3 (пример 19) алгоритм вычисления степени с натуральным показателем п для любого вещественного числа а.
4.6.4. Различные варианты программирования циклического алгоритма
Свойством программирования является то, что для решения одной и той же задачи могут быть созданы разные программы. Вы могли убедиться в этом, программируя ветвления. Рассмотрим пример, показывающий, что и циклический алгоритм может быть запрограммирован разными способами.
Пример. Напишем программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчёт количества введённых положительных и отрицательных чисел.
Так как здесь в явном виде задано условие окончания работы, то воспользуемся оператором repeat.
Имеющееся условие окончания работы можно достаточно просто преобразовать в условие продолжения работы — работа продолжается, пока n ≠ 0. И мы можем воспользоваться оператором while:
В рассмотренном примере число повторений тела цикла заранее не известно. Поэтому оператор for здесь применить нельзя. Если число повторений тела цикла известно, то лучше воспользоваться оператором for. Вместе с тем любая задача, в которой число повторений тела цикла определено заранее, может быть запрограммирована с помощью любого из трёх рассмотренных выше циклов.
Самое главное
В языке Паскаль имеются три вида операторов цикла: while (цикл-ПОКА), repeat (цикл-ДО), for (цикл с параметром). Если число повторений тела цикла известно, то лучше воспользоваться оператором for; в остальных случаях используются операторы while и repeat.
Вопросы и задания
- Дана последовательность операторов:
Найдите ошибки. Допишите необходимые операторы и выполните программу на компьютере.
Проанализируйте следующий цикл:
В чём его особенность?
-
а) используйте оператор repeat;
б) используйте оператор while.
-
а) первых n натуральных чисел;
б) квадратов первых n натуральных чисел;
в) всех чётных чисел в диапазоне от 1 до n;
г) всех двузначных чисел.
Напишите программу, которая выводит на экран таблицу умножения на n(n — целое число в диапазоне от 2 до 10, вводимое с клавиатуры).
Источник: tepka.ru