История развития пистолетов-пулеметов: Предпосылкой для возникновения пистолетов-пулеметов послужила давняя тенденция тяготения винтовок...
Механическое удерживание земляных масс: Механическое удерживание земляных масс на склоне обеспечивают контрфорсными сооружениями различных конструкций...
Топ:
Основы обеспечения единства измерений: Обеспечение единства измерений - деятельность метрологических служб, направленная на достижение...
Оснащения врачебно-сестринской бригады.
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов...
Интересное:
Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Уполаживание и террасирование склонов: Если глубина оврага более 5 м необходимо устройство берм. Варианты использования оврагов для градостроительных целей...
Дисциплины:
2017-06-04 | 258 |
5.00
из
|
Заказать работу |
|
|
Условный оператор: пример вычисления значения функции
Вычислить значение функции
при значениях:
В приведенном ниже примере использовано вложение одного условного оператора в другой. Обратите внимание: во вложенном условном операторе if каждое простое условие взято в скобки. Это делается потому, что приоритет операций сравнения ниже приоритета логических операций, и в отсутствие скобок компилятор строил бы конструкцию вида ln(a) and x, что привело бы к ошибке.
program ex02_02;
const a=0.2; b=5; z=1;
var x,y: real;
begin
write('введите x:'); readln(x);
IF (x<ln(a)) THEN y:=a*sqr(sin(x))+b*x
ELSE
IF (x>ln(a)) and (x<=b) THEN y:=a*x
ELSE y:=sqrt(2.5*a*a*a+sqr(b-z*x));
end.
Результат работы программы:
введите x:2
y = 0.4000
Оператор выбора: пример определения числа дней в месяце
Вывести на экран число дней в месяце.
Для наглядности принято, что год не високосный. Для случая, когда введен неверный номер месяца, использован вариант по умолчанию:
program ex02_03;
var M, D: integer;
begin
writeln('Введите номер месяца:');
read (M);
case M of
2: begin D:= 28; end;
4,6,9,11: begin D:= 30; end;
1,3,5,7,8,10,12: D:= 31;
else D:= -1;
end;
if D > 0 then
writeln('В этом месяце ', D, ' дней.')
else
writeln('Неверный номер месяца');
end.
Результат работы программы:
Введите номер месяца:14
Неверный номер месяца
Введите номер месяца:2
В этом месяце 28 дней.
Вычисление дня недели по дате
Вычислить номер дня недели по введенной дате. Входные данные: day – число месяца, month и year – месяц и год. Вычисление производится по формуле:
где: m и y – месяц и год по древнеримскому календарю (год в Древнем Риме начинался с марта), с – номер столетия, переменная Y – номер года в столетии. Квадратные скобки означают, что надо взять целую часть выражения.
Чтобы вычислить год и месяц по древнеримскому календарю, необходимо выполнить действия:
|
1) если месяц month равен 1 или 2, то год year уменьшить на единицу;
2) иначе выполнить: m = month - 2; если m меньше нуля, то прибавить 12.
Результат – номер дня недели (0 – воскресенье).
В программе используются условный оператор и оператор выбора, а также операции целочисленного деления div и получения остатка от целочисленного деления mod.
program DayOfWeek;
{вычисляет день недели по введенной дате}
var
{ вводимые данные }
day, month, year: integer;
dow: integer; {результат: номер дня недели}
d,m,c,y:integer;
begin
write('введите через пробел день, месяц и год: ');
readln(day, month, year);
if (month=1) or (month=2) then year:=year-1;
m:=month-2;
if m<=0 then m:=m+12;
c:=year div 100;
y:=year mod 100;
d:=(day + (13*m-1) div 5 +y+ (y div 4) +
(c div 4) - 2*c + 777) mod 7;
case d of
0: writeln('воскресенье');
1: writeln('понедельник');
2: writeln('вторник');
3: writeln('среда');
4: writeln('четверг');
5: writeln('пятница');
6: writeln('суббота');
end;
readln;
end.
Пример работы программы:
введите через пробел день, месяц и год: 10 12 2016
суббота
Операторы цикла
|
|
Наброски и зарисовки растений, плодов, цветов: Освоить конструктивное построение структуры дерева через зарисовки отдельных деревьев, группы деревьев...
История создания датчика движения: Первый прибор для обнаружения движения был изобретен немецким физиком Генрихом Герцем...
Биохимия спиртового брожения: Основу технологии получения пива составляет спиртовое брожение, - при котором сахар превращается...
Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!