Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 25.02.2008, 20:28   #21 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Если число сотрудников неизвестно, создайте текстовый файл со списком и используйте чтение из файла в динамический массив.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 25.02.2008, 20:31   #22 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Попробуйте скопировать мой вариант и запустить, предварительно изменив crt на wincrt. Команду clrscr тоже можно не писать.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 25.02.2008, 20:32   #23 (permalink)
clever person
Member
 
Регистрация: 07.02.2008
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

я так сделала но все равно фамилии не выводятся
clever person вне форума   Ответить с цитированием
Старый 25.02.2008, 20:37   #24 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

А что делает? Числа-то хоть выводит?
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 25.02.2008, 20:43   #25 (permalink)
clever person
Member
 
Регистрация: 07.02.2008
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

числа выводит а вот фамилии нет
clever person вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 25.02.2008, 20:45   #26 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Какая у вас версия Паскаля?
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 25.02.2008, 20:47   #27 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Только что проверил в Borland Pascal 7.1 - все выводит
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 25.02.2008, 20:49   #28 (permalink)
clever person
Member
 
Регистрация: 07.02.2008
Сообщений: 17
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

у меня очень старый турбо паскаль
clever person вне форума   Ответить с цитированием
Старый 25.02.2008, 20:57   #29 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Внес небольшие изменения в программу, иначе не выводилась фамилия, если найденный элемент первый в списке. Попробуйте этот вариант.
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Старый 25.02.2008, 21:05   #30 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

Цитата:
Сообщение от clever person
у меня очень старый турбо паскаль
Вы фамилии как вводили - на русском? Кроме цифр какие нибудь знаки на экран выводятся?
__________________
Убить всех человеков!
AlexZir вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:49.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.