ЗАДАНИЯ

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

2. Составить программу расчета значения функции
Z = tg х³ – |2 sin х²у + 7.8 cos х |+ 10 при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…

3. Составить программу расчета значения функции
Z = (х⁴ – 2 ctg х²у² )/| 8х² – 5 arctg у| при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…

4. Составить программу расчета значения функции
Z = tg х⁵ – 21 ctg ху² /(18 sin х – 13 cos у + 11) при любых значениях х и у. Результат вывести в виде: при х= … и у=… z=…

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

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

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

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

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

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

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

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. ОПЕРАТОРЫ ВЫБОРА И УСЛОВНОГО ПЕРЕХОДА.

операторы:

Примеры решения задач

Пример 1.

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

Решение:

Program pr1;

Var a, b, c, m: integer;

BEGIN

Write('a, b, c='); readln(a, b, c); {ввод исходных чисел}

if a<b then m:=a else m:=b; {выбор минимального из a и b}

if c<m then m:=c; {сравнение с третьим числом}

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

readln

END.

Результат:

1 случай:

a, b, c= 15 6 9

Мin=6

2 случай:

a, b, c= 1 45 4

Мin=1

3 случай:

a, b, c= 25 16 9

Мin=9

Пример 2.

Решение квадратного уравнения вида Ax² + Bx + C = 0.

Решение:

Program pr2;

Var a, b, c, d, x1, x2: real;

Begin

Write('a, b, c='); readln(a, b, c); {вводим коэффициенты квадратного

уравнения}

d:=sqr(b)-4*a*c; {вычисляем дискриминант}

if d>0 then begin {если дискриминант положительный, то

вычисляем два корня}

x1:=(-b+sqrt(d))/(2*a); writeln('x1=', x1:6:2);

x2:=(-b-sqrt(d))/(2*a); writeln('x2=', x2:6:2)

end

else if d=0 then begin { иначе, если дискриминант равен 0, то

вычисляем один корень}

x1:=-b/(2*a); writeln('x=', x1:6:2)

end

else writeln('Корней нет'); {иначе выводим сообщение

‘Корней нет’}

readln

End.

Результат:

1 случай:

a, b, c= 1 -2 1

x= 1.00

2 случай:

a, b, c= 1 -6 8

x1= 4.00

x2= 2.00

3 случай:

a, b, c= 5 1 2

Корней нет

Пример 3.

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

Решение:

Program pr3;

Var a, a1, a2, a3: integer;

Begin

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

a1:= a div 100; {1-я цифра}

a2:= (a div 10) mod 10; {2-я цифра}

a3:= a mod 10; {3-я цифра}

if (a1 mod 2=1) or (a2 mod 2=1) or (a3 mod 2=1) {Если 1-я цифра нечетная,

then writeln('Yes') else writeln('No'); или 2-я нечетная, или

3-я нечетная, то выводим ‘Yes’, иначе выводим ‘No’}

readln;

End.

Результат:

1 случай:

a=418

Yes

2 случай:

a=246

No

Пример 4.

Вводятся координаты точки. Определить попадает ли точка в заштрихованную область или нет.

Точка будет принадлежать заштрихованной области, если она лежит внутри большого круга (x²+y² <25) И, одновременно,за пределами малого круга (x²+y²>4).

Решение:

Program pr4;

Var x,y: real;

Begin

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

readln (x,y); {ввод координат точки}

if (sqr(x)+sqr(y)<25) and (sqr(x)+sqr(y)>4)

then writeln('точка попадает в заштрихованную область')

else writeln('точка не попадает в заштрихованную область');

readln;

end.

Результат:

1 случай:

введите x y 1 1

точка попадает в заштрихованную область

2 случай:

введите x y 2 5

точка не попадает в заштрихованную область

Пример 5.

Введено трехзначное число. Необходимо разбить его на цифры. Все четные цифры, которые меньше 8 увеличить на 2, а 8 заменить на 0.

Решение:

Program pr5;

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;

if (a mod 2=0) and (a<8) then a:=a+2 else if a=8 then a:=0;

if (b mod 2=0) and (b<8) then b:=b+2 else if b=8 then b:=0;

if (c mod 2=0) and (c<8) then c:=c+2 else if c=8 then c:=0;

if (d mod 2=0) and (d<8) then d:=d+2 else if d=8 then d:=0;

writeln('результат ',a,b,c,d);

readln;

end.

Результат:

введите n 1824

результат 1046

Пример 6.

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

1 - произведение двух чисел

2 - частное двух чисел

3 - сумма двух чисел

Решение:

program pr6;

var a,b,n: integer;

begin

writeln('1 – произведение двух чисел');

writeln('2 – частное двух чисел');

writeln('3 – сумма двух чисел');

write('введите номер операции ');

readln(n);

write('введите два числа'); readln(a,b);

case n of

1: writeln('произведение=',a*b);

2: writeln('частное=',a/b:4:2);

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

else writeln('не верный номер');

end;

readln;

end.

Результат:

1 – произведение двух чисел

2 – частное двух чисел

3 – сумма двух чисел

введите номер операции 2

введите два числа 3 5

частное=0.60

Пример 7.

Ввести первую букву времени года и вывести соответствующее название времени года на русском языке.

Решение:

Program pr7;

Var N: char;

Begin writeln ('введи первую букву времени года ');

Readln (N);

Case N of

'з' : writeln ('зима');

'в': writeln ('весна');

'л': writeln('лето');

'о': writeln('осень')

end.

Результат:

введи первую букву времени года о

осень

ЗАДАНИЯ

1. Вводятся координаты точки. Определить попадает ли точка в заштрихованную область или нет.

а)

в)

д) е)

			x

2. Введено трехзначное число. Найти сумму четных цифр.

3. Введено четырехзначное число. Содержится ли в записи этого числа цифра 7?

4. Введено четырехзначное число. Найти среднее арифметическое нечетных цифр.

5. Введено трехзначное число. Если в записи числа встречается цифра 5, то записать число в зеркальном отображении.

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

7. Введено четырехзначное число. Найти сумму цифр, кратных 3-м.

8. Вводятся Х и Y. Если хотя бы одно из этих чисел положительно, то найти их произведение. Иначе – найти их сумму.

9. Вводятся Х и Y. Если Х больше Y, то произвести их обмен.

10. Из чисел A, B, C, D выбрать максимальное.

11. Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны.

12. Даны два числа А и B. Выяснить, делиться ли A на B.

13. Вводится число. Если оно положительное, то уменьшить его в 10 раз.

14. Вводятся X и Y. Заменить большее из этих чисел разностью большего и меньшего.

15. Определить, принадлежит ли введенное Х интервалу (-10, 15)?

16. Вводится натуральное Х. если оно четное, то уменьшить его вдвое, если нечетное – увеличить на 10.

17. Вводятся X и Y. Заменить меньшее из них суммой этих чисел.

18. Из чисел A, B, C, D выбрать минимальное.

19. Определить, сколько среди заданных чисел A, B, C, D отрицательных.

20. Сколько среди заданных чисел A, B, C, D нечетных.

21. Сколько среди заданных чисел A, B, C, D четных.

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

1 - сумма двух чисел

2 - разность двух чисел

3 - конец работы

23. Составить программу, которая по введенной начальной букве выводит название цветов радуги (красный, оранжевый, желтый, зеленый, голубой, синий, фиолетовый).

24. Составить программу, которая выводит меню и при нажатии нужной цифры вычисляет соответствующее выражение:

1 - y= x³ + x

2 - y= (x +1)²

3 - y=

25. Составить программу, которая по введенному порядковому номеру выводит название дня недели.

26. Составить программу, которая позволяет ввести номер месяца и вывести его название.

27. Составить программу, которая выводит меню и при нажатии вводе цифры вычисляет соответствующее выражение:

1 - y= (a+b)²

2 - y= a²-b²

3 - y= 1/(a+b)

28. Составить программу, которая выводит меню и при вводе буквы вычисляет соответствующую функцию:

Т - Tg x

S - Sin x