Задачи для программирования Pascal «Линейные и разветвляющиеся алгоритмы»

Линейные алгоритмы

Задача 1. Даны две целые переменные A,B. Составить фрагмент программы, после исполнения которого, значения переменных поменялись бы местами (новое значениеA равно старому значению Bинаоборот).

VAR

A, B, T : INTEGER;

BEGIN

Write( ' Введите два значения ');

ReadLn(A,B);

T := A; A := B; B := T;

Write(A,B);

end.

Задача 2. Решить предыдущую задачу, не используя дополнительных переменных (и предполагая, что значениями целых переменных могут быть произвольные целые числа).

VAR

A, B : INTEGER;

BEGIN

Write( ' Введите два значения ');

ReadLn(A,B);

A := A + B; B := A - B; A := A - B;

Write(A,B);

END.

Задача 3. Мальчик купил несколько тетрадей по сто рублей и несколько обложек по 50 рублей. Составить программу, которая могла бы подсчитать стоимость всей покупки.

VAR

A, B, T : INTEGER;

BEGIN

Write( ' Введите количество купленных тетрадей ');

ReadLn(A);

Write( ' Введите количество купленных обложек ');

ReadLn(B);

T := a*100+b*50;

Write('стоимость покупки составила ',T);

end.

Задача 4. Составьте программу, которая бы возводила любое число в любую степень

varx, a, b: real;

begin

write ('введите любое число, которое хотите возвести в степень ');

read (x);

write ('введите степень, в которую хотите возвести это число ');

read (a);

b:=power (x,a);

write ('ваше число в этой степени будет равно ', b);

end.

Задача 5. Выделение цифр из двузначного числа (выделить из числа первую и вторую цифру)

var

c1,c2, x: integer;

begin

write('Введите двузначное число: ');

readln(x);

c1 := x div10;

c2 := x mod10;

writeln('Первая и вторая цифры двузначного числа: ',c1,' ',c2);

end.

Задача 6. Вычислите значение гипотенузы по известным катетам (значения катетов ввести с клавиатуры)

var

a,b,c:real;

begin

write('Введите катеты прямоугольного треугольника: ');

readln(a,b);

c := sqrt(sqr(a)+sqr(b));

writeln('Гипотенуза = ',c);

end.

Разветвляющиеся алгоритмы

Задача 1. Определить является ли данное целое число R четным. Дать словесный ответ.

VAR R: INTEGER;

BEGIN

WriteLn('Введитечисло');

ReadLn(R);

IFRMOD2=0ThenWriteLn('Числочетное')

ElseWriteLn('Число не четное');

END.

Задача 2. Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3]

VAR

X, Y, Z: INTEGER;

BEGIN

WriteLn('Введите три целых числа');

ReadLn(X,Y,Z);

IF(X>=1)AND(X<=3)ThenWriteLn('Первое число принадлежит заданному интервалу')

ElseWriteLn('Первое число не принадлежит заданному интервалу');

IF(Y>=1)AND(Y<=3)ThenWriteLn('Второе число принадлежит заданному интервалу')

ElseWriteLn('Второе число не принадлежит заданному интервалу');

IF(Z>=1)AND(Z<=3)ThenWriteLn('Третье число принадлежит заданному интервалу')

ElseWriteLn('Третье число не принадлежит заданному интервалу');

END.

Задача 3. Даны три целых числа. Выбрать из них те, которые принадлежат интервалу (1,4]

VAR

X, Y, Z: INTEGER;

BEGIN

WriteLn('Введите три целых числа');

ReadLn(X,Y,Z);

IF(X>1)AND(X<=4)ThenWriteLn('Первое число принадлежит заданному интервалу')

ElseWriteLn('Первое число не принадлежит заданному интервалу');

IF(Y>1)AND(Y<=4)ThenWriteLn('Второе число принадлежит заданному интервалу')

ElseWriteLn('Второе число не принадлежит заданному интервалу');

IF(Z>1)AND(Z<=4)ThenWriteLn('Третье число принадлежит заданному интервалу')

ElseWriteLn('Третье число не принадлежит заданному интервалу');

END.

Задача 3*. Даны положительные целые числа A, B, C. Выяснить существует ли треугольник с длинами сторон A, B, C.

VAR A, B, C: INTEGER;

BEGIN

WriteLn('Введитетричисла');

ReadLn(A,B,C);

IF(A+B>C)AND(A+C>B)AND(B+C>A)ThenWriteLn('Треугольникпостроитьможно')

ElseWriteLn('Треугольник построить нельзя');

END.

Задача 4. Введите любое число с клавиатуры и проверьте, является ли оно двузначным

varx: integer;

begin

write('Введите x: ');

readln(x);

if(x>=10)and(x<100)then

writeln('Двузначное число')

elsewriteln('Не двузначное число')

end.

Адрес публикации: https://www.prodlenka.org/metodicheskie-razrabotki/481341-zadachi-dlja-programmirovanija-pascal-linejny