Question

1. Написать программу на языке Паскаль (линейный алгоритм) Найти произведение значений двух переменных и вывести результат на экран. 2. Написать программу на языке Паскаль (разветвляющийся алгоритм) Ввести два числа. Вычесть из большего меньшее. 3. Написать программу на языке Паскаль (алгоритмы с циклом) 3.1. Вывести на экран 3 раза свое ФИО. Особенность: одинаковые действия выполняются 3 раза. 3.2. Вычислить сумму ряда S = 1+1.5+2+2.5+3+3.5+…+ 20. 3.3. Написать программу ввода неопределённого ряда целых чисел до тех пор, пока не будет введён 9. После ввода 9 программа должна вывести сообщение «Программа заверщена».

Answer 1

1

var

ch1, ch2: Integer;

begin

readln(ch1, ch2);

WriteLn(ch1*ch2);

end.

2

var

ch1, ch2: Integer;

begin

readln(ch1, ch2);

WriteLn(abs(ch1-ch2));

end.

3.1

var

i:Integer;

begin

for i:=1 to 3 do

WriteLn('ФИО')

end.

3.2

var

ch, sum: real;

begin

sum:=0;

ch :=1;

while ch <= 20 do

begin

sum:= sum +ch;

ch:=ch+0.5;

end;

WriteLn(sum);

end .

3.3

var

ch:LongInt;

begin

ReadLn(ch);

while (ch>9) or (ch<9) do

begin

ReadLn(ch);

end ;

WriteLn('Программа завершена');

end .

как лучший

Answer 2

Программа на языке Паскаль (линейный алгоритм) для нахождения произведения двух переменных и вывода результата на экран:

pascalCopy code
program LinearAlgorithm;
var
  var1, var2, result: integer;
begin
  writeln('Введите первую переменную: ');
  readln(var1);
  writeln('Введите вторую переменную: ');
  readln(var2);
  result := var1 * var2;
  writeln('Произведение равно: ', result);
end.

Программа на языке Паскаль (разветвляющийся алгоритм) для вычитания меньшего числа из большего:

pascalCopy code
program BranchingAlgorithm;
var
  num1, num2, difference: integer;
begin
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);
  if num1 > num2 then
    difference := num1 - num2
  else
    difference := num2 - num1;
  writeln('Разность равна: ', difference);
end.

Программа на языке Паскаль (алгоритмы с циклом) для выполнения различных задач:

3.1. Вывести на экран 3 раза свое ФИО:

pascalCopy code
program LoopAlgorithm;
var
  i: integer;
  name: string;
begin
  name := 'Ваше ФИО';
  for i := 1 to 3 do
    writeln(name);
end.

3.2. Вычислить сумму ряда S = 1+1.5+2+2.5+3+3.5+...+20:

pascalCopy code
program LoopAlgorithm;
var
  i: integer;
  sum: real;
begin
  sum := 0;
  for i := 1 to 20 do
  begin
    if i mod 2 = 0 then
      sum := sum + i / 2
    else
      sum := sum + i;
  end;
  writeln('Сумма ряда равна: ', sum);
end.

3.3. Написать программу ввода неопределённого ряда целых чисел до тех пор, пока не будет введён 9. После ввода 9 программа должна вывести сообщение «Программа завершена»:

pascalCopy code
program LoopAlgorithm;
var
  num: integer;
begin
  repeat
    writeln('Введите число: ');
    readln(num);
  until num = 9;
  writeln('Программа завершена');
end.

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