Question

ЯЗЫК ПАСКАЛЬ КУ МИР 1 – Составьте алгоритм, который: а) запрашивает два числа и выводит их полусумму; УМОЛЯЮ ХОТЬ ЧТОНИБУДЬ1 – Составьте алгоритм, который:а) запрашивает два числа и выводит их полусумму;б) запрашивает пять целых чисел и выводит квадраты этих чисел;в) запрашивает четыре вещественных числа a, b, c, d и с помощью Чертёжника рисует отрезок от точки (a,b) до точки (c,d);г) запрашивает три вещественных числа a, b, r и c и с помощью Чертёжника приближенно рисует окружность радиуса r с центром в точке (a, b);д) запрашивает целое число n в диапазоне от 1 до 100 и сообщает, простое оно или нет.2– Составьте алгоритм, который вводит последовательности чисел и сообщает:а) их произведение;б) наибольшее из всех чисел последовательности;в) количество отрицательных чисел в последовательности;г) количество повторений первого числа в последовательности.УМОЛЯЮ РАСПИШИТЕ ПОДРОБНО ПОЛНОСТЬЮ ПРОГРАММЫ Я ПРОСТО НЕ МОГУ УМОЛЯЮ Я НЕ ЗНАЮ КАК ЕЩЁ ПРОСИТЬ ​

Answer 1

1.

а)

var a, b: integer;

read(a, b);

writeln((a + b) / 2);

б)

var a, b, c, d, e: integer;

read(a, b,c, d, e);

writeln(a*a, b*b, c*c, d*d, e*e);

в) Не знаю это.

д) Решето Эратосфена.

2)

а)

array [1..n] of integer;

var c: integer;

c := 1;

read(n);

while //запускаем цикл для ввода значений массива и подсчёта произведения

read(a[n]);

c = c * a[n];

end;

writeln(c);

б)

array [1..n] of integer;

var c: integer;

read(a[0]);

c := a[0];

while //запускаем цикл для ввода значений массива и определения максимального элемента

read(a[n]);

if {

c > a[n];

} then c := a[n];

end;

writeln(c);

в)

array [1..n] of integer;

var c: integer; //переменная-счётчик

while //запускаем цикл для ввода значений массива и определения количества отрицательных чисел

if {

a[n] < 0;

} then c := c + 1;

end;

writeln(c);

г)

array [1..n] of integer;

var c: integer; //переменная-счётчик

while //запускаем цикл с позиции a[1] для ввода значений массива и определения количества искомых элементов

if {

a[n] = a[0];

} then c := c + 1;

end;

writeln(c);

Answer 2

Конечно, давайте пошагово разработаем алгоритмы для каждой из ваших задач на языке Паскаль.

Задача 1: а) Запрос двух чисел и вывод их полусуммы.

pascalCopy code
program HalfSum;
var
  num1, num2, halfSum: real;
begin
  writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  halfSum := (num1 + num2) / 2;
  writeln('Полусумма введенных чисел: ', halfSum);
end.

Задача 2: а) Запрос последовательности чисел и вывод их произведения.

pascalCopy code
program ProductOfSequence;
var
  num, product: real;
begin
  product := 1;
  writeln('Введите последовательность чисел (для завершения введите 0): ');
  
  repeat
    readln(num);
    product := product * num;
  until num = 0;
  
  writeln('Произведение чисел: ', product);
end.

б) Запрос последовательности чисел и вывод наибольшего числа.

pascalCopy code
program MaxOfSequence;
var
  num, maxNum: real;
begin
  maxNum := -1E10; // Начальное значение для поиска максимума
  
  writeln('Введите последовательность чисел (для завершения введите 0): ');
  
  repeat
    readln(num);
    if num > maxNum then
      maxNum := num;
  until num = 0;
  
  writeln('Наибольшее число: ', maxNum);
end.

в) Запрос последовательности чисел и вывод количества отрицательных чисел.

pascalCopy code
program CountNegativeNumbers;
var
  num, countNegatives: integer;
begin
  countNegatives := 0;
  
  writeln('Введите последовательность целых чисел (для завершения введите 0): ');
  
  repeat
    readln(num);
    if num < 0 then
      countNegatives := countNegatives + 1;
  until num = 0;
  
  writeln('Количество отрицательных чисел: ', countNegatives);
end.

г) Запрос последовательности чисел и вывод количества повторений первого числа.

pascalCopy code
program CountRepetitions;
var
  num, firstNum, countRepetitions: integer;
begin
  countRepetitions := 0;
  
  writeln('Введите последовательность целых чисел (для завершения введите 0): ');
  readln(firstNum); // Считываем первое число
  
  repeat
    readln(num);
    if num = firstNum then
      countRepetitions := countRepetitions + 1;
  until num = 0;
  
  writeln('Количество повторений первого числа: ', countRepetitions);
end.

Для задачи 1 (в) и (г), которые требуют рисования с помощью Чертёжника, вам потребуется дополнительная библиотека или среда разработки, поддерживающая графический вывод. Подробности по рисованию на графическом холсте могут отличаться в зависимости от используемой среды.