Понятие о языке программирования Pascal. Линейные алгоритмы

Пример 1. Найти сумму двух вещественных чисел.

program primer;

var

X, Y, Z: Real;

begin

Writeln(‘Введите два целых числа X и Y:');

Readln(X,Y);

Z := X + Y;

Writeln('Сумма чисел X и Y’, Z);

Readln;

end.

1. Составить программу рассчитывающую разность двух действительных чисел.

2. Составить программу рассчитывающую значение выражения (a+b)*c.

Пример 2. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a⁴ за две операции.

program primer;

var a: integer;

begin

writeln('введите a');

readln (a);

a:=a*a;

a:=a*a;

writeln('a=',a);

readln;

end.

3. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a⁸ за три операции.

4. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a⁶ за три операции.

Пример 3. Составить программу расчета значения функции.

Z = |cos х⁴ – 3 tg х² |+0.8 sin yх²+ 10 при любых значениях х и у. Результат вывести в виде: при х= и у=… z=…

program primer;

var x,y,z: real;

begin

writeln('введите X Y'); {вывод строки подсказки}

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

z:=abs(cos(sqr(x)*sqr(x)-3*sin(sqr(x))/cos(sqr(x))))+0.8*sin(y*sqr(x))+10;

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

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

end.

5. Составить программу расчета значения функции Z = |3 е^х+3 – 2 ln ху| + 1,8х² + 1 при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…

6. Составить программу расчета значения функции Z = (2e^х-4 – |sin х²у| )/( 2.1ctg х + 10.2) при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…

Пример 4. Найти периметр и площадь прямоугольного треугольника по его катетам.

program primer;

var a, b, c, S, P: real;

begin

writeln('введите катеты a, b:');

readln (a,b);

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

P:= a+b+c;

S:= a*b/2;

writeln('P =', P:6:3, ‘S=’, S:6:3);

readln;

end.

7. По длине ребра куба найти площадь грани, площадь полной поверхности и объем куба.

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

8. Найти площадь кольца с радиусами r1 и r2.

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

Program primer;

Var n, a, b, c: integer;

begin

write('n= '); readln(n);

a:=n div 100;

b:=(n div 10) mod 10;

c:=n mod 10;

writeln('сумма = ', a+b+c);

readln;

end.

9. Определить сумму квадратов цифр введенного трехзначного числа.

10. Определить произведение второй и четвертой цифр введенного четырехзначного числа.

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

program primer;

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

begin

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

readln (n);

a:=n div 1000;

b:=n div 100 mod 10;

c:=n div 10 mod 10;

d:=n mod 10;

n:= a*1000+c*100+b*10+d;

writeln('результат', n);

readln;

end.

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

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