Задание № 3
Составить
программу, в которой с помощью оператора
While
подсчитать сумму ряда:
до тех пор пока член ряда не будет меньше 0,005.
Текст программы:
program zadanie3;
var i: integer; {Описание переменных. ( I-счётчик цикла, S-сумма ряда, P-член ряда)}
s,p:real;
begin
s:=0; i:=4; {Присвоение начальных значений переменным}
p:=(i+4)/(sqr(i)+i+10); {Вычисление начального значения члена ряда}
while p>=0.005 do {Выполнять пока член ряда не будет<0.005}
begin s:=s+p;
i:=i+1; {Увеличение значения счетчика на 1}
p:=(i+4)/(sqr(i)+i+10);
end;
writeln('Сумма ряда = ',S:14:11); {Вывод полученного значения}
end.
Задание № 4
Составить программу, в которой с помощью оператора While организовать цикл, в котором значения параметра t менялись от 0.5 до 5 с шагом h = 0.1. Вывести на экран значения t и функции.
t/ 1, для t<=3
y =
cos(t-3), для t>3
Текст программы:
program Zadanie4;
const h=0.01; {Объявление констант }
var {Объявление переменных}
t,y:real;
begin
t:=0.5; {Присваивание начального значения переменной}
while t<=5 do {Выполнять пока t меньше, либо равна 5}
begin
if t>3 then y:=cos(t-1) {Если t>3, выполнить следующие действия}
else y:=1/t; {Выполнять, если t<=3}
writeln('При t = ',t:3:1,'значение функции = ',y:7:3); {Вывести значение t и функции от t}
t:=t+h; {Увеличить t на шаг h}
end;
end.
Задание № 5
Составить программу, в которой с помощью оператора For подсчитать сумму ряда:
Блок схема программы:
Начало программы
Объявление переменных
Присваивание начального значения переменной S = 0
FALSE
Цикл для вычисления суммы ряда от I=1 до I=100. Условие: I<=100;
TRUE
Увеличить значение переменной S на 1/spr(I)+I+1
Вывести значение переменной S на экран
Закончить выполнение программы
Текст программы:
program Zadanie_5;
var
{Объявление переменных}
I:integer;
S:real;
begin
{Присваивание начального значения переменной, определяющей сумму ряда}
S:=0;
{Выполнять от I=1 до I=100}
for I:=1 to 100 do
{Прибавить к сумме очередное значение зависимое от I}
S:=S+1/sqr(I)+I+1;
{Вывести вычисленное значение суммы ряда на экран}
writeln('Сумма ряда равна = ',S:10:7);
end.
Задание № 6
Составить программу, в которой с помощью оператора Repeat продублировать функцию у=1/x=1 в диапазоне параметра от 1 до 5 с шагом 0,01.
Блок схема программы:
Начало программы
Объявление переменных и констант (H=0.001;)
Присвоить переменной X начальное значение 1
Цикл (Repeat)
Y:=exp(-X);
Вывести на экран значение переменной Y в зависимости от Х
X:=X+H;
TRUE FALSE
(Until) Х >5
Закончить выполнение программы
Текст программы:
program Zadanie_6;
{Объявление констант}
const
H=0.25;
var
{Объявление переменных}
X,Y:real;
begin
{Присваивание переменной начального значения}
X:=1;
{Цикл для нахождения значений функции в зависимости от х}
repeat
Y:=exp(-X);
{Вывести значение функции в зависимости от х}
writeln('При Х = ',X:7:2,' значение функции = ',Y:14:11);
{Увеличить значение х на шаг Н}
X:=X+H;
until X>5;
end.
Задание № 7
Составить программу в которой сформировать целочисленный массив А[1..50] из случайных чисел. Определить количество чётных и нечётных чисел в массиве. Функция логического типа ORD(x) = true, если х чётное и ORD(x) = false, если х нечётное.
(Скорее всего в тексте задания опечатка: действия предписываемые функции Ord выполняет функция Odd.)
Блок схема программы:
Начало программы
Объявление переменных и массива
Изменение базы (Randomize) и присваивание начальных значений переменным Ch:=0; NCh:=0;
FALSE TRUE
I <=50
Odd(A[I])=false
FALSE TRUE
NCh:=NCh+1;
Ch:=Ch+1;
I:=I+1
Вывести значения переменных на экран
