|
|
Опции темы | Опции просмотра |
24.05.2011, 01:04 | #1 (permalink) |
Новичок
Регистрация: 23.05.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Напишите функцию, преобразующую символы табуляции в последовательность из n пробелов
1.Напишите функцию, преобразующую символы табуляции в последовательность из n пробелов 2. Представить данные о сотрудниках института в виде массива записей со структурой: Сотрудник ФИО №кафедры Личн № Оклад a)Напишите процедуры заполнения/вывод содержимого данного массива (варианты для консоли/текстового файла) б)Напишите функцию подсчет суммарного оклада для представителей заданной кафедры( номер кафедры задается с клавиатуры) |
24.05.2011, 01:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Довольно частая проблема, нашлись похожие темы Процедура удаления пробелов в строке Паскаль, символы и строки Стереть табуляцию и поставить нужное количество пробелов |
25.05.2011, 09:38 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Если будете продолжать уснащать форум дубликатами своих сообщений, будете удалены вместе со всеми постами. Дубликат удален.
Что касается самих задач, то первую - посмотрю, как будет время. А второй заниматься точно не буду: это тупое упражнение на освоение типа "запись". И ничего более. Во-первых, разобраться с записями Вы должны самостоятельно, во-вторых, на форуме, в том числе в последние дни, выложена куча решений аналогичных задачек. |
25.05.2011, 10:54 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const Sp=' '; VAR S:String; i:Byte; BEGIN WriteLn('Enter the string containing Tabs:'); ReadLn(S); i:=0; Repeat Inc(i); If Ord(S[i])=9 then begin Delete(S,i,1); Insert(Sp,S,i); Inc(i,2); end; Until i>=Length(S); WriteLn(S); ReadLn; END. |
|
25.05.2011, 13:46 | #4 (permalink) |
Новичок
Регистрация: 23.05.2011
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое!Я писала одни и теже сообщения потому что очень срочно нужна была помощь.У меня правда не было цели засорить форум.Простите.И ещё раз спасибо!!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|