Пример 1.
Составить программу расчета значения функции.
Z = | cos х4 – 3 tg х2 |+ 0.8 sin yх2+ 10 при любых значениях х и у. Результат вывести в виде: при х= и у=… z=…
Решение:
program pr1;
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.
Результат:
введите X Y
1 2
при x=1.00 y=2.00 z=11.59
Пример 2.
Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме сложения, получить 7 а за четыре операции.
Решение:
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;
end.
Результат:
введите a 2
7а= 14.00
Пример 3.
Найти площадь круга и длину окружности.
Решение:
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;
end.
Результат:
введите радиус окружности 5
длина окружности=31.42
|
|
площадь окружности=78.54
Пример 4.
Вычисление суммы цифр введенного натурального двузначного числа.
Решение:
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);
end.
Результат:
n=48
сумма=12
Пример 5.
Введенное 4-значное число изменить так, чтобы 2 и 3 цифры поменялись местами.
Решение:
program pr5;
var n,a,b,c,d:integer;
begin
write('введите n ');
readln (n);
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;
x:=y;
y:=t;
writeln('x=', x, 'y=',y);
readln
end.
Результат:
Введите x y 3 7
x=7 y=3
Пример 7.
Вычислить значение y = (3tg x 2– ex)/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;
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
ЗАДАНИЯ
1. Составить программу расчета значения функции
Z = |3 ех+3 – 2 ln ху| + 1,8х2 + 1 при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
2. Составить программу расчета значения функции
Z = tg х3 – |2 sin х2у + 7.8 cos х |+ 10 при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
3. Составить программу расчета значения функции
Z = (х4 – 2 ctg х2у2)/| 8х2 – 5 arctg у| при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
|
|
4. Составить программу расчета значения функции
Z = tg х5 – 21 ctg ху2 /(18 sin х – 13 cos у + 11) при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
5. Составить программу расчета значения функции
Z = (2eх-4 – |sin х2у|)/(2.1ctg х2 + 10.2) при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…
6. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a4 за две операции.
7. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a6 за три операции.
8. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a7 за четыре операции.
9. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a8 за три операции.
10. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a9 за четыре операции.
11. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме умножения, получить a10 за четыре операции.
12. Вводится вещественное число а. Не пользуясь никакими арифметическими операциями, кроме сложения, получить 6a за три операции.
13. Найти произведение цифр введенного 4-значного числа.
14. Найти сумму цифр введенного 4-значного числа.
15. Определить сумму квадратов цифр введенного 3-значного числа.
16. Введено 3-значное число. Вывести число в зеркальном отображении.
17. Введено 3-значное число. Вывести число в зеркальном отображении
18. Введенное 4-значное число изменить так, чтобы 1 и 4 цифры поменялись местами.
19. Найти среднее арифметическое цифр введенного 3-значного числа.
20. Введено 3-значное число. Поменять местами 1-ю и 3-ю цифры числа.
21. Введенное 4-значное число изменить так, чтобы 1-3 и 2-4 цифры поменялись местами.
22. Найти полусумму цифр введенного 4-значного числа.
23. Определить сумму квадратов цифр введенного 3-значного числа.
24. Введенное 4-значное число изменить так, чтобы 1 и 3 цифры поменялись местами.
25. Введенное 4-значное число изменить так, чтобы 3 и 4 цифры поменялись местами.
II. ОПЕРАТОРЫ ВЫБОРА И УСЛОВНОГО ПЕРЕХОДА.
операторы:
Оператор | Назначение | Синтаксис |
if … then… | проверка условий | if <условие> then <оператор1> else <оператор2> if <условие> then <оператор> |
case | выбор | case <переменная> of <константа 1>: <операторы 1>; … < константа n>: <операторы n> [else <операторы>] end; |
примеры решения задач: