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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.11.2010, 20:11   #1
GreenDay
Пользователь
 
Аватар для GreenDay
 
Регистрация: 02.11.2010
Сообщений: 21
По умолчанию Паскаль=/

3 неделю туплю с этой задачей...
s007.radikal.ru/i301/1011/76/74c8583ff8d2.jpg
Основной блок получится такой:

program green322;
uses crt;
var l, c, r1, r2, x, y, z:real;
w:integer;
begin
clrscr;
r1:= 200;
r2:= 500;
l:= 2;
c:= 5;
for w:=100 to 1000 do
begin
x:=r1*r2*(r1+r2)+r1*sqr(w*l-1/(w*c))/(sqr(r1+r2))+(sqr(w*l-(w*c)));
y:=sqr (r1)*(w*l-1/(w*c))/(sqr(r1+r2))+sqr((w*l-1/(w*c)));
z:=sqr (x)+sqr (y);
writeln (z:4:2);
end;
readkey;
end.

Надо показать зависимость Z(w), привести данные в таблицу, X Y Z, показать максимальные и минимальные значения, резонанс и сделать так, чтоб шаг (w) выбирал сам пользователь..
Вот тут то я и теряюсь... Помогите решить, можно за яд...

Последний раз редактировалось GreenDay; 01.12.2010 в 07:12.
GreenDay вне форума Ответить с цитированием
Старый 30.11.2010, 23:24   #2
rubius2008
Форумчанин
 
Регистрация: 19.03.2010
Сообщений: 409
По умолчанию

Если шаг будет выбираем пользователем то удобно данные скидывать в текстовый файл, для последующего анализа (поиска максимума минимума). а потом их уж выводить на экран, опять же встает вопрос сколько данных надо на экран выводить? с каким то другим шагом или все (у вас их около 900 и сложно будет их все увидеть)?
Есть вопросы, пишите в ЛС.
rubius2008 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
паскаль dumb_92 Паскаль, Turbo Pascal, PascalABC.NET 0 13.04.2010 18:22
паскаль dumb_92 Паскаль, Turbo Pascal, PascalABC.NET 0 13.04.2010 17:42