|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
10.10.2012, 19:36 | #1 |
Регистрация: 09.10.2012
Сообщений: 5
|
программа в pascal abc
ребята,помогите подредактировать программу,ошибки выдаёт,зачёт висит,а в чём дело не понимаю
program function:uvt; var x,y,z,u,v,t,:real; begin x:=readln(x); y:=readln(y); z:=readln(z); u:=1-cos(2-(exp(3)*ln(2))/(exp(2)*ln(y)-exp(2)*ln(2)/sin(2-(exp(3)*ln(2))/(exp(2)ln(y)-exp(2)*ln(2)); v:=exp(exp(2)*ln(-x))*ln(exp())+exp(exp(2)*ln(y))*ln( exp()); if (exp(2)*ln(u)+exp(2)*ln(v))<(exp(2) *ln(y)+exp(2)*ln(y)+exp(2)*ln(2)) then t=arctan((exp(2)*ln(u)+exp(2)*ln(v) )/sqrt(1-sqr(exp(2)*ln(u)+exp(2)*ln(v)); writeln(u);writeln(v);writeln(t); if(exp(2)*ln(u)+exp(2)*ln(v))>=(exp (2)*ln(y)+exp(2)*ln(2)) then t=ln(v+u)/ln(10); writeln(u);writeln(v);writeln(t); end. условие во вложенной фотографии.спасибо |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу разобраться как работает программа (Pascal ABC) | Amid1990 | Помощь студентам | 1 | 04.07.2011 01:42 |
Программа на Pascal ABC. | Lols | Помощь студентам | 1 | 04.05.2011 21:53 |
Линейная программа.Pascal ABC. | Lols | Помощь студентам | 2 | 04.05.2011 21:26 |
Программа с циклом.Pascal ABC | Lols | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 04.05.2011 21:07 |
программа в Pascal ABC Графика с фором | Veron_20 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 28.12.2010 22:38 |