Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

Народное голосование ПРЕМИИ РУНЕТА-2007!
Голосуем за RusFAQ.ru >>

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 479
от 05.11.2007, 15:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 238, Экспертов: 45
В номере:Вопросов: 4, Ответов: 4


Вопрос № 107381: Уважаемые эксперты! Прошу решить вас след. задачу, очень нужно!!! Суть задачи состоит в том, что в input.txt есть данные след. вида: ---------------------------- 3 error.pas 300 strings.c 234 my.asm 1039 --------------...
Вопрос № 107415: Здравствуйте! У меня написанна программа для вычитанея чисел в 10 системе. числа могут быть как положит. так и отрицат. В этой проге при выводе выводятся 0. помогите от них избавится, а так же как мне написать - , если 2 число больше 1,и ...
Вопрос № 107428: Доброе время суток! Кто-нибудь может справиться с заданием? Кто сможет написать программу-пришлите пожалуйста мне на мыло lavron007@mail.ru ВОПРОС ЖИЗНИ И СМЕРТИ! -------------------------------------------------- Я знаю-есть ещё талантливые ...
Вопрос № 107462: Подскажите плз. как рассчитать координаты для построения правильного пятиугольника(пентагон). Впоследствии пентагон нужно будет вращать....

Вопрос № 107.381
Уважаемые эксперты!
Прошу решить вас след. задачу, очень нужно!!!
Суть задачи состоит в том, что в input.txt есть данные след. вида:
----------------------------
3
error.pas 300
strings.c 234
my.asm 1039
----------------------------
нужно отсортировать так, что бы от самых маленьких чисел после названия файла до самых больших после названия файла. и это всё вывести в output.txt. Для данного примера например в отпуте:
----------------------------
strings.c
error.pas
my.asm
----------------------------
Отправлен: 30.10.2007, 15:02
Вопрос задал: Алин Сергей Владимирович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Артём1983
Здравствуйте, Алин Сергей Владимирович!
Поясню своё решение.
1. Читаю первую строку файла это число -> делаю динамический массив из записей.
2. Сортирую полученный массив по возрастанию численного поля.
3. Записываю получившийся массив в файл.
Смотрите код в приложении.

Приложение:

---------
Программирование - дело Путное!

Ответ отправил: Артём1983 (статус: 5-ый класс)
Ответ отправлен: 30.10.2007, 22:31
Оценка за ответ: 5
Комментарий оценки:
очень благодарен. большое спасибо!!!


Вопрос № 107.415
Здравствуйте!
У меня написанна программа для вычитанея чисел в 10 системе.
числа могут быть как положит. так и отрицат.
В этой проге при выводе выводятся 0. помогите от них избавится, а так же как мне написать - , если 2 число больше 1,и если у меня 2 отрицат. числа и 1 по модулю больше 2 там тоже нужен -.

Приложение:

Отправлен: 30.10.2007, 19:36
Вопрос задала: Arieta (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Витек
!!!
Здравствуйте, Arieta!

Пересенен в минифорум, т.к. не является ответом на вопрос.

-----
∙ Отредактировал: Зенченко Константин Николаевич (Специалист)
∙ Дата редактирования: 03.11.2007, 17:05

---------
ohne fleis, keine preis
Ответ отправил: Витек (статус: 3-ий класс)
Ответ отправлен: 03.11.2007, 12:41


Вопрос № 107.428
Доброе время суток! Кто-нибудь может справиться с заданием? Кто сможет написать программу-пришлите пожалуйста мне на мыло lavron007@mail.ru ВОПРОС ЖИЗНИ И СМЕРТИ!
--------------------------------------------------
Я знаю-есть ещё талантливые программисты на Руси! Спасите студенту жизнь! Надеяться мне не на кого больше. С этой задачей я просто головой об стену убъюсь скоро!

Приложение:

Отправлен: 30.10.2007, 21:29
Вопрос задал: Сараев Лаврентий Александрович (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Артём1983
Здравствуйте, Сараев Лаврентий Александрович!
Я пешил Вашу задачу. По поводу того что надо записать информацию об альбомах в порядке убывания года выпуска -- смотрите мой ответ на вопрос 107381.
Приложение всётаки выкладываю на портале.

Приложение:

---------
Программирование - дело Путное!

Ответ отправил: Артём1983 (статус: 5-ый класс)
Ответ отправлен: 31.10.2007, 18:56
Оценка за ответ: 4
Комментарий оценки:
Ну пощадите же меня! Я же пока не понимаю всего! Программа не компилируется, есть ошибки. Напишите пожалуйста программу "от и до" по заданному заданию и проверьте уж ПОЖАЛУЙСТА. Буду Вам признателен, уважаемый SUPER-эксперт!


Вопрос № 107.462
Подскажите плз. как рассчитать координаты для построения правильного пятиугольника(пентагон). Впоследствии пентагон нужно будет вращать.
Отправлен: 31.10.2007, 02:50
Вопрос задал: Vovan_32 (статус: 1-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Gh0stik
Здравствуйте, Vovan_32!

Вот привожу Вам полный рабочий код, в котором идет расчет координат пентагона и его вращение вокруг заданной точки.

program pentagn;
uses graph,crt;
const n=6; t=pi/70; {угoл поворота}
type mas=array [1..n] of record x,y:real; end;
var x0,y0,r:real;
d,m,i,u:integer;
dt:mas;

{ms - массив начальных точек, mn - массив точек после поворота; a,b - центр вращения}
procedure povorot(a,b:real; ms:mas; var mn:mas);
var i:integer;
begin
for i:=1 to n do
begin
mn[i].x:=a+(ms[i].x-a)*cos(t)+(b-ms[i].y)*sin(t);
mn[i].y:=b+(ms[i].x-a)*sin(t)-(b-ms[i].y)*cos(t);
end;
end;

begin clrscr;
d:=detect; initgraph(d,m,'');
if graphresult<>grok then begin writeln('ошибка графики');halt(1);end;

x0:=getmaxX div 2; y0:=getmaxY div 2; {координаты центра пентагона}
u:=0; r:=80; {"радиус" пентагона}

for i:=1 to 5 do {расчет координат точек пентагона}
begin
dt[i].x:=x0+r*cos(u*pi/180);
dt[i].y:=y0-r*sin(u*pi/180);
inc(u,72);
end;
dt[6]:=dt[1];

setbkcolor(0);
repeat {цикл в котором происходит вращение объекта}
setcolor(15); SetLineStyle(0, 0, 3);
moveto(round(dt[1].x),round(dt[1].y));
lineto(round(dt[2].x),round(dt[2].y));
lineto(round(dt[3].x),round(dt[3].y));
lineto(round(dt[4].x),round(dt[4].y));
lineto(round(dt[5].x),round(dt[5].y));
lineto(round(dt[6].x),round(dt[6].y));

delay(7000); setcolor(0);

moveto(round(dt[1].x),round(dt[1].y));
lineto(round(dt[2].x),round(dt[2].y));
lineto(round(dt[3].x),round(dt[3].y));
lineto(round(dt[4].x),round(dt[4].y));
lineto(round(dt[5].x),round(dt[5].y));
lineto(round(dt[6].x),round(dt[6].y));
povorot(x0,y0,dt,dt);
until keypressed;
closegraph;
end.


Good Luck!!!
---------
Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор)
Украина, Славянск
Организация: Славянский государственный педагогический университет (Кафедра алгебры)
ICQ: 289363162
----
Ответ отправлен: 31.10.2007, 20:42


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.61.1 от 16.10.2007
Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru

В избранное