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

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


Информационный Канал Subscribe.Ru

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

Выпуск № 356
от 09.12.2004, 17:10

Администратор:
Имя: Sensey
URL: Информационный ресурс
ICQ: 105679124
Украина, Харьков
О рассылке:
Задано вопросов: 568
Отправлено ответов: 2157
Активность: 379.7 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

ALex_zaw
Статус: Начальный
Общий рейтинг: 154.54
[Подробней >>]
Alien
Статус: Опытный
Общий рейтинг: 132.07
[Подробней >>]
DSota
Статус: Опытный
Общий рейтинг: 124.92
[Подробней >>]
 
sir henry
Статус: Профессиональный
Общий рейтинг: 164
[Подробней >>]
Boriss
Статус: Профессиональный
Общий рейтинг: 155.68
URL: Программирование на Паскале
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 564. Здравствуйте многоуважаемые эксперты , купил себе видяшку radeon 9800 se, работает прекрасно открыт... (ответов: 5)
Вопрос № 565. Здравствуйте. Я встал в тупик, посути над простой задачей: "Определить является ли заданное с к... (ответов: 3)
Вопрос № 566. Здраствуйте Эксперты. Имеется задача: Имеется N групп учащихся и такое же количество учителей. Зан... (ответов: 1)

Вопросов: 3, ответов: 9


 Вопрос № 564

Здравствуйте многоуважаемые эксперты ,
купил себе видяшку radeon 9800 se, работает прекрасно открыты дополнительные опции. Но мне сказали что эта карта попрасту *ерьмо.
хочу узнать ваше мнение а может и пожелания, но агпрейд делать не зачем



Вопрос отправлен: 06.12.2004, 07:59
Отправитель: ХоТТаБыЧ

[Следующий вопрос >>] [Список вопросов]

Отвечает ALex_zaw

Здравствуйте, ХоТТаБыЧ!
Я не сказал бы что эта карточка, то что Вам о ней говорили, у меня она стоит и не жалуюсь.
поставте к ней Омеговские дрова и директ 9, ы всё будет ок.

Ответ отправлен: 06.12.2004, 10:14
Отправитель: ALex_zaw


Отвечает Alien

Здравствуйте, ХоТТаБыЧ!
интересно, а почему ты не спросил у того кто сказал?
нормальная видяха.

Ответ отправлен: 06.12.2004, 08:03
Отправитель: Alien


Отвечает DSota

Приветствую Вас, ХоТТаБыЧ!
Если драйвера (видеокарты и директХ) нормальные - то на паскале можно написать любую вещь под нее...

Ответ отправлен: 06.12.2004, 11:11
Отправитель: DSota


Отвечает sir henry

Добрый день, ХоТТаБыЧ!
И каким образом это к Паскалю относиться?

Ответ отправлен: 06.12.2004, 11:11
Отправитель: sir henry


Отвечает Boriss

Доброе время суток, ХоТТаБыЧ!
А кто сказал? И какое отношение это имеет к программированию на Паскале? И зачем Вам наши мнения и пожелания, если "агпрейд" делать не хотите?

Ответ отправлен: 06.12.2004, 12:21
Отправитель: Boriss


 Вопрос № 565

Здравствуйте.
Я встал в тупик, посути над простой задачей: "Определить является ли заданное с клавиатуры число кратно трём, кратно трём с избытком 1, кратно трём с избытком 2, или кратно трём с недостатком 1." Текст моей программы прилагаю. Она работает, но за неё на меня наорали, и сказали, чтоя не понял задания, и что программа должна выдавать отдельно, что либо кратно трём с избытком 1, либо кратно трём с избытком 2, либо кратно трём с недостатком 1. Как этого сделать я даже в уме не представляю, ведь избыток 2 есть недостаток 1? Или я не прав? Подскажите верное решение. Большое спасибо.


Приложение:


Вопрос отправлен: 06.12.2004, 14:30
Отправитель: sapun (sapun@pochta.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает ALex_zaw

Добрый день, sapun!
Попробуйте вместо оператора goto использовать оператор Exit и убрать метку, а в строке:
2:writeln ('¬¬¦КБ-L 2 ');
дописать writeln('Недосток 1'), соответственно добавив операторные скобки Begin...end;.
Если не поможет попросите уточнить, что я представляет собой "недостаток 1".


Ответ отправлен: 07.12.2004, 09:34
Отправитель: ALex_zaw


Отвечает Alien

Добрый день, sapun!
может я че не понял, цто такое избыток или не достаток?
как я понял...
ReadLn(Number);
If (Number/3)=Round(Number/3) Then WriteLn('Кратно трем');
If (((Number+1)/3)=Round((Number+1)/3)) Then Writeln('Кратно трем с избытком 1');
Ну и такдалее... Если я че не правильно понял, пиши, исправлю...

Ответ отправлен: 06.12.2004, 15:54
Отправитель: Alien


Отвечает Boriss

Приветствую Вас, sapun!
Мда! Задачка. Видимо он сам не понял, что сказал.
Тогда, наверно, нужно решить задачу по-другому и спросить об этой проблеме. Но, видимо, дело в том, что Вы проходите какую-то тему (оператор) и надо решить задачу с его помощью.
Попробуйте с CASE
AAAAAAAAAA! Наверно, числа меньше 3 с недостатком. См. приложение

Приложение:

Ответ отправлен: 06.12.2004, 16:38
Отправитель: Boriss


 Вопрос № 566

Здраствуйте Эксперты.
Имеется задача:
Имеется N групп учащихся и такое же количество учителей. Занятия
проводятся в следующие (условно) выбранные часы: 1,2,3,.. N. Как
распределить учителей по группам так, чтобы в течение дня учитель дал
одно занятие в каждой группе ровно один раз.
Пример.
При N=3 распределение может быть следующим:
В 1 час
1 учитель работает с 1 группой
2 учитель работает с 2 группой
3 учитель работает с 3 группой
Во 2 час
1 учитель работает с 2 группой
2 учитель работает с 3 группой
3 учитель работает с 1 группой
В 3 час
1 учитель работает с 3 группой
2 учитель работает с 1 группой
3 учитель работает с 2 группой
Входные данные:
С клавиатуры вводится число, определяющее число групп учащихся и
учителей.
Выходные данные:
На экран выводится таблица, показывающая распредел ение учителей по
группам.
При N=3 таблица может иметь следующий вид:
1 учитель 2учитель 3учитель
1 час 1 2 3
2 час 2 3 1
3 час 3 1 2

Так вот, алгоритм перебора всех возможных вариантов я составил, но поблема в том, что нужно как-то отсеять лишнее, т.е. у меня получается так
n=3:
1 2 3
1 3 2
2 1 3
2 3 1 ... ----- а надо так 1 2 3
2 3 1
3 1 2


Приложение:


Вопрос отправлен: 06.12.2004, 16:42
Отправитель: Семен

[Следующий вопрос >>] [Список вопросов]

Отвечает Alien

Добрый день, Семен!
Надеюсь я тебя правильно понял...
Шо вам за изверги такие задачки задают???
Uses
Crt;
Var
Index, Index1: Integer;
ArrayCount: Byte;
Temp: Integer;

Begin
WriteLn('How many?');
Readln(ArrayCount);
For Index:=0 To ArrayCount-1 Do
Begin
Write(Index+1); Write(' hour: ');
For Index1:=1 To ArrayCount Do
Begin
Temp:=Index1+Index;
If Temp>ArrayCount Then Temp:=Temp-ArrayCount;
Write(Temp);
Write(' ');
End;

Writeln;
End;
End.

Ответ отправлен: 06.12.2004, 18:31
Отправитель: Alien



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


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


Получить ответов:


 Выбор рассылки

Программисту
Assembler (25)
C / C++ (24)
Perl (7)
Builder / Delphi (20)
Pascal (21)
Basic / VBA (15)
Java / JavaScript (7)
PHP (20)
Криптография (10)
WinAPI (22)
Радиоэлектроника (17)
Пользователю
Windows 95/98/Me (39)
Windows NT/2000/XP (60)
"Железо" (39)
Поиск информации (24)
Администратору
Windows NT/2000/XP (41)
Linux / Unix (18)
Юристу
Гражданское право (11)
Семейное право (6)
Трудовое право (10)
КоАП (6)

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




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Web-студия "Kalashnikoff.ru"


hotlog_js="1.0";hotlog_d=document; hotlog_n=navigator;hotlog_rn=Math.random(); hotlog_n_n=(hotlog_n.appName.substring(0,3)=="Mic")?0:1; hotlog_r=""+hotlog_rn+"&s=25513&im=127&r="+escape(hotlog_d.referrer)+"&pg="+ escape(window.location.href); hotlog_d.cookie="hotlog=1"; hotlog_r+="&c="+(hotlog_d.cookie?"Y":"N"); hotlog_d.cookie="hotlog=1; expires=Thu, 01-Jan-70 00:00:01 GMT" hotlog_js="1.1";hotlog_r+="&j="+(navigator.javaEnabled()?"Y":"N") hotlog_js="1.2";hotlog_s=screen; hotlog_r+="&wh="+hotlog_s.width+'x'+hotlog_s.height+"&px="+((hotlog_n_n==0)? hotlog_s.colorDepth:hotlog_s.pixelDepth) hotlog_js="1.3" hotlog_r+="&js="+hotlog_js; hotlog_d.write("HotLog") Яндекс цитирования
© 2001-2004 Россия, Москва. Идея, дизайн, программирование: Калашников О.А. ICQ: 68951340
При перепечатке материалов ссылка на данный сайт обязательна!

http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.pasplus
Отписаться

В избранное