Question

Написать 5 задач с решениями (сначала формулиовка, потом программа для нашей версии Паскаль) 1. линейная, 2 условный, 3. цикл for, 4. цикл while, 5. цикл repeat​

Answer 1

1. Даны высота треугольника h и площадь S. Вычислить сторону треугольника.

var h,S:integer;
a:real;
begin
writeln(“Input h and S”);
readln(h,S);
a:=S/h*2;
writeln(“a = “,a);
end.
2. На вход программы подается число, отличное от 0. Определить положительное оно или отрицательное.

var a:integer;
begin
writeln(“Input a”);
readln(a);
if a>0
writeln(“Positive”)
else
writeln(“Negative”);
end.
3. На вход программы подается число n. Вывести значения степеней 2 от 1 до n.

var n,i,c:integer;
begin
writeln(“Input n”);
readln(n);
c:=1;
For i:=1 to n do
begin
c:=c*2;
writeln(c);
end;
end.
4. На вход программы подается число. Вывести его факториал.

var a,n:integer;
begin
writeln(“Input a”);
readln(a);
n:=1;
while a<>1 do
begin
n:=n*a;
a:=a-1;
end;
writeln(n);
end.
5. На вход программы подается число, отличное от 0. Определить сумму цифр в числе.

var a,s:integer;
begin
writeln(“Input a”);
readln(a);
s:=0;
repeat
begin
s:=s+(a mod 10);
a:=a div 10;
end;
until a=0;
writeln(s);
end.

Answer 2

Конечно, вот 5 задач с решениями на языке Pascal:

1. Линейная задача: Задача: Напишите программу, которая вычисляет сумму двух чисел.

   pascalCopy code
   program SumOfTwoNumbers;
   var
     num1, num2, sum: integer;
   begin
     write('Введите первое число: ');
     readln(num1);
     write('Введите второе число: ');
     readln(num2);
     sum := num1 + num2;
     writeln('Сумма: ', sum);
   end.
   

2. Условный оператор: Задача: Напишите программу, которая определяет, является ли введенное число четным или нечетным.

   pascalCopy code
   program EvenOrOdd;
   var
     num: integer;
   begin
     write('Введите число: ');
     readln(num);
     if num mod 2 = 0 then
       writeln('Число четное')
     else
       writeln('Число нечетное');
   end.
   

3. Цикл for: Задача: Напишите программу, которая выводит на экран таблицу умножения для заданного числа.

   pascalCopy code
   program MultiplicationTable;
   var
     num, i: integer;
   begin
     write('Введите число для таблицы умножения: ');
     readln(num);
     for i := 1 to 10 do
       writeln(num, ' x ', i, ' = ', num * i);
   end.
   

4. Цикл while: Задача: Напишите программу, которая находит сумму всех чисел от 1 до заданного пользователем числа.

   pascalCopy code
   program SumOfNumbers;
   var
     n, sum, i: integer;
   begin
     write('Введите число: ');
     readln(n);
     sum := 0;
     i := 1;
     while i <= n do
     begin
       sum := sum + i;
       i := i + 1;
     end;
     writeln('Сумма чисел от 1 до ', n, ' равна ', sum);
   end.
   

5. Цикл repeat-until: Задача: Напишите программу, которая запрашивает у пользователя ввод чисел, пока не будет введен 0, и затем выводит сумму введенных чисел.

   pascalCopy code
   program SumUntilZero;
   var
     num, sum: integer;
   begin
     sum := 0;
     repeat
       write('Введите число (0 для завершения): ');
       readln(num);
       sum := sum + num;
     until num = 0;
     writeln('Сумма введенных чисел: ', sum);
   end.
   

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