IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Парикмахерская, программа
Дон
сообщение 20.11.2006 22:21
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской

Репутация: -  0  +


Парикмахерская. Для каждого посетителя парикмахерской (с одним мастером) известны следующие величины: t – момент его прихода и τ – продолжительность его обслуживания. Сколько клиентов обслужит мастер за смену продолжительностью Т? Сколько рабочего времени он потратит на обслуживание?
Момент прихода и продолжительность обслуживания вводятся пользователем..
Помогите,плизз,если кто может..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Дон
сообщение 24.11.2006 21:44
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Мужской

Репутация: -  0  +


Цитата
Ты еще не упомянул самый последний оператор, ReadLn. Зачем он?


ReadLn считывает данные с экрана.От read отличается тем что после считывания данных с одной строки обеспечивает переход на другую!

Цитата
Совет: попробуй его убрать (или заключить в фигурные скобки {} ).


Убрал я его...программа не запустилась на выполнение.А в фигурных скобках он у нас просто комментарием станет..то есть программа выполнять эту строчку не будет.

Цитата
1. Рассмотри, чем отличается новый вариант.

Прежде всего обьявлением новой переменной "n",которая стала означать масимальное число клиентов.Тип данных этой переменной Integer,значения которого могут приобретать от -32768 до +32767.
Также появились еще две строчки:
Код
  Write('Vvedite obshee chislo clientov: ');
  ReadLn(n);          {ввод числа клиентов}

Мы предлагаем ввести общее число клиентов,а процедура Readln считывает введенное число.

Цитата
2. Почему для вывода запроса на ввод количества клиентов я использую Write, а не WriteLn?

Потому что так удобнее.Если бы использовали Writeln,то данные бы вводили на следующей строчке.а так вводим на той же где и запрос...красивше так)

Цитата
Еще вопрос: в чем ты работаешь?

Работаю в Turbo Pascal 7.0...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Дон   Парикмахерская   20.11.2006 22:21
lapp   Задачи на моделирование встречаются не очень часто...   21.11.2006 6:49
Дон   Я в паскале очень слаб...он у нас идет первый го...   21.11.2006 13:46
lapp   сегодня-завтра сбегаю за учебником по паскалю и на...   22.11.2006 2:21
lapp   Дон, я понял, что надо не так резко. Начнем с само...   23.11.2006 16:10
Дон   Это мы обьявляем две переменные.Время открытия и...   23.11.2006 18:28
lapp   > Потом мы взяли эти переменные и присвоили им ...   24.11.2006 3:46
Дон   ReadLn считывает данные с экрана.От read отличае...   24.11.2006 21:44
lapp   Привет! > ReadLn считывает данные с экрана....   25.11.2006 11:13
Дон   Попробовал. Да,когда ReadLn отсутствует,то прогр...   25.11.2006 16:58
lapp   Тут ошибку выдал...">" expected.Закл...   26.11.2006 1:09
Дон   Все отлично работает))) { for Don, BarberShop...   26.11.2006 15:07
lapp   И..как задавать как он хочет стричься?допустим у ...   27.11.2006 9:17
Дон   честно говоря не понял...а смысл?если пришел оди...   28.11.2006 21:53
lapp   > честно говоря не понял...а смысл? внимательно...   29.11.2006 2:42
lapp   Дон, ты сдался? надоело?.. Еще одна зарубка в ря...   1.12.2006 5:53
Дон   Вот уж фигушки... Ничего я не сдался..стыдно прост...   1.12.2006 14:49
lapp   Вот уж фигушки... Ничего я не сдался.. И правиль...   1.12.2006 23:48
Дон   В принципе да..курсовую через три дня сдавать) ...   2.12.2006 19:40
lapp   Все работает и пока что все ясно! Это очень х...   6.12.2006 4:04
Дон   Мда..все-таки комментарии вещь хорошая...без них б...   6.12.2006 21:32
Lapp   А как вывести в начале программы большими белыми ...   7.12.2006 7:39
Дон   Можно в принципе и на английсском...я просто хот...   7.12.2006 8:31
Lapp   Можно в принципе и на английсском...я просто хоте...   7.12.2006 9:08
Дон   И цвет фона поменял и текста,только... Нужно что...   7.12.2006 22:24
Lapp   [code]begin TextColor(2); Write(...   8.12.2006 2:49
Дон   Вот какая фигня...текст-то он окрасил... Только ...   8.12.2006 21:25
Lapp   когда я задаю Uses Crt; в начале программы,CTRL-Z...   9.12.2006 11:35
Гость   Зашел,почитал...не разобрался :unsure: мы должн...   9.12.2006 13:20
Lapp   Зашел,почитал...не разобрался :unsure: Такое та...   9.12.2006 13:28
Дон   неа..признаться честно,не нашел.. CheckEof:Bool...   9.12.2006 21:27
Lapp   > неа..признаться честно,не нашел.. Но теперь-т...   10.12.2006 5:08
Дон   нет..признаться,с ними я не знаком.. В раздел...   10.12.2006 16:00
Lapp   В разделе CRT?Нету!я даже поиск давал по глав...   11.12.2006 5:12
Дон   У нас по приложению 4-Типы данных! не могу на...   12.12.2006 0:08
Lapp   > У нас по приложению 4-Типы данных! Это Гл...   12.12.2006 2:16
Дон   Усе..найдено))) спасибо большое :give_rose: ...   12.12.2006 22:35
Lapp   > Усе..найдено))) Вывод: внимательнее относись ...   13.12.2006 4:35
Дон   Прошелся по программе...возникло несколько вопросо...   14.12.2006 17:29
Lapp   > Прошелся по программе...возникло несколько во...   15.12.2006 4:42
Дон   А то... Я почему постоянно переспрашиваю..глупос...   16.12.2006 16:51


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 18.07.2025 14:25
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"