Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 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
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

По содержанию ваш текст очень напоминает эти топики

Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл
Помогите, пожалуйста, решить задачу. Паскаль
Исправьте, пожалуйста, программу
Кто знает Паскаль, помогите, пожалуйста, решить

Старый 06.04.2011, 22:51   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 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.
Vladimir_S вне форума   Ответить с цитированием
Старый 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
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 22:26.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.