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

[Cherreшенка]

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

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

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

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

 

[Vladimir_S]

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

 

[Vladimir_S]

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шенка]

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