Напишите программу на языке программирования которая увеличивает n в три раза
Учебник по Информатике 8 класс Босова
of your page -->
Задание 2. Дана последовательность операторов. Сколько раз будет повторен цикл и какими будут значения переменных a, b, s?
Ответ: 2 раза будет повторен цикл, a=3, b=6, s=9.
Задание 3. Требовалось написать программу вычисления факториала. Программист написал его неправильно. Ниже представлена программа, в которой содержатся ошибки. Найдите ошибки и внесите исправления.
Задание 4. Проанализируйте следующий цикл. В чём его особенность?
Значение переменной "c" будет типом boolean, то есть значение будет true или false. Выражение c:=a=b проверяет равенство "a" и "b" и будет делать проверку, пока a
Задание 5. Запишите на языке Паскаль программы решения задач № 26-30 из параграфа 2.4. Используйте оператор while.
Задание 6. Дана последовательность операторов. Сколько раз будет повторен цикл и какими будут значения переменных a, b, s?
Ответ: 4 раза будет повторен цикл, a=5, b=16, s=21.
Задание 7. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен ноль) и подсчет суммы и среднего арифметического введенных положительных чисел. Используйте оператор repeat.
Задание 8. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен ноль) и определение максимального (наибольшего) из введённых чисел. Используйте оператор repeat.
Задание 9. Напишите программы вычисления наибольшего общего делителя НОД двух целых чисел:
Задание 10. Сколько раз будет выполнен цикл?
а) for i:=0 to 15 do s:=s+1;
б) for i:=10 to 15 do s:=s+1;
в) for i:=-l to 1 do s:=s+1;
г) for i:=10 to 10 do s:=s+1;
д) k:=5; for i:=k-1 to k+1 do s:=s+1;
Задание 11. Напишите программу, которая 10 раз выводит на экран ваши имя и фамилию.
Задание 12. Напишите программу, выводящую на экран изображение шахматной доски, где черные клетки изображаются звёздочками, а белые – пробелами.
Задание 13. Напишите программу, которая вычисляет сумму:
а) первых n натуральных чисел;
б) квадратов первых n натуральных чисел;
в) всех чётных чисел в диапазоне от 1 до n;
г) всех двузначных чисел.
Задание 14. Напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит эти числа на экран и вычисляет их среднее арифметическое.
Задание 15. Запишите на языке Паскаль программы решения задач 33 и 34 из параграфа 2.4. Используйте оператор for.
В программе мы вводим изначальную численность населения. Далее она считает количество населения в каждый год и итогом будет количество населения через три года.
Задание 16. Напишите программу, которая выводит на экран таблицу степеней двойки (от нулевой до десятой).
Десятую степень не добавили в цикл, она отрабатывает после цикла и выводит эту степень ровно по вертикали.
Задание 17. Напишите программу, которая выводит на экран таблицу умножения на n (n – целое число от 2 до 10, вводимое с клавиатуры).
Задание 18. Какой из трёх рассмотренных операторов цикла является, по вашему мнению, основным, т.е. таким, что им можно заменить два других?
Рассмотренные операторы:
repeat until
while do
for 1 to n do
Я думаю, что циклы "repeat until" и "while do" могут заменить другие циклы. Цикл "for" не сможет заменить других, так как в этом цикле происходит известное количество повторений. А в двух других разница в том, что цикл "repeat until" сначала выполняется тело цикла и потом проверяется условие, а с циклом "while do" наоборот.
Решение заданий из учебника Информатика 8 класс Босова, параграф 3.5 Программирование циклических алгоритмов. Программирование циклов с заданным условием продолжения работы, с заданным условием окончания работы, с фиксированным числом повторений, различные варианты программирования циклического алгоритма.
Учебник по Информатике 8 класс Босова
of your page -->
Задание 2. Как на языке Паскаль записывается полное и неполное ветвление?
Неполное ветвление (Выполнение действия только для ветки «да»):
if then
Задание 3. Является ли условным оператором следующая последовательность символов?
Задание 4. Что такое составной оператор? Для чего он используется в условном операторе?
Составным оператором является конструкция вида:
begin end
которая может стоять в условном операторе и после then и после else.
Такая конструкция используется тогда, когда нужно выполнить последовательность из нескольких операторов.
Задание 5. Используя составной оператор, упростите следующий фрагмент программы:
if a>b then c:=1;
if a>b then d:=2;
if a if a
Задание 6. Дано натуральное трехзначное число. Напишите программу, которая определяет:
а) есть ли среди цифр данного числа одинаковые;
б) является ли данное число «перевертышем», то есть числом, десятичная запись которого читается одинаково слева направо и справа налево.
Задание 7. Даны две точки в плоской прямоугольной системе координат. Напишите программу, определяющую, которая из точек находится ближе к началу координат.
Программа будет запрашивать координаты двух точек. Следующим её шагом будет определение расстояния от начала координат до точек. Треугольник прямоугольный, координаты точки равны двум ее катетам. По теореме Пифагора найдем гипотенузы двух треугольников и сравним их. Чем меньше гипотенуза, тем ближе точка находится к началу координат.
Задание 8. Даны три натуральных числа. Напишите программу, определяющую, существует ли треугольник с такими длинами сторон. Если такой треугольник существует, то определите его тип (равносторонний, равнобедренный, разносторонний).
Задание 9. Имеются данные о количестве полных лет трех призеров спартакиады. Напишите программу, выбирающую и выводящую возраст самого младшего призера.
Задание 10. Напишите программу, определяющую, лежит ли точка A на прямой y=kx+l, над ней или под ней.
Сначала вводим данные для переменных: k, l, xA, yA (два последних это координаты точки A). Затем в уравнение y=kx+l подставим вместо «x» значение переменной xA и найдем значение «y» при заданной xA. Далее мы сравниваем значение «y» и «yB» и делаем вывод, где находится точка относительно прямой, на ней, над ней или под ней.
Задание 11. Напишите программу, которая производит обмен значений числовых переменных x и y, если x больше y.
Задание 12. Дан условный оператор:
if a else if a>5 then c:=2
else c:=3
Какое значение имеет переменная «a», если в результате выполнения условного оператора переменной «c» присваивается значение 3?
В нашем случае сработало третье условие. В первой условии значение переменной «a» меньше 5, а во втором больше 5. Значит переменная «а» равна 5. Ответ: a=5
Задание 13. Напишите программу, вычисляющую значение функции:
Задание 14. Составьте программу для решения задачи №21 к параграфу 2.4 (определение дня недели).
Задание 15. Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит 8. Напишите программу, которая по введенным координатам двух полей (k, l) и (m, n) определяет, имеют ли эти поля один цвет.
Сумма координат соседних (т.е. имеющих общую сторону) полей на шахматной доске отличается на 1. Следовательно, если сумма координат некоторого поля является четным числом, то сумма координат всех его соседних полей будет нечетным числом и наоборот. Вместе с тем соседние поля всегда имеют разный цвет.
Задание 16. Напишите программу, в которой пользователю предлагается дополнить до 100 некоторое целое число а (а – случайное число, меньшее 100). Ответ пользователя проверяется и комментируется.
Решение заданий из учебника Информатика 8 класс Босова, параграф 3.4 Программирование разветвляющихся алгоритмов. Условный оператор, составной оператор, многообразие способов записи ветвлений, многообразие способов записи ветвлений.
Учебник по Информатике 8 класс Босова
of your page -->
Задание 2. Напишите программу вычисляющую «y» для заданного «x» по формуле
y = x 3 + 2.5x 2 – x + 1 = ((x+2.5)x-1)x + 1
(Нельзя возводить в степень, в присваивании только одна арифметическая операция, не больше 5-ти операторов присваивания.)
Задание 3. Напишите программу, вычисляющую длину отрезка AB по заданным координатам точек A и B.
Формула нахождения длины отрезка по заданным координатам:
Задание 4. Известны длины сторон треугольника a, b, c. Напишите программу, вычисляющую площадь этого треугольника.
Задание 5. Известны координаты A, B, C треугольника. Напишите программу, вычисляющую площадь этого треугольника.
Задание 6. Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет ее до ближайшего рубля (до 50 копеек – с недостатком, свыше 50 копеек с избытком). Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить.
Задание 7. Исследуйте работу функции random, запустив многократно на выполнение программу в учебнике.
Как можно получить случайное число из интервала:
а) (0, x);
random (x-1) + 1;
б) (0, x];
random (x) + 1;
в) (n, x +n);
random (x+n-1) + n+1;
Задание 8. Одна компания выпустила билеты трёх разрядов: для молодежи, для взрослых и для пенсионеров. Номера билетов каждого разряда лежат в пределах:
Для молодежи: от 1 до 100;
Для взрослых: от 101 до 200;
Для пенсионеров – от 201 до 250.
Выберите случайным образом лотерейный билет в каждом разряде.
Задание 9. Запишите программу, которая для произвольного натурального двузначного числа определяет:
а) сумму и произведение его цифр;
б) число, образованное перестановкой цифр исходного числа.
Задание 10. Запишите программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу (s) наименьшим возможным количеством банкнот по 1000 (k1000), 500 (k500), 100 (k100), 50 (k50) рублей.
Задание 11. Идет k-я секунда суток. Разработайте программу, которая по введённой k-ой секунде суток определяет, сколько целых часов h и целых минут m прошло с начала суток.
Задание 12. Запишите программу, которая вычисляет сумму кодов букв в слове «БАЙТ».
Задание 13. Запишите на языке Паскаль программу, которая формирует и выводит на экран строку символов, коды которых равны 66, 69, 71, 73, 78.
Задание 14. Разработайте программу, которая запрашивает три строковые величины – взаимосвязанные прилагательное, существительное и глагол, а затем выводит все варианты фраз с использованием введенных слов.
Задание 15. Даны значения целочисленных переменных: a=10, b=20. Чему будет равно значение логической переменной rez после выполнения операции присваивания?
Задание 16. Составьте программу, вводящую true, если высказывание является истинным, и false в противном случае:
а) Сумма цифр трехзначного числа x является четным числом.
б) Треугольник со сторонами a, b, c является разносторонним.
Проверку существования треугольника со сторонами a, b, c в этой программе мы не выполняем.
Решение заданий из учебника Информатика 8 класс Босова, параграф 3.3 Программирование линейных алгоритмов. Числовые типы данных, символьный и строковый типы данных, логический тип данных.
Задача 1 . Напишите программу для выведения на экран трёх чисел в порядке обратном вводу
Задача 1.
Напишите программу для выведения на экран трёх чисел в порядке обратном вводу. Нужно ввести с клавиатуры три числа (первое, второе и третье), а компьютер должен вывести третье, затем первое и второе.
program tri_сhisla;
var a, b, c: integer;
begin
writeln('Введите три числа через пробел');
readln(a, b, c);
writeln(c,' ', a, ' ',b);
read
end.
Задача 2. Напишите программу, которая производит обмен значений переменных x и y , если x больше y
Задача 2.
Напишите программу, которая производит обмен значений переменных x и y, если x больше y.
program Obmen;
var x,y: integer;
begin
writeln('Введите значения x и y');
readln(x,y);
if x>y then
begin
x:=x+y;
y:=x-y;
x:=x-y;
writeln('x=',x);
writeln('y=',y);
readln
end;
end.
Задача 3. Напишите программу для вычисления наибольшего общего делителя двух целых чисел
Задача 3.
Напишите программу для вычисления наибольшего общего делителя двух целых чисел.
program nod1;
var
m, n: integer;
nod: integer;
begin
writeln ('Введите первое число m=');
readln (m);
writeln ('Введите второе число n=');
readln (n);
while m<>n do
if m>n then m:=m-n
else n:=n-m;
nod:=m;
writeln('НОД = ', nod);
readln
end.
program nod2;
var
m, n: integer;
nod: integer;
begin
writeln ('Введите первое число m=');
readln (m);
writeln ('Введите второе число n=');
readln (n);
repeat
if m>n then m:=m-n;
if m then n:=n-m
until m=n;
nod:=m;
writeln('НОД = ', nod);
readln
end.
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчет количества введенных положительных и отрицательных…
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен 0) и подсчет количества введенных положительных и отрицательных чисел.
program podschet_chisel_1;
var n, k1, k2: integer;
begin
k1:=0;
k2:=0;
repeat
writeln ('Введите целое число>>');
readln (n);
if n>0 then k1:=k1+1;
if nthen k2:=k2+1;
until n=0;
writeln ('Введено:') ;
writeln ('положительных чисел - ', k1);
writeln ('отрицательных чисел - ', k2);
readln
end.
Задача 5. Даны натуральные числа n и k
Задача 5.
Даны натуральные числа n и k. Составить программу вычисления выражения 1k + 2k + … + nk. Для решения задачи нужно организовать два цикла, один из которых поместим внутрь другого. Такие конструкции называют вложенными циклами.
program dvazikla;
var
n,k,sum,d,i,j : integer;
begin
writeln('Введите значения n и k через пробел');
readln(n,k);
sum:=0;
for i:=1 to n do
begin
d:= 1;
for j:=1 to k do
d:=d*i;
sum:= sum+ d;
end;
writeln(sum);
readln
end.
Задача 6. Проверить, является ли четырехзначное число счастливым билетом
Задача 6.
Проверить, является ли четырехзначное число счастливым билетом. Дано четырехзначное число. Проверить, является ли оно «счастливым билетом».
Счастливым билетом называется число, в котором: а) при четном количестве цифр в числе сумма цифр его левой половины равна сумме цифр его правой половины; б) при нечетном количестве цифр – то же самое, но с отбрасыванием серединной цифры.
program Schastliviy_bilet;
var
n: integer;
left, right: integer;
begin
writeln('Введите номер билета - четырёхзначное число');
readln(n);
right := n mod 10;
n := n div 10;
right := right + n mod 10;
n := n div 10;
left := n mod 10;
n := n div 10;
left := left + n;
writeln(left=right);
if left=right then writeln('Билет является счастливым')
else writeln('Билет не является счастливым');
readln
end.
Program Summa_ch; Var a, i, sum, n: integer;
Program Summa_ch;
Var a, i, sum, n: integer;
Begin
Writeln('Введите количество чисел nReadln(n);
sum:=0;
For i:=1 to n do
Begin
Writeln('Введите число’);
Readln(a);
sum:= sum + a;
End;
Writeln('sum=', sum);
readln
End.
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – СУММУ чисел.
Напишите программу, которая в последовательности натуральных чисел определяет
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, КРАТНЫХ 4. В последовательности всегда имеется число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – СУММУ чисел, кратных 4.
Program Summa_ch1;
Var a, i, sum, n: integer;
Begin
Writeln('Введите количество чисел nReadln(n);
sum:=0;
For i:=1 to n do
Begin
Writeln('Введите число’);
Readln(a);
if a mod 4 = 0
then sum:= sum + a;
End;
Writeln('sum=', sum);
readln
End.
Напишите программу, которая в последовательности натуральных чисел определяет
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2. В последовательности всегда имеется число, ОКАНЧИВАЮЩЕЕСЯ на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – СУММУ чисел, ОКАНЧИВАЮЩИХСЯ на 2.
Program Summa_ch2;
Var a, i, sum, n: integer;
Begin
Writeln('Введите количество чисел nReadln(n);
sum:=0;
For i:=1 to n do
Begin
Writeln('Введите число’);
Readln(a);
if a mod 10 = 2
then sum:= sum + a;
End;
Writeln('sum=', sum);
Readln
End.
Напишите программу, которая в последовательности натуральных чисел определяет
Напишите программу, которая в последовательности натуральных чисел определяет СУММУ чисел, чётных чисел. В последовательности всегда имеется чётное число. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – СУММУ чётных чисел.
Program Summa_ch3;
Var a, i, sum, n: integer;
Begin
Writeln('Введите количество чисел nReadln(n);
sum:=0;
For i:=1 to n do
Begin
Writeln('Введите число');
Readln(a);
if a mod 2 = 0
then sum:= sum + a;
End;
Writeln('sum=', sum);
Readln
End.
Подсчитайте, сколько среди данных
Подсчитайте, сколько среди данных N чисел нулей, положительных чисел, отрицательных чисел.
program chisla;
var
n, a, i, k, l, m: integer;
begin
k := 0;
l := 0;
m := 0;
writeln ('Введите количество чисел');
read(n);
for i := 1 to n do
begin
writeln ('Введите число');
read(a);
if (a = 0) then
k := k + 1;
if (a > 0) then
l := l + 1;
if (a < 0) then
m := m + 1;
end;
writeln(k, ' ', l, ' ', m, ' ');
end.
Задача 12. Дано натуральное число
Дано натуральное число N. Определить наименьшую и наибольшую цифры данного числа
program chislo1;
var
a, b, c: integer;
begin
writeln ('Введите число');
read(a);
b := 10;
c := -10;
while a > 0 do
begin
if (a mod 10 > c) then
c := a mod 10;
if (a mod 10 < b) then
b := a mod 10;
a := a div 10;
end;
writeln(b, ' ', c);
read
end.
Задача 13. Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке
Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. Последовательность завершается числом 0, при считывании которого программа должна закончить свою работу и вывести количество членов последовательности (не считая завершающего числа 0).Числа, следующие за числом 0, считывать не нужно
program posledov;
var
a, s: integer;
begin
s := 0;
writeln ('Введите число');
read (a);
while a <> 0 do
begin
s := s + 1;
read(a);
end;
writeln(s);
end.
Задача 14. Выведите все точные квадраты натуральных чисел, не превосходящие данного числа
program kvadratchislo;
var
i, n: integer;
begin
writeln ('Введите количество чисел');
read(n);
for i := 1 to n do
if sqr(i) then
writeln(sqr(i));
readln
end.
Задача 15. Определите количество четных элементов в последовательности, завершающейся числом 0
Определите количество четных элементов в последовательности, завершающейся числом 0. Само число 0, и все, что следует за ним, учитывать не нужно.
program posvedchet;
var
a, k: integer;
begin
k := 0;
writeln ('Введите число');
read(a);
while a <> 0 do
begin
if (a mod 2 = 0) then
k := k + 1;
read(a);
end;
writeln(k);
end.
В практической работе представлены примеры составления программ циклической структуры на языке программирования Паскаль, даны задания для самостоятельного выполнения.
Практическая работа №3
Программирование циклических алгоритмов на языке Паскаль
Цель работы : научиться программировать алгоритмы циклической структуры, освоить приемы организации цикла с предусловием, цикла постусловием и цикла с параметром на языке Паскаль.
Краткие теоретические сведения
Циклический алгоритм это алгоритм, в котором используется многократное выполнение набора команд, которые повторяются указанное число раз, или пока не выполнено заданное условие.
В Паскале существуют три оператора цикла:
• цикл while … do с предусловием
• цикл repeat … until с постусловием
• цикл for … to… do (с параметром)
Особенность данного вида цикла: операторы цикла будут повторяться до тех пор, пока условие истинно. Его проверка делается каждый раз перед выполнением операторов цикла. Цикл может ни разу не выполниться, если его условие ложно.
На рисунке показано два варианта записи данной структуры на языке программирования Паскаль: с использованием операторных скобок (begin end), выполнение двух и более команд; запись с одной командой.
Пример 1. Вывести на экран первые 10 натуральных чисел.
Program primer1; var i: integer ; begin i:= 1 ;
Пример 2. Напечатать слово «Привет» указанное количество раз.
Program primer2; var i,n: integer ; begin
write ( 'количество слов=' ); readln(n); i:= 1 ; while ido begin writeln( 'Привет' ); i:=i+ 1 end ; end.
Пример 3. Определить сумму введенных с клавиатуры чисел до тех пор, пока не будет введен ноль.
Решение данной задачи основывается на использовании цикла WHILE, т.к. мы не знаем, когда будет введен ноль, и мы перестанем вводить числа.
program primer3; var a,s: integer ; begin s:= 0 ;
writeln( 'Введите число' ); readln(a); while(a<> 0 ) do begin
s:=s+a; writeln( 'Введите число' ); readln(a); end; writeln( 'Сумма чисел равна ' ,S); end.
Пример 4. Вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30.
program primer4; var sum: real ; n: real ; BEGIN sum:= 0 ; n:= 1 ; while n do begin sum:=sum+n; n:=n+ 0.5 ; end;
writeln( 'Сумма равна ' ,sum); end.
Пример 5. Составить таблицу значений функции на отрезке [ -5; 5 ] с шагом 0.5.
program primer5; var x , y : real; begin
end ; end .
Пояснение: Под дробное число x выделяется четыре знакоместа. При этом значение числа x округляется до одного знака после запятой (x:4:1).
Для значения y выделяется пять знакомест, а округление идет до двух знаков после запятой (y:5:2)
Пример 6. Используя алгоритм Евклида, найти НОД двух чисел.
program NOD; var M, N: integer ; begin
writeln( 'Введите М и N' ); readln(M, N); while M<>N do begin
if M>N then M:=M-N else N:=N-M; end; write( 'Н0Д = ' ,M); end.
Особенность данного вида цикла: операторы цикла будут повторяться до тех пор, пока условие ложно. Его проверка делается каждый раз после выполнения операторов цикла. Команды, входящие в тело цикла, всегда выполняются хотя бы один раз.
Пример 7. Выполнить деление числа 100 на 2 до тех пор пока не получим число меньше 10.
program primer7; var b: real ; begin b:= 100 ; repeat b:=b/ 2 ; until b< 10 ; writeln(b); end.
Пример 8. Вывести на экран числа, начиная с 1 до тех пор пока число не станет равным 50.
program primer8; var b: real ; begin b:= 0 ; repeat b:=b+ 1 ; writeln(b); until b= 50 ; end.
У данного цикла есть и другие названия: цикл-для, цикл со счетчиком (оператор for to do, оператор цикла с параметром). Особенность данного цикла заключается в том, что использовать его нужно, когда заранее известно количество повторений команд. На рисунке представлена блок схема for (блок-схема цикла с параметром) и его запись на языке программирования Паскаль.
Параметр это целая величина, которая обозначается любой латинской буквой. Чаще всего используют символ i. Начальные и конечные значения параметра тоже целые числа. Счетчик цикла может работать в двух направлениях: увеличение или уменьшение значения параметра.
Как работает цикл с параметром?
Разберемся, как работает оператор for в Паскале. Выполнение начинается с получения переменной i начального значения а. Затем проверяется это значение с конечным значением n. Выполнение операторов цикла происходит в случае, когда i меньше или равно n (при положительном шаге счетчика) или i больше или равно n (при отрицательном шаге счетчика).
Пример 9. Напишите программу, которая выводит на экран 10 строк следующего содержания:
program for1; < название программы > var i: integer ; < описание переменных > begin
Пример 10. Напишите программу вывода на экран чисел от 1 до 10.
program for2; var i : integer ; begin
for i:= 1 to 10 do writeln (i); readln; end.
Пример 11. Напишите программу вывода на экран чисел от 10 до 1.
program for3; var i : integer ; begin
for i:= 10 downto 1 do writeln (i); readln; end.
Пример 12. Дано целое число N (> 0). Найти сумму чисел 1 · 2 · 3 · . . . (N слагаемых).
program for4; < название программы > var i,n,s: integer ; begin
write ( 'введите число слагаемых n=' ); read(n);
Пример 13. Дано целое число N (> 0). Найти произведение 1 · 2 · 3 · . . . (N сомножителей).
program for5; < название программы > var i,n: integer ; p: real ; begin
write ( 'введите число сомножителей n=' ); read(n);
Пример 14. Напишите программу, которая выводит значения функции y=kx+b на интервале [2, 8] с шагом 1.
rogram for6;
var x,a,n: integer ; < x- параметр цикла, a,n - интервал>k,b: real ; < коэффициенты функции> begin < начало программы >write( 'Введите значение k = ' ); readln(k);
write( 'Введите значение b = ' ); readln(b);
write( 'Введите значение начала интервала = ' ); readln(a);
write( 'Введите значение конца интервала = ' ); readln(n);
Самостоятельно:
1. Вычислить сумму первых 40 чисел натурального ряда.
2. Вывести на экран 20 раз свое имя и название группы.
3. Вывести на экран все двухзначные числа. Найти их сумму.
4. Вывести на экран все двухзначные числа в порядке их убывания.
5. Вычислить значение функции y = sin(x), для х меняющегося от - до с шагом /4.
6. Вычислить значение функции y = x 2 - 1 для х меняющегося от n1 до n2 с шагом 1.
7. Вычислить значение функции y = x 2 для х меняющегося от -6 до 6 с шагом 1.
8. Даны 10 чисел, найти их произведение.
9. Даны n действительных чисел. Найти среднее арифметическое всех элементов.
10. Дано натуральное число n. Вывести квадраты чисел от 1 до n.
1. Цикл с предусловием While выполняется до тех пор, пока условие выполнения не станет
ложным, и продолжается, если условие истинно.
2. Цикл с постусловием Repeat выполняется до тех пор, пока условие не станет истинно, если условие ложно, цикл продолжается.
3. Цикл с параметром For используется переменная, называемая параметром цикла или счётчиком. Перед выполнением цикла параметру (счётчику) устанавливается начальное значение. После выполнения шага цикла значение параметра увеличивается на единицу. Цикл продолжается до тех пор пока параметр не достигнет своего конечного значения, которое указывается после to (downto).
Читайте также: