Вопрос № 114362: здравствуйте. помогите пожалста написать программу в КОНСОЛЕ (в программировании ничего не понимаю):
треугольник задан величинами своих углов и радиусом описанной окружности. найти стороны треугольника....Вопрос № 114396: Добрый день.
Уважаемые эксперты выручайте, написал вот такую процедуру. При её вызове процедура впадает в рекурсию, а как из неё выйти понять не могу....Вопрос № 114428: Доброе время суток! Подскажите пожалуйста, как программно считать курсы валют с сайта ЦБ....Вопрос № 114439: Доброе время суток, уважаемые эксперты... стразу прошу прощения, вопрос мой мягко говоря не коректен, да и стыдно...:(
случаем ни у кого не осталось самописных програм на делфе для решения линейных уравнений методом исключения Гаусса-Джордана.......Вопрос № 114456: Здравствуйте.
Пишу программу по организации работы с локальной базой данных dbf.На форме есть TTable, TDataSourse,TDBGrid.В таблице есть 4 поля:
1)номер обращения,
2)дата поступления,
3)дата напоминания,
4)нарушения.
Нужно изм...
Вопрос № 114.362
здравствуйте. помогите пожалста написать программу в КОНСОЛЕ (в программировании ничего не понимаю):
треугольник задан величинами своих углов и радиусом описанной окружности. найти стороны треугольника.
Отправлен: 16.12.2007, 22:43
Вопрос задала: Вероника (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Gh0stik
Здравствуйте, Вероника!
ДЛя нахождения величин сторон треугольника зная углы и радиус описанной окружности можно используя теорему синусов.
a/sin(A) = b/sin(B) = c/sin(C) = 2R
a = 2R sin(A)
b = 2R sin(B)
c = 2R sin(C)
Вот код программы основанный на данной теории: program Project1;
{$APPTYPE CONSOLE}
var a,b,c,alf,beta,gamma,r:real; begin write('Input alpha=');readln(alf); {значение углов задаем в градусах} write('beta=');readln(beta); write('gamma=');readln(gamma); write('R=');readln(r); {значение радиуса}
{вычисляем значения сторон, предварительно преобразовываем градусы в радианы}
a:=2*r*sin(alf*pi/180);
b:=2*r*sin(beta*pi/180);
c:=2*r*sin(gamma*pi/180); write('a=',a:3:2,' b=',b:3:2,' c=',c:3:2);
readln; end.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Академик) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) WWW:http://gh0stik.rusfaq.ru/ ICQ: 289363162 ---- Ответ отправлен: 17.12.2007, 21:25 Оценка за ответ: 5 Комментарий оценки: Спасибо!!
Вопрос № 114.396
Добрый день.
Уважаемые эксперты выручайте, написал вот такую процедуру. При её вызове процедура впадает в рекурсию, а как из неё выйти понять не могу.
Отвечает: Raptor3
Здравствуйте, Рак Александр Владимирович!
Вечный цикл получается - при любом значении showdate - идет вызов reportToLog.
Смысл честно говоря не ясен - такой процедуры, мож типа этого надо сделать?
Приложение:
--------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете
Ответ отправил: Raptor3 (статус: 2-ой класс)
Ответ отправлен: 17.12.2007, 06:04 Оценка за ответ: 5
Отвечает: Сычёв Павел Алексеевич
Здравствуйте, Рак Александр Владимирович!
Ваша процедура вызывает сама себя, а это просто не целесообразно.
Напишите ещё одну, которая будет назуваться например "ReportStrToLog(l:string)" в которой и будет сам процесс записи в файл. А Код ReportToLog заменните на
procedure TForm1.ReportToLog(const Line: string; ShowDate: Boolean = True);
begin
if ShowDate then
ReportStrToLog(DateTimeToStr(Now) + ' ' + Line)
else
ReportStrToLog(Line);
end;
Ответ отправил: Сычёв Павел Алексеевич (статус: 2-ой класс)
Ответ отправлен: 17.12.2007, 18:38
Вопрос № 114.428
Доброе время суток! Подскажите пожалуйста, как программно считать курсы валют с сайта ЦБ.
Отвечает: Coupler
Здравствуйте, Vlad Cepesh!
В прикрепленном файле программа, которая читает курсы ЦБ для USD и EUR с сайта http://www.rbc.ru/.
Приложение:
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.
Ответ отправил: Coupler (статус: Практикант)
Ответ отправлен: 17.12.2007, 12:10 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное!
Вопрос № 114.439
Доброе время суток, уважаемые эксперты... стразу прошу прощения, вопрос мой мягко говоря не коректен, да и стыдно...:(
случаем ни у кого не осталось самописных програм на делфе для решения линейных уравнений методом исключения Гаусса-Джордана....
код элементарен, но честное слово просто времени нет писать... если у кого нить завалялся исходничек, поделитесь плиз...... очень надо...
еще раз сорри....
Отправлен: 17.12.2007, 12:23
Вопрос задал: StixNeo (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: PavelGM
Здравствуйте, Stixneo!
Сходите вот сюда http://alglib.sources.ru. Там много чего есть.
Ответ отправил: PavelGM (статус: Студент)
Ответ отправлен: 17.12.2007, 15:53 Оценка за ответ: 4 Комментарий оценки: Спасибо, интересный сайт... нашел почти то что нужно... немного доделал и все готово... большое спасибо
Вопрос № 114.456
Здравствуйте.
Пишу программу по организации работы с локальной базой данных dbf.На форме есть TTable, TDataSourse,TDBGrid.В таблице есть 4 поля:
1)номер обращения,
2)дата поступления,
3)дата напоминания,
4)нарушения.
Нужно изменить цвет записи в поле 1) на зеленый, если дата напоминания = сегоднешней дате.Ну или изменить цвет всей записи на зеленый, если дата напоминания = сегоднешней дате.
Заранее благодарю за ответ.
Отправлен: 17.12.2007, 14:07
Вопрос задала: Nadyas (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Vas177
Здравствуйте, Nadyas!
У компонента TDBGrid нужно переопределить событие OnDrawDataCell, в котором нужно проверять необходимое поле на какое-то условие и в соответствующий цвет красить ячейки.
Например, в данном примере строки закрашиваются в красный цвет:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if DateOf(Table1.FieldByName('поле_с_датой').AsDateTime) = DateOf(Now) then
DBGrid1.Canvas.Brush.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;
Дату можно получить следующим образом:
Table1.FieldByName('Поле_С_Датой').AsDateTime
Ответ отправил: Vas177 (статус: 3-ий класс)
Ответ отправлен: 17.12.2007, 14:18 Оценка за ответ: 5 Комментарий оценки: СПАСИБО ОГРОМНОЕ!За быстрый и правильный ответ!
Отвечает: Raptor3
Здравствуйте, Nadyas!
Данный вариант красит тока 1 столбец
Приложение:
--------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете
Ответ отправил: Raptor3 (статус: 2-ой класс)
Ответ отправлен: 17.12.2007, 14:29 Оценка за ответ: 5 Комментарий оценки: СПАСИБО ОГРОМНОЕ!За быстрый и правильный ответ!
