Question

написать 3 программы : 1. На линейный алгоритм 2. На ветвление 3. На циклический алгоритм. Написать на языке программирования Паскаль.​

Answer 1

2)

Program g;

Var

a:integer;

begin

readln(a) ;

Begin

if a<0 then

Write(a*-1) end;

Begin

if a>0 then

Write(a*-1) end;

End.

3)

Program h;

Var

a, b:integer;

Begin

Readln(a) ;

Begin

While a<100 do

Begin

a:=a+1;

Write(a, ' ' ) end;

End;

End.

Answer 2

Конечно, вот примеры трех программ на языке программирования Pascal, реализующих линейный алгоритм, ветвление и циклический алгоритм.

Программа 1: Линейный алгоритм (вычисление суммы двух чисел)

pascalCopy code
program LinearAlgorithm;
var
  num1, num2, sum: Integer;
begin
  writeln('Введите два числа:');
  readln(num1);
  readln(num2);

  sum := num1 + num2;

  writeln('Сумма чисел: ', sum);
end.

Программа 2: Ветвление (определение четности числа)

pascalCopy code
program Branching;
var
  number: Integer;
begin
  writeln('Введите число:');
  readln(number);

  if number mod 2 = 0 then
    writeln('Число четное')
  else
    writeln('Число нечетное');
end.

Программа 3: Циклический алгоритм (вывод чисел от 1 до 10)

pascalCopy code
program LoopAlgorithm;
var
  i: Integer;
begin
  writeln('Числа от 1 до 10:');
  for i := 1 to 10 do
    writeln(i);
end.

Вы можете сохранить каждую из этих программ в отдельный файл с расширением ".pas" и выполнить их с использованием среды разработки, поддерживающей язык Pascal (например, Free Pascal или Lazarus).