Методические рекомендации по выполнению расчетного задания по курсу «Информатика» для студентов специальностей 200106 «Информационно-измерительная техника и технологии» (стр. 4 из 11)
Пример 1. Написать программу определения дня недели с использованием перечисляемого типа.
Решение:
uses crt;
type week=(monday, teusday, wednesday, thursday, friday, satyrday, sunday);
var day:week;
begin
day:=thursday;
if (day=sunday) or (day=satyrday) then
writeln('выходной')
else writeln('рабочие дни');
readkey;
end.
Пример 2. Составить программу, которая выдает на экран true, если заданная своими координатами точка лежит внутри выделенной области.
Решение:
uses crt;
var x,y:integer; L:boolean;
begin
write('введите х и у -');
readln(x,y);
L:=((x<=0) and (Sqr(x)+Sqr(y)<=9) and (y>=-x-3)) or ((Sqr(x)+Sqr(y)<=25) and (x>0));
writeln('Точка лежит в заданной области? - ',L);
readkey;
end.
Пример 3. Написать программу, которая проверяет, является ли четным введенное с клавиатуры число.
Решение:
uses crt;
var n:integer;
begin
readln(n);
write('число', n, '-');
if n mod 2=0 then writeln('четное')
else writeln('нечетное');
readkey;
end.
Пример 4. Вывести на экран большее из двух данных чисел.
Решение:
var х,у:integer;
begin
writeln('введите 2 числа');
readln(x,у);
if x>y then writeln(х) else writeln(у);
readln;
end.
Пример 5. Даны целые числа а, b, с. Если а<b<с, то все числа заменить их квадратами, если а>b>с, то каждое число заменить наибольшим из них, в противном случае сменить знак каждого числа.
Решение:
var a,b,c:integer;
begin
writeln('Введите числа a,b,с');
readln(a,b,c);
if (a<=b) and (b<=c) then begin a:=sqr(a);
b:=sqr(b);
c:=sqr(c)
end
else if (a>b) and (b>c) then begin a:=c;
b:=c; end
else begin a:=-a;
b:=-b;
c:=-c end;
writeln(a:3,b:3,c:3);
readln;
end.
2.5 Задачи для самостоятельного решения
Примечание – Все исходные данные ввести с клавиатуры, составить блок-схему.
1. Заданы числа a и b. Определить, эти числа одного или разных знаков.
2. Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число является четным. Составьте программу, проверяющую, верно ли утверждение, что введенное вами целое число делится без остатка на 3.
3. Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного вами целого числа является четным. Составьте программу, проверяющую, верно ли утверждение, что сумма цифр введенного вами целого числа делится на 5.
4. Составьте программу, определяющую, пройдет ли график функции y = 5x2 – 7 x + 2 через заданную точку с координатами (a, b).
5. Арифметические действия над числами пронумерованы следующим образом: 1 - сложение, 2 - вычитание, 3 - умножение,
4 - деление. Задать номер действия и два числа A и B (В не равно нулю). Выполнить над числами указанное действие и вывести результат. Использовать оператор выбора.
6. Задать целое число в диапазоне 100–999. Вывести строку – словесное описание данного числа, например: 256 - «двести пятьдесят шесть», 814 - «восемьсот четырнадцать». Использовать оператор выбора.
7. Даны три целых числа, найдите среднее из них. Средним назовем число, которое больше наименьшего из данных чисел, но меньше наибольшего.
8. Напишите программу, подсчитывающую сумму только положительных из трех данных чисел.
9. Составьте программу нахождения произведения двух наибольших из трех введенных с клавиатуры чисел.
10. Если целое число М делится нацело на целое число N, то вывести на экран частное от деления, в противном случае - сообщение «М на N нацело не делится».
11. Вычислить
где 
12. Вычислить значение выражения
,где при a<0
при 
13. Если
, то вычислить 
, если 
, если 
14. Вычислить
,где
и 
, если 
и 
, если x не принадлежит указанному интервалу.15. Составить программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.
16. Вычислить
17. Ракета запускается с точки на экваторе и развивает скорость
v км/с. Каков результат запуска?
Примечание - Если v£7,8 км/с, то ракета упадет на Землю, если 7,8<v<11,2, то ракета станет спутником Земли, если 11,2£v£16,4, то ракета станет спутником Солнца, если v>16,4, то ракета покинет Солнечную Систему.
18. Вычислить значение функции
19. Даны действительные числа x, y (x¹y). Меньшее из этих чисел заменить их полусуммой, а большее – их удвоенным произведением.
20. Написать программу проверки, является ли данный четырехугольник квадратом.
21. Гнездо для ножки деревянной кровати имеет форму прямоугольной вырезки. Определить, подойдет ли данный четырехугольный брусок для этого гнезда.
22. Стороны одного прямоугольника равны A и B. Стороны другого равны X и Y. Написать алгоритм и программу проверки прямоугольников на равенство.
23. Цилиндрическая деталь должна иметь длину LO и диаметр DO. Допуски равны соответственно XL и XD. Определить, удовлетворяет ли норме изготовленная деталь.
24. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами (x, y) заштрихованной части плоскости.
25. Даны три переменные: x, y, z. Если их значения упорядочены по убыванию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное.
26. Поместятся ли две одинаковые книги в кейс размерами x<y<z?
27. Определить, имеет ли функция y = sin(x) корень на отрезке [x, x+1]. Подсказка: если функция имеет корень на данном интервале, то ее значения на его границах имеют разные знаки.
28. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами (x, y)заштрихованной части плоскости.
29. Дан номер некоторого года (положительное целое число). Вывести соответствующий ему номер столетия, учитывая, что, к примеру, началом двадцатого столетия был 1901 год. Использовать оператор выбора.
30. Написать программу, которая бы запрашивала целое число и распечатывала любое его значение, кроме 13. Если заданное число равно 13, вместо него печатается число 77.
31. Написать программу, которая бы запрашивала возраст мужчины и сообщала, сколько лет ему осталось до пенсии, либо что он уже пенсионер.
32. Даны три действительных числа a, b, c. Определить, являются ли они последовательными членами арифметической последовательности.
33. Даны четыре целых числа, одно из которых отлично от трех других, равных между собой. Вывести порядковый номер этого числа.
34. Даны коэффициенты квадратного уравнения a, b, c. Найти действительные корни этого уравнения.
35. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами (x, y) заштрихованной части плоскости.
 |
36. Заданы размеры прямоугольного отверстия A, B и размеры кирпича X, Y, Z. Определить, пройдет ли кирпич в отверстие. Замечание: задачу решать в предположении, что A>B, X>Y>Z.
37. Можно ли прямоугольный пакет размерами A, B, C положить в чемодан размерами X, Y, Z?
38. Даны действительные числа x, y. Если x и y отрицательны, то каждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0,5; если оба значения неотрицательны и ни одно из них не принадлежит отрезку [0,5;2,0], то оба значения уменьшить в 10 раз; в остальных случаях x и y оставить без изменения.
39. Дано действительное число h. Выяснить, имеет ли уравнение
ax2+bx+c=0 действительные корни, если
,
,
.Если действительные корни существуют, то найти их. В противном случае ответом должно служить сообщение, что действительных корней нет.
40. Даны длины трех отрезков a, b, c. Если можно построить треугольник по этим трем отрезкам, то вычислить его периметр и площадь.