pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

 > Turbo Pascal Онлайн Получить справку

Различия между изменённой записью 3016 оставленной стас 27.03.2017 в 23:42 и
оригинальной записью 4 оставленной OCTAGRAM 12.02.2017 в 07:38
Показать старую версию | новую версию | обе версии

    
1-
{ Вы ведь заметили кнопку "запустить" сверху ? }
1+
program Project1;
3-
program Welcome;
3+
const
4-
uses Crt; { Это нужно из-за особенностей JS-DOS }
4+
  D = [' ', '.', ',', ':', ';', '!', '?', '-', #9, #10, #13];
65
var
7-
  Name: string;
6+
  S : String;
7+
  i, Len : Integer;
8+
begin
9+
  repeat
10+
    Writeln('Задайте текст:');
11+
    Readln(S);
98
begin
10-
  WriteLn;
9+
  repeat
11-
  WriteLn('Переключение на русский -- правый Ctrl');
10+
    Writeln('Задайте текст:');
12-
  WriteLn;
11+
    Readln(S);
13-
  Write('Как вас зовут, путник? -- ');
14-
  ReadLn(Name); { Если не добавить uses Crt, из-за особенностей JS-DOS здесь зависнет }
15-
  WriteLn('Добро пожаловать на наш сайт, ', Name);
16-
  WriteLn;
17-
end.
13+
    Len := Length(S);
14+
    for i := Len downto 1 do begin
15+
      if S[i] in D then Continue;
16+
      if ( (i = 1) or (S[i - 1] in D) ) and (S[i] = UpCase(S[i])) then
17+
        Insert('!', S, i);
18+
    end;
20+
    Writeln('Текст после обработки:');
21+
    Writeln(S);
23+
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
24+
    Readln(S);
25+
  until S <> '';
26+
end.

Использовать подсветку синтаксиса
В текущей реализации JS-DOS Read/ReadLn работают только при подключенном модуле Crt! Для подсветки отдельных строк используйте для них префикс @@


картинка


Запомнить мои настройки