- Автоматизация
- Антропология
- Археология
- Архитектура
- Биология
- Ботаника
- Бухгалтерия
- Военная наука
- Генетика
- География
- Геология
- Демография
- Деревообработка
- Журналистика
- Зоология
- Изобретательство
- Информатика
- Искусство
- История
- Кинематография
- Компьютеризация
- Косметика
- Кулинария
- Культура
- Лексикология
- Лингвистика
- Литература
- Логика
- Маркетинг
- Математика
- Материаловедение
- Медицина
- Менеджмент
- Металлургия
- Метрология
- Механика
- Музыка
- Науковедение
- Образование
- Охрана Труда
- Педагогика
- Полиграфия
- Политология
- Право
- Предпринимательство
- Приборостроение
- Программирование
- Производство
- Промышленность
- Психология
- Радиосвязь
- Религия
- Риторика
- Социология
- Спорт
- Стандартизация
- Статистика
- Строительство
- Технологии
- Торговля
- Транспорт
- Фармакология
- Физика
- Физиология
- Философия
- Финансы
- Химия
- Хозяйство
- Черчение
- Экология
- Экономика
- Электроника
- Электротехника
- Энергетика
begin. ifa>b then begin. else begin
var
x:integer;
y:real;
begin
clrScr;
Write('введите значение х ');
Readln(x);
ifx<5 theny:=(4*sqr(x)+1)/(x-5) elsey:=3*sqr(x)-2;
Writeln('y= ',y:5:2);
readKey;
end.
4)ввела 2,результат 5.6;ввела 6 результат 106.
Задача№2
Составить программу определяющую является ли данное число делителем числа 3.
1)Постановка задачи
Исходные данные: I-некоторе число
Результатные данные:Сообщения «данное число делитель 3» и «данное число не является делителем 3»
2)Математическая модель
3div I = 0
ОЛР 10 230105 П 10 02.00.00 12 ПЗ
№ док
Подп
Дата
programex;
usescrt;
var
I:integer;
begin
clrScr;
Write('введите любое число ');
Readln(I);
if3 divI=0 thenWriteln('данное число не делитель 3 ') elsewriteln('данное число делитель 3');
ReadKey;
end.
Задача№3
Составьте программу заменяющую меньшее из двух данных чисел суммой, а большее произведением этих чисел.
1)Постановка задачи
Исходные данные: a,b - некоторые числа
Результатные данные: a,b- изменённые числа
2)Математическая модель
a=a*b, b=a+b; b=a*b, a=a+b
programex;
usescrt;
var
a,b,m:real;
begin
clrScr;
write('введите два числа ');
readLn(a,b);
m:=a;
ifa>b then begin
a:=a*b;
b:=m*b;
end
else begin
a:=a+b;
b:=m*b;
end;
writeln ('a= ' ,a);
writeln ('b= ' ,b);
readKey;
end.
4)ввела 5 6 результат 11 30;ввела 4 2 результат 8 6.
ОЛР 10 230105 П 10 02.00.00 12 ПЗ
№ док
Подп
Дата
ОЛР 10 230105 П 10 02.00.00 12 ПЗ
№ док
Подп
Дата