Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
dobravam
0 / 0 / 1
Регистрация: 23.12.2014
Сообщений: 12
#1

Дан текстовый файл заданный пользователем, определить и напечатать количество символов для каждой строки - Turbo Pascal

11.04.2015, 12:11. Просмотров 547. Ответов 1
Метки нет (Все метки)

Дан текстовый файл определить и напечатать количество символов заданных пользователем для каждой строки. Срочно!!! Контрольная!!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.04.2015, 12:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Дан текстовый файл заданный пользователем, определить и напечатать количество символов для каждой строки (Turbo Pascal):

Текстовый файл. Определить количество всех строк и количество символов в каждой строке
В текстовом файле определить количество всех строк и количество символов в...

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

Дан текстовый файл,для каждой строки отобразить слово которое содержит отдельные максимальные письма
Дан текстовый файл,для каждой строки отобразить слово которое содержит...

Дан текстовый файл F. Переписать файл F в файл G, вставляя в конец каждой строки ее порядковый номер.
решите)

Имеется текстовый файл. Напечатать все строки, содержащие в качестве фрагмента заданный текст
...

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

1
Joy
Эксперт Pascal/Delphi
2114 / 1154 / 1416
Регистрация: 29.08.2014
Сообщений: 4,218
13.04.2015, 07:43 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
  s,s1:string[255];
  f:text;
  a:array[1..255] of integer;
  i,j,k:integer;
begin
  assign(f,'in.txt');
  reset(f);
  while not eof(f) do begin
    readln(f,s1);
    inc(j);
    writeln('Строка ',j,':',s1);
    write('Введите символы для счета:');readln(s);
    for k:=1 to 255 do a[k]:=0;
    for k:=1 to length(s1) do begin
      i:=pos(s1[k],s);
      if i>0 then inc(a[i]);
    end;
    for i:=1 to length(s) do writeln('"',s[i],'" : ',a[i]);
  end;
close(f);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2015, 07:43
Привет! Вот еще темы с решениями:

Дан текстовый файл f. Переписать компоненты файла f в файл g, вставляя в начало каждой строки по одному пробелу
помогите решить задачу, у самой только получилось чтоб программа копировался f...

Дан текстовый файл. Вставить в начало каждой строки ее номер
1. Пусть дан файл вещественных чисел. Создайте файл, компонентами которого...

Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок следования букв в каждой строке на противоположный
Дан текстовый файл. Записать все строки файла в новый файл, изменив порядок...

Дан текстовый файл a.txt . В последнюю позицию каждой строки файла добавить символ « * »
Пожалуйста, помогите.. Срочно нужно.. Сижу на экзамене..( буду очень...


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

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

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