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

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Напишите функцию, преобразующую символы табуляции в последовательность из n пробелов (http://www.tehnari.ru/f41/t52147/)

Cherreшенка

24.05.2011 01:04

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

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

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

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

Vladimir_S

25.05.2011 09:38

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

Vladimir_S

25.05.2011 10:54

Цитата:

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

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

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

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