0

В месте, где написано while (s) do begin пишет:

Нельзя преобразовать тип string к boolean.

Пишу по книжке, в книжке указан такой код:

var  
  f: text;  
  s: string;  
begin  
  assign (f,'dop/file1.txt');  
  rewrite (f);  
  readln (s);  
  while (s) do begin  
    writeln (f,s);  
    readln (s);  
  end;  
  close (f);  
end. 

И там дано задание сделать программу, которая открывает файл и записывает туда введенную информацию с клавиатуры. Я написал:

program TeleFon;  
var  
  f: text;  
  s: string;  
begin  
  assign (f,'dop/phone.txt');   
  reset (f);  
  while not eof (f) do begin  
    readln (f,s);  
    writeln (s);  
  end;  
  close (f);  
  append (f);  
  readln (s);  
  while (s) do begin  
    writeln (f,s);  
    readln (s);  
  end;  
  close (f)  
end.  

Помогите, что не так?

4
  • 1
    а что за книжка? там точно такой код?
    – Grundy
    17 авг 2016 в 15:06
  • 1
    интересно в каком диалекте паскаля это компилируется... Хотя я в FPC видел i++, так мало ли чего там в С - style.
    – pavel
    17 авг 2016 в 15:07
  • 1
    while (s <> '') do
    – user176262
    17 авг 2016 в 15:21
  • "Основы программирования" В.М.Бондарёв, В.И.Рубинский, Е.Г.Качко 18 авг 2016 в 17:08

1 ответ 1

2

в условии while должна стоять истина и выход из цикла, если ложь

s - строка, а никак не булево, т.е. верно будет:

while(s = 'blabla')

или

while(Length(s) > 0)

но никак не сама s

0

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.