Составить программу печати текста с указанной интерпретацией символа tab

12.07.2007, 18:40. **Просмотров** 2691. **Ответов** 2

Составить программу печати текста с указанной интерпретацией символа tab ( предположить фиксированный набор табуляционных остановок ). Сделать с помощью подпрограммы.
На паскале я эту прогу сделал, а вот на бейсик перевести не получается....(((

Pascal

program laba;
uses crt;
var
  S:string;
 
Procedure V(var st: string);
var
   P: string;
   i,j,k,N,m: integer;
   Q: char;
begin
   P:='\t';
       while pos(P,St)>0 do  begin
          k:=pos(P,St);
          delete(St,k,length(P));
          N:=8;
          if(k-2<8) then
            for m:=k-2 to N do begin
               Q:=' ';
               insert(Q,St,k);
            end;
          if(k-2>=8) then begin
             m:=k-2;
             repeat
               Q:=' ';
               insert(Q,St,k);
               inc(m);
             until (m>N+8);
          end;
 
       end;
 
    textcolor(yellow);
    writeln('Nova9I  stroka: ',S);
end;
 
begin
  clrscr;
  textcolor(white);
  write('Vvedite stroky: '); readln(S);
  V(S);
  readln;
end.

Кто может - помоги пожалуйста. Очень вас прошу !!

@HackSign · 19.09.2007, 10:19

Слушай, может я туплю, но как должен символ tab интерпретироваться?

echs · 22.08.2016, 12:12

Вообще говоря интересный вопрос. Что-то я не понял,
что тут паскаль делает? Может кто лучше ориентируется?

@HackSign 41 / 41 / 36 Регистрация: 23.11.2006 Сообщений: 151
	19.09.2007, 10:19	2
	Слушай, может я туплю, но как должен символ tab интерпретироваться? 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	22.08.2016, 12:12	3
	Вообще говоря интересный вопрос. Что-то я не понял, что тут паскаль делает? Может кто лучше ориентируется? 0

Опции темы