Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.05.2016, 19:15   #11
Dexal
Пользователь
 
Регистрация: 23.04.2016
Сообщений: 45
По умолчанию

Цитата:
Сообщение от evg_m Посмотреть сообщение
строки (строковые литералы) в твоей картинке выделятся желтым.
найди желтый цвет в неверно записанном writeln и сообрази ГДЕ он должен быть.
тот апостров я случайно удалил,он у меня стоит уже)но программа не запускается)

Цитата:
Сообщение от Аватар Посмотреть сообщение
Сравни с предыдущим writeln и найди семь отличий или сколько их там. Кстати там еще запятой не хватает. Ну и лень мне код вбивать. Как и тебе - картинку подсунул
вроде должно быть так,но не работает)может паскаль все таки?
Изображения
Тип файла: jpg typ2.jpg (30.1 Кб, 126 просмотров)

Последний раз редактировалось Вадим Мошев; 15.05.2016 в 20:35.
Dexal вне форума Ответить с цитированием
Старый 15.05.2016, 19:54   #12
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
может паскаль все таки?
что может Паскаль?

1) научитесь открывать в каком-нибудь редакторе WKJKSJDA.PAS и копировать оттуда текст программы на форум. Картинки - это не наглядно и не удобно!

2) покажите первые строчки вашей программы. Что у Вас за файл f ?

3) переменная ch - это строка? Тип string ?
тогда читать её из файла надо так:
Код:
ReadLn(f,ch);
Serge_Bliznykov вне форума Ответить с цитированием
Старый 15.05.2016, 20:20   #13
Dexal
Пользователь
 
Регистрация: 23.04.2016
Сообщений: 45
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
что может Паскаль?

1) научитесь открывать в каком-нибудь редакторе WKJKSJDA.PAS и копировать оттуда текст программы на форум. Картинки - это не наглядно и не удобно!

2) покажите первые строчки вашей программы. Что у Вас за файл f ?

3) переменная ch - это строка? Тип string ?
тогда читать её из файла надо так:
Код:
ReadLn(f,ch);
Код:
Program files_vt_lr3;
uses crt;
var
ch,k:string;
f:text;
i,sum,n:integer;
begin
sum:=0;
clrscr;
k:='hello world';
assign(f,'test.txt');
rewrite(f);
write(f,k);
close(f);
reset(f);
while not Eof(f)do
begin
Read(f,ch);
writeln(ch);
end;
For i:=1 to length(ch) do
begin
if(ch[i]='l')then
begin
writeln('найден символ l,имеющий позицию= ',i);
sum:=sum+1;
end;
end;
writeln('кол-во символов l,= ',sum);
end.

Последний раз редактировалось Аватар; 15.05.2016 в 20:28.
Dexal вне форума Ответить с цитированием
Старый 15.05.2016, 21:45   #14
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Dexal, я бы вашу программу записал так:
Код:
program files_vt_lr3;
uses crt;
var
  k: string;
  f: text;
  i, sum: integer;
begin
  sum := 0;
  clrscr;
  k := 'hello world';
  assign(f, 'test.txt');
  rewrite(f);
  writeln(f, k);
  close(f);

  reset(f);
  while not Eof(f) do
  begin
    ReadLn(f, k);
    WriteLn(k);
    for i := 1 to length(k) do
      if (k[i] = 'l') then
      begin
        writeln('найден символ l,имеющий позицию= ', i);
        sum := sum + 1;
      end;
  end;
  writeln('В файле всего кол-во символов l,= ', sum);
  ReadLn; {остановим программу до нажатия Enter}
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 15.05.2016, 22:02   #15
Dexal
Пользователь
 
Регистрация: 23.04.2016
Сообщений: 45
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Dexal, я бы вашу программу записал так:
Код:
program files_vt_lr3;
uses crt;
var
  k: string;
  f: text;
  i, sum: integer;
begin
  sum := 0;
  clrscr;
  k := 'hello world';
  assign(f, 'test.txt');
  rewrite(f);
  writeln(f, k);
  close(f);

  reset(f);
  while not Eof(f) do
  begin
    ReadLn(f, k);
    WriteLn(k);
    for i := 1 to length(k) do
      if (k[i] = 'l') then
      begin
        writeln('найден символ l,имеющий позицию= ', i);
        sum := sum + 1;
      end;
  end;
  writeln('В файле всего кол-во символов l,= ', sum);
  ReadLn; {остановим программу до нажатия Enter}
end.
вы волшебник,огромное спасибо вам^_^
Dexal вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Несоответствие типов данных SeNaT БД в Delphi 1 07.05.2013 12:54
Несоответствие типов Кристинка89 Общие вопросы Delphi 2 24.05.2011 17:25
несоответствие типов Rin БД в Delphi 7 11.01.2011 14:27
Несоответствие типов. Иван=) Помощь студентам 7 04.11.2010 13:27
Несоответствие типов nusik Общие вопросы Delphi 14 31.05.2009 17:24