Напишите функцию, преобразующую символы табуляции в последовательность из n пробелов

Cherreшенка · 24.05.2011, 01:04

Помогите пожалуйста!!!Вообще ничего не смыслю в Паскале!!!!

1.Напишите функцию, преобразующую символы табуляции в последовательность из n пробелов

2. Представить данные о сотрудниках института в виде массива записей со структурой:
Сотрудник
ФИО
№кафедры
Личн №
Оклад
a)Напишите процедуры заполнения/вывод содержимого данного массива (варианты для консоли/текстового файла)
б)Напишите функцию подсчет суммарного оклада для представителей заданной кафедры( номер кафедры задается с клавиатуры)

Vladimir_S · 25.05.2011, 09:38

Если будете продолжать уснащать форум дубликатами своих сообщений, будете удалены вместе со всеми постами. Дубликат удален.
Что касается самих задач, то первую - посмотрю, как будет время. А второй заниматься точно не буду: это тупое упражнение на освоение типа "запись". И ничего более. Во-первых, разобраться с записями Вы должны самостоятельно, во-вторых, на форуме, в том числе в последние дни, выложена куча решений аналогичных задачек.

Vladimir_S · 25.05.2011, 10:54

Цитата:

Сообщение от Cherreшенка

1.Напишите функцию, преобразующую символы табуляции в последовательность из n пробелов

В программе n=3. Можете изменить, поправив вид строковой константы Sp.

Код:

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.

Cherreшенка · 25.05.2011, 13:46

Спасибо большое!Я писала одни и теже сообщения потому что очень срочно нужна была помощь.У меня правда не было цели засорить форум.Простите.И ещё раз спасибо!!!!

24.05.2011, 01:04	#1 (permalink)
Cherreшенка Новичок Регистрация: 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)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Если будете продолжать уснащать форум дубликатами своих сообщений, будете удалены вместе со всеми постами. Дубликат удален. Что касается самих задач, то первую - посмотрю, как будет время. А второй заниматься точно не буду: это тупое упражнение на освоение типа "запись". И ничего более. Во-первых, разобраться с записями Вы должны самостоятельно, во-вторых, на форуме, в том числе в последние дни, выложена куча решений аналогичных задачек.

25.05.2011, 13:46	#4 (permalink)
Cherreшенка Новичок Регистрация: 23.05.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое!Я писала одни и теже сообщения потому что очень срочно нужна была помощь.У меня правда не было цели засорить форум.Простите.И ещё раз спасибо!!!!

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