Решение

Используемые переменные: а –вводимое число,

b, c, d – вспомогательные переменные

Program pr2;

Var a,b,c,d:real;

Begin

write('введите a '); {вывод строки подсказки}

readln (a); {ввод исходного числа}

b:=a+a; {2a}

c:=b+b; {4a}

d:=b+c; {6a}

a:=d+a; {7a}

writeln('7a=',a:8:2); {вывод результата}

readln; {задержка до нажатия клавиши Enter}

End.

Результат

введите a 2

7а= 14.00

Пример 3.

Найти площадь круга и длину окружности.

Решение

Используемые переменные: r - радиус, d – длина окружности,

s – площадь круга

Program pr3;

Var d,r,s: real;

Begin

write('введите радиус окружности '); {вывод строки подсказки}

readln (r); {ввод радиуса}

d:= 2*Pi*r; {вычисление длины окружности}

s:=Pi*sqr(r); { вычисление площади круга}

writeln('длина окружности= ',d:4:2); {вывод результата}

writeln('площадь окружности= ',s:4:2);

readln; {задержка до нажатия клавиши Enter}

End.

Результат

введите радиус окружности 5

длина окружности=31.42

площадь окружности=78.54

Пример 4.

Вычисление суммы цифр введенного натурального двузначного числа.

Решение

Используемые переменные: n - двузначное число, a, b – цифры числа

Program pr4;

Var n, a, b: integer;

Begin

write('n= '); readln(n); {ввод исходного двузначного числа}

a:=n div 10; {1-я цифра}

b:=n mod 10; {2-я цифра}

writeln('сумма = ', a+b); {вывод результата}

readln; {задержка до нажатия клавиши Enter}

End.

Результат

n=48

сумма=12

Пример 5.

Введенное 4-значное число изменить так, чтобы 2 и 3 цифры поменялись местами.

Решение:

Program pr5;

Var n,a,b,c,d:integer;

Begin

write('введите n ');

readln (n); {ввод исходного 4-значного числа}

a:=n div 1000; {1-я цифра числа}

b:=n div 100 mod 10; {2-я цифра числа }

c:=n div 10 mod 10; {3-я цифра числа }

d:=n mod 10; {4-я цифра числа}

n:= a*1000+c*100+b*10+d; {получение числа в виде суммы разрядных

слагаемых}

writeln('результат ', n); {вывод результата}

readln; {задержка до нажатия клавиши Enter}

End.

Результат:

введите n 1234

результат 1324

Пример 6.

Обмен значениями переменных x и y.

Решение:

Program pr6;

Var x,y,t: integer;

begin

write('Введите x y '); {вывод строки подсказки}

readln(x,y); {ввод исходных чисел}

t:=x; {в переменную t }

x:=y;

y:=t;

writeln('x=', x, 'y=',y); {вывод результата}

readln; {задержка до нажатия клавиши Enter}

end.

Результат:

Введите x y 3 7

x=7 y=3

Пример 7.

Вычислить значение y = (3tg x ²– e^x )/2sin x для х = -34, 0.89, 1.23

Решение:

Program pr7;

Var x,y:real;

Begin

Write('введите x ');

readln (x); {ввод аргумента}

y:=(3*sin(sqr(x))/cos(sqr(x))-exp(x))/(2*sin(x)); {вычисление значения функции}

Writeln('при x=',x:4:2,' y=',y:4:2); {вывод результата}

readln; {задержка до нажатия клавиши Enter}

End.

Результат:

1 случай:

введите x 34

при x=34.00 y=-551389941339996.31

2 случай:

введите x 0.89

при x=0.89 y=0.39

3 случай:

введите x 1.23

при x=1.23 y=25.64