Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.11.2011, 20:40   #1
Dgus23
Новичок
Джуниор
 
Регистрация: 08.11.2011
Сообщений: 2
По умолчанию программа в Free Pascal 2.4.4

найти значение функции 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. Причина: исправлял ошибки при написании
Dgus23 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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