Нарисовать блок-схемы для задач: Задача №3. Циклический вычислительный процесс, циклы с
параметром.
Program PR3;
Var n, k: integer; a, b, S: real;
Begin
WRITELN (‘Введите количество слагаемых’);
READLN (n);
If n<=0 then
Begin
WRITELN(‘Ошибка во входных данных’);
Halt;
End;
a:=1; b:=1;
S:=0;
For k:=1 to n do
Begin
a:=(SQRT (b) + SQRT (a/2))/2; b:=2 * a * a + b;
S:=S + a * b;
End;
WRITELN (‘S=’,S:10:3);
READLN;
End.
Задача №4. Циклические процессы.
Программа на языке Паскаль (цикл с предусловием).
Program PR4;
Const a=0.5; b=5; h=0.25;
Var x, y: real;
Begin
WRITELN(‘’);
WRITELN(‘:---x---:---y---:’);
WRITELN(‘’);
x:=a;
While x <= b + 0.001 do
Begin
y:=3/(x*x) + Ln (x);
WRITELN(‘:’,x:7:3,’:’,y:7:3,’:’);
x:=x + h;
End;
WRITELN(‘’);
READLN;
End.
5 Программирование обработки одномерных массивов
Program PR5;
Const M=20;
Var N, k: integer; C, D, P: real; l: Boolean; B: Array [1..M] of real;
Begin
WRITELN (‘Введите границы отрезка’);
READLN (C,D);
WRITELN (‘Введите размерность массива’);
READLN (N);
If (N<=0) OR (N>M) or (C>=D) then
Begin
WRITELN(‘Ошибка во входных данных’);
Halt;
End;
WRITELN (‘Введите массив’);
For k:=1 to N do
READ (B[k]);
READLN;
l:=False;
P:=1;
For k:=1 to N do
If (B[k] >= C) AND (B[k] <= D) then
Begin
l:=True;
P:=P * B[k];
End;
If l then
WRITELN (‘Произведение элементов массива, попавших в отрезок
[‘,C:5:2,’,’,D:5:2,’], = ‘,P:10:4)
else
WRITELN (‘Элементов, попавших в отрезок [‘,C:5:2,’,’,D:5:2,’], в массиве
нет’);
READLN;
End.

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

• 

  maz156

  25.06.2023 12:11
  Набор символов используемых для записи сообщения...
• 

  Простокнигоманка

  22.10.2020 14:42
  Какое из выражений имеет наибольшее значение? 1) 128 -маленькое10+64-маленькое10+8маленькое10+4маленькое10...
• 

  amnat5247

  14.08.2021 18:10
  Написать программу на паскале. создать двухмерный массив из целых чисел,...
• 

  davidmarabyan

  30.10.2021 09:34
  с самостоятельной работой. Сдать сегодня нужно ​...
• 

  lizka12343

  13.02.2021 08:11
  НАПИШИТЕ БЛОК-СХЕМУ ДЛЯ ЭТОЙ ПРОГРАММЫ Количество кратных 9 , k); end....
• 

  бык22

  19.06.2023 20:20
  Дайте решение в паскале только а Опрделите значения переменных s и...
• 

  janibek01

  05.04.2021 03:14
  1. Выберите из списка характерные особенности мультимедийных продуктов:...
• 

  VERONIKA114561378

  14.09.2021 01:07
  Чим відрізняється додавання зображень у середовищах програмування PyCharm...
• 

  fnnifnnr

  11.05.2023 11:13
  Создать проект, в котором из списка чисел нужно удалить элементы, значения...
• 

  Аrvin

  24.01.2020 15:51
  Впервичной обмотке собранного вами трансформатора сила тока изменяется...