|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.01.2009, 18:56 | #1 |
Регистрация: 05.01.2009
Сообщений: 5
|
Помогите с программой
Задали программу и не могу решить, помогите плизз..
Около стены наклонно стоит палка длиной х м. Один ее конец находится на расстоянии у м от стены. Определить значение угла a между палкой и полом для значений х = k м и у, изменяющегося от 2 до 3 м с шагом h м. Нужно под Delphi, Console Application. |
05.01.2009, 19:45 | #2 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
проверь
program Project1;
{$APPTYPE CONSOLE} uses SysUtils,math; var h:real; k:real; y:real; ugol:array[0..100] of real; i,j:integer; mas:array[0..100] of real; begin try writeln('vvedi k'); readln(k); writeln('vvedi h'); readln(h); i:=trunc(1/h);// количество элементов массива for j := 1 to i do begin y:=2+h*j; ugol[j]:= radTOgrad(arccos(s/k)); mas[j]:=y; writeln('pri k =',k:4:4,' i shage h ',h:4:4, ' i y =',mas[j]:4:4 ,' ugol = ',ugol[j]:4:4); end; readln; except on E:Exception do Writeln(E.Classname, ': ', E.Message); end; readln end.
вступлю в команду разработчиков ПО на Delphi
Последний раз редактировалось maladoy; 05.01.2009 в 21:36. Причина: накосячил децл в первом варианте!!!! |
05.01.2009, 19:57 | #3 |
Регистрация: 05.01.2009
Сообщений: 5
|
Большое спасибо!
|
05.01.2009, 20:05 | #4 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
последний вариант забери он вроде без косяков:)
вступлю в команду разработчиков ПО на Delphi
|
05.01.2009, 21:22 | #5 |
Регистрация: 05.01.2009
Сообщений: 5
|
Переменная "y" не используется, при шаге отличном от 1 программа висит..
i:=trunc(1/h); смысла не имеет... i:=trunc(h); Последний раз редактировалось Mishkaplus; 05.01.2009 в 21:25. |
05.01.2009, 21:28 | #6 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
при отличном в какую сторону ?????
вступлю в команду разработчиков ПО на Delphi
|
05.01.2009, 21:35 | #7 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
если шаг > 1 м тогда как это понимать " изменяющегося от 2 до 3 м с шагом h м.
"
вступлю в команду разработчиков ПО на Delphi
|
05.01.2009, 22:19 | #8 |
Регистрация: 05.01.2009
Сообщений: 5
|
Может имеется ввиду вывод в цикле от 2х до 3х м. с шагом в h в этом промежутке.. тоесть 2, 2.1, 2.2 ... 3, или 2, 2.2, 2.4 ... 3. тоесть тот шаг который ты введешь.
|
06.01.2009, 00:04 | #9 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
да правильное решение было!
просто шаг h нужно вводить МЕНЬШЕ единицы! вот, чуток подсократил/подправил! Код:
поэтому лучше переводить по формуле c 180 и PI (смотри код!) |
06.01.2009, 14:09 | #10 |
Регистрация: 05.01.2009
Сообщений: 5
|
Проверил. все работает прекрасно. Спасибо большое!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с программой(( | stan1k | Фриланс | 4 | 10.05.2008 16:16 |
помогите с программой | 1234 | Общие вопросы Delphi | 6 | 05.03.2008 19:08 |
помогите с программой | LexusSPb | Фриланс | 2 | 04.09.2007 16:29 |