|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
06.04.2011, 22:21 | #1 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
Паскаль. Исправьте, пожалуйста
заранее благодарна задание: даны действительные числа x, y. Получить z=t(1.2,y)+t(y,x)-t(2x-1,xy), где t(a,b)=sin(в степени2)а+е(в степени2а)+е(в степени2b)....(с использованием процедуры).. program; uses crt; var x,y:unteger; z,t:real; procedure t(a,b)(a,b,e:integer; var t:real); begin t(a,b):=(sin a*sin a)+(exp(2*a)*ln(e))+(exp(2*b)*ln(e)); end; begin clrsgr; writeln('vvedite x,y'); readln(x,y); z:=t*(1.2,y)+t*(y,x)-t*(2*x-1,x*y); writeln('z=',z); readln; end. |
06.04.2011, 22:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По содержанию ваш текст очень напоминает эти топики Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Помогите, пожалуйста, решить задачу. Паскаль Исправьте, пожалуйста, программу Кто знает Паскаль, помогите, пожалуйста, решить |
06.04.2011, 22:51 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Черт возьми, Павля - и Вы туда же! Да когда же вы, студенты, поймете, что е(в степени х) это exp(x), и НИКАКИХ в этом случае множителей ln(e) НЕ НУЖНО! Ибо ln(e) ПО ОПРЕДЕЛЕНИЮ есть ТОЖДЕСТВЕННАЯ ЕДИНИЦА! Выбросьте Вы их, чтобы глаза не мозолили!
Таким образом (извините, не проверял, если что - завтра проверю): Код:
uses crt; var x,y,z:real; function t(a,b:real):real; begin t:=sin(a)*sin(a)+exp(2*a)+exp(2*b); end; begin clrscr; writeln('vvedite x,y'); readln(x,y); z:=t(1.2,y)+t(y,x)-t(2*x-1,x*y); writeln('z= ',z); readln; end. Код:
uses crt; var x,y,z1,z2,z3:real; procedure tr(a,b:real; var t:real); begin t:=sin(a)*sin(a)+exp(2*a)+exp(2*b); end; begin clrscr; writeln('vvedite x,y'); readln(x,y); tr(1.2,y,z1); tr(y,x,z2); tr(2*x-1,x*y,z3); writeln('z= ',z1+z2-z3); readln; end. |
09.04.2011, 00:02 | #3 (permalink) |
незнайка:)
Регистрация: 29.01.2011
Сообщений: 124
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 152
|
уважаемый Владимир....С П А С И Б О Вам О Г Р О М Н О Е
большое человеческое С П А С И Б О... |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|