символьный тип даных Опции

[Lapp]

точно, спасибо вам большое, теперь век жизни буду вам благодарен

Считаю это просьбой поднять рейтинг andriano (+1) и Unconnected (+1).
Shurik_123, если ты ты не забывал логиниться постоянно, ты ьы сейчас и сам имел возможность сделать это лично.

[Shurik_123]

именно так, им по +1
и тут небольшое добавление есть вот если считываемый символ равен задому, то повторять считывание с2)

program laba8;
uses crt;
var c1,c2,f:char;
begin
textcolor(yellow);
textbackground(red);
clrscr;
  writeln('Vvedite iskomiy simvol');
  f:=readkey;writeln(f);
  writeln('Teper popsimvolno vvodite stroku');
  repeat
    c1:=readkey;
    write(c1);
    if (c1=f) then
      begin
        repeat
        c2:=readkey;
        write(c2);
        until c2<>f;
      end;
  until (c1=#0);
  writeln;
  writeln(c2);
  readln;
end.

[Unconnected]

Я так понял, ты хотел сказать, что при некоторых входных данных программа работает неправильно? При каких?

[andriano]

ничего я не путаю на название не обращай внимание я просто свою неправильную переделал под другой вариант а моя это та с выводом последующего символа... там в задании даже есть слово строка значит оно должно решаться черз строковый тип string, а не через символьный char как он это требует

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

[Shurik_123]

Я так понял, ты хотел сказать, что при некоторых входных данных программа работает неправильно? При каких?

в последней с циклом учтены все условия) , а в передыдущиу при вводе двух заданных символах он бы выводил заданный), но я это исправил вставив цикл

repeat
        c2:=readkey;
        write(c2);
        until c2<>f;

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

хорошо . учту в дальнейшем.

Сообщение отредактировано: Shurik_123 - 27.12.2009 15:00

[Unconnected]

Ага, вот теперь понятно)