Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/14: Рейтинг темы: голосов - 14, средняя оценка - 4.57
Туплюс бейсиком
1

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

12.07.2007, 18:40. Просмотров 2691. Ответов 2
Метки нет (Все метки)


Составить программу печати текста с указанной интерпретацией символа tab ( предположить фиксированный набор табуляционных остановок ). Сделать с помощью подпрограммы.
На паскале я эту прогу сделал, а вот на бейсик перевести не получается....(((
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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.
Кто может - помоги пожалуйста. Очень вас прошу !!
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.07.2007, 18:40
Ответы с готовыми решениями:

Составить программу печати в алфавитном порядке всех букв текста
..(текст оканчивается точкой), входящих в него a) не менее двух раз; b) не более двух раз; ...

Составить программу печати в алфавитном порядке всех букв текста
Составить программу печати в алфавитном порядке всех букв текста (текст оканчивается точкой),...

Составить программу печати всех символов заданного текста, входяших в него по одному разу
Помогите решить задачу: составить программу печати всех символов заданного текста, входяших в него...

Выбрать алгоритм и составить его блок-схему для вычисления значения указанной функции.Составить программу вычисления
Пожалуйста,помогите!!!

2
41 / 41 / 36
Регистрация: 23.11.2006
Сообщений: 151
19.09.2007, 10:19 2
Слушай, может я туплю, но как должен символ tab интерпретироваться?
0
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
22.08.2016, 12:12 3
Вообще говоря интересный вопрос. Что-то я не понял,
что тут паскаль делает? Может кто лучше ориентируется?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.08.2016, 12:12

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Написать программу ввода текста и нахождения слова указанной длины
Разработать программу, которая вводит текст и находит в нем все слова указанной длины n (n...

Составить программу с разработкой и использованием указанной в задании процедуры
Для матрицы B(5 строк, 4 столбца) вычислить выражение Y=5*M1+4*M2+...+1*M5, где Mk- значение...

Составить программу с разработкой и использованием указанной в задании процедуры
В матрице А (4 строки, 5 столбцов) для каждой ее половины (верхней и нижней) вычислить и вывести...

Составить и отладить программу для вычисления по указанной формуле
Значения переменных, указанных в правой части, ввести с клавиатуры, результат вывести на экран....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.