![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 08.11.2011
Сообщений: 2
|
![]()
найти значение функции U.если известно что:
U= фигурная скобка tg^7x,если x^2y≤0 ysin^3x,если 0<x^2y<15 x^e-y,если x^2y≥15 условие: 1≤x≤7.8 , hx=1.74; -1≤y≤4.2, hy=1.3. Вот написал програмы Repeat и While! 1)Repeat Program pr1; var x, y, Z, U: real; begin Z:=sqr(x)*y; x:=1; repeat y:=-1; repeat if Z<=0 then U:=exp(7*ln(sin(x)/cos(x))) else if (Z>0) and (Z<15) then U:=y*(exp(3*ln(sin(x))))else U:=exp(1)*x-y; writeln('при х= ',x:4:2,'при y= ',y:4:2,'при U= ',U:4:2); y:=y+1.3; until y>4.2; x:=x+1.74; until x>7.8; end. 2)while Program pr2; var x, y, Z, U: real; begin Z:=sqr(x)*y; x:=1; while x<=7.8 do begin y:=-1; while y<=4.2 do begin if Z<=0 then U:=exp(7*ln(sin(x)/cos(x))) else if (Z>0) and (Z<15) then U:=y*(exp(3*ln(sin(x))))else U:=exp(1)*x-y; writeln('при х= ',x:4:2,'при y= ',y:4:2,'при U= ',U:4:2); y:=y+1.3; end; x=x+1.74; end; end. Программы вроде правильно написаны, но выдает ошибку 207! Что делать не знаю т.к. вообще в этом плохо разбираюсь) Помогите найти ошибку и объяснить мне как ее исправить только каким нибудь легким языком)) Или подсчитайте пожалуйста в паскале и киньте мне полученные ответы!) Буду очень признателен за помощь) Последний раз редактировалось Dgus23; 08.11.2011 в 20:43. Причина: исправлял ошибки при написании |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Turbo Pascal и Free Pascal , в чем разница? | antoxann | Паскаль, Turbo Pascal, PascalABC.NET | 31 | 09.11.2011 07:52 |
Free Pascal. Программа создает файл, но не записывает в него нужную переменную. | Slap | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 23.06.2011 12:43 |
Free Pascal | GreenDay | Помощь студентам | 0 | 03.05.2011 08:55 |
а free pascal не читает задачи которые написаны на turbo pascal? | demonara | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.05.2009 16:28 |
Free pascal | Иллидан | Свободное общение | 5 | 17.04.2008 12:22 |