Читайте также:
|
|
Лабораторная работа №2
Выполнила:
Студентка группы ЭК-123
Диваева А.И.
Проверила:
Шаронова Ю.В.
Уфа-2012
Отчет по программированию на языке Pascal
Вариант 6
File Edit Search Run Compile Debug Tools Options Window Help
┌──────────────────────────────── NONAME00.PAS ──────────────────────────1─────┐
│╔═[■]═══════════════════════════ NONAME01.PAS ══════════════════════════2═[↑]═╗
│║Program pr1; ▲
│║Var y,b,x,a:real; ■
│║begin ▒
│║writeln('Введите переменную y'); ▒
│║read (y); ▒
│║writeln('Введите переменную b'); ▒
│║readln(b); ▒
│║writeln('Введите переменную x'); ▒
│║readln(x); ▒
│║a:=y/5+b/sqr(exp(x)+3); ▒
│║writeln('Ответ=',a:5:1); ▒
│║readln; ▒
│║end. ▒
│║ ▒
│║ ▒
│║ ▒
│║ ▒
│║ ▒
│║ ▒
│║ ▼
└╚═☼════ 11:23 ════◄■▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒►─┘
F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu
Введите переменную y
Введите переменную b
Введите переменную x
Ответ= 0.2
2.
введите переменную b
введите переменную z
введите переменную y
Введите переменную е
Ответ=9.0
3
Введите переменную b
Введите переменную z
Введите переменную y
Ответ=4.2
Дата добавления: 2015-07-11; просмотров: 89 | Нарушение авторских прав
<== предыдущая страница | | | следующая страница ==> |
Расчет коротких оболочек под действием наружного давления | | | Для специальности 060604 Лабораторная диагностика |