|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
20.11.2010, 16:15 | #1 (permalink) |
Новичок
Регистрация: 19.11.2010
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Программирование с использованием функций и процедур программиста. Pascal.
Например тот, у кого первый вариант выполняет задачи варианта № 1 и № 30; у кого второй вариант - соответственно выполняет задачи варианта № 2 и № 29 и т.д. А вот задание: |
20.11.2010, 16:15 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что похожие обсуждения могут помочь вам Зарплата веб-программиста Поступить на программиста или... на программиста? Turbo Pascal. Программирование алгоритмов циклической структуры |
20.11.2010, 17:23 | #2 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Я понял это вот так:
Код:
var a,b,y,z,x:real; function sd:real; begin y:=x*sqrt(1*sqr(x)); end; begin write ('a='); readln (a); write ('b='); readln (b); x:=a; z:=(1+sd); x:=b; z:=ln(1+z)/sd; writeln ('z=',z); readkey end. |
20.11.2010, 17:40 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Не, и ошибок много, и некрасиво: путано и сложно. Зачем? Так, по-моему, проще:
Код:
var a,b,Z:real; function Y(t:real):real; begin Y:=t*sqrt(1+sqr(t)); end; begin write('a= '); readln(a); write('b= '); readln(b); Z:=ln(1+Y(a))/Y(b); writeln ('Z= ',Z); readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|