Задача1. Составить процедуру нахождения квадрата суммы
действительных чисел и квадратного корня из этой суммы.
Используемые идентификаторы – обозначения:
a, b, c – данные числа;
z – сумма чисел;
x – квадрат суммы;
y – корень из суммы.
x1,y1- фактические параметры.
Программа:
program z1;
var x1,y1: real;
procedure expres ( a, b, c :real; var x, y: real);
var z: real;
begin
z:= a+b+c;
x:= sqr(z); {квадрат z}
y:= sqrt(z); {корень из z}
end;

{Основная программа}
begin
expres(25.4, 44.6, 30, x1, y1);
writeln( x1, y1);
end.

Формальные входные параметры a, b, c принимают значения фактических параметров a=25.4, b=44.6, c=30. При этих значениях выполняется процедура. Результатом выполнения процедуры являютcя x, y , которые передают свои значения соответствующим фактическим параметрам x1, y1. Таким образом, в основной программе будем иметь x1= 10000, y1= 10.

Задача 2. Оформим в виде процедуры SUMMA вычисление суммы 1+2+3+…+n
и произведения 123*…n целых чисел.

Используемые идентификаторы – обозначения:
n – количество чисел;
SUM – сумма чисел;
PR – произведение чисел:
i – параметр цикла;
k, x, y – формальные параметры.

Программа:

program z2;
var n: integer;
PR,SUM: real;

procedure SUMMA (k: integer; var x, y: real); {начало процедуры}
var i: integer;
begin
x:=0; y:=1;
for i:=1 to k do
begin
x:=x+i;
y:=yi;
end;
end; {конец процедуры}

{Основная программа}
begin
write (‘введите значение n: ’);
read (n);
SUMMA (n, SUM, PR);
writeln(‘SUM=’,SUM:5);
writeln(‘PR=’,PR:5);
end.

Отладочные данные:
Введите значение n : 10
SUM = 5.500000E+01
PR = 3.628800E+06

Задача 3. Даны действительные числа k, n, m. Получить:
f(-k, 2n, n-m) + f(1, 2, 3)
 , где f(a, b, c) = a2 + b2 + c2 - a - c.
f(m, k, n)
Для вычисления функции составьте под программу - функцию.

Задача 4. Даны действительные числа, среди которых есть положительные, отрицательные и ноль. Вычислите произведение чисел, отличных от нуля, используя процедуру Произв. и сумму отрицательных чисел, используя процедуру Сумм.

128

203

Посмотреть ответы 1

Ответы на вопрос:

zelenukanna2002

Информатика

4,5(37 оценок)

Коаванесколь пийувуко строавабы и коувучёт жетавамо увуон ритьавапода туаварабо оюувусв аваон етувудела коавалов бенаваспосо беувуте витьавауди.? несколько копий быстро и чётко может он подарить. работу свою он делает ловко способен тебе удивить? слоги после ава уву ставам вперед, перед ними назад. ответ «принтер»

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.