0 / 0 / 1
Регистрация: 15.09.2016
Сообщений: 36
1

Найти сумму длин самой длинной и k-й от конца файла строк

03.01.2017, 16:46. Показов 1001. Ответов 3
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задание:
Найти сумму длин самой длинной и k-й от конца файла строк.
Моя программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
s: string; 
f:text;
dl,dl_k,x,k:integer;
begin 
write('Введите номер к-ой строки: '); 
readln(k); 
assign(f, 'zero.txt'); 
reset(f); 
dl:=0; dl_k:=0; 
while not eof(f) do 
begin 
readln(f,s);
x:=length(s); 
k:=k-1; 
if k=0 then dl_k:=x; 
 if (Length(s) > dl)
  then
 dl:= Length(s); 
end; 
close(f); 
writeln('Длина самой длинной строки: ', dl, '; Длина к-ой строки: ',dl_k, '; сумма: ',dl+dl_k); 
end.
Программа получается,но не знаю ,как сделать,чтобы читала с конца файла,а не с начала
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.01.2017, 16:46
Ответы с готовыми решениями:

Текстовый файл.Найти сумму длин самой длинной и от конца файла строк
Найти сумму длин самой длинной и k-й от конца файла строк. Моя программа: type foi = text; ...

Найти сумму длин самой длинной и k-й строк
Решить задачу с использованием структуры «текстовый файл» (в файле хранится текст) Найти сумму...

Найти сумму длин самой длинной и k-й строк в файле
// Решить задачу с использованием структуры «текстовый файл» (в файле хранится текст) // Найти...

Найти сумму длин самой длинной и первой строк в файле
Найти сумму длин самой длинной и первой строк.

3
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
03.01.2017, 16:59 2
Цитата Сообщение от Helen777student Посмотреть сообщение
как сделать,чтобы читала с конца файла,а не с начала
Прочитай файл первый раз, посчитай сколько строк (n).
Потом найди строку с номером n-k+1.
0
0 / 0 / 1
Регистрация: 15.09.2016
Сообщений: 36
03.01.2017, 17:40  [ТС] 3
Сделала так,но выводит следующую за заданной строчкой
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const n=6;
var
s: string; 
f:text;
dl,dl_k,x,k:integer;
begin 
write('Введите номер к-ой строки: '); 
readln(k); 
assign(f, 'zero.txt'); 
reset(f); 
dl:=0; dl_k:=0; 
while not eof(f) do 
begin 
readln(f,s);
 
 dl_k:=n-k+1; 
 if (Length(s) > dl)
  then
 dl:= Length(s); 
end; 
close(f); 
writeln('Длина самой длинной строки: ', dl, '; Длина к-ой строки: ',dl_k, '; сумма: ',dl+dl_k); 
end.
0
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
03.01.2017, 17:42 4
Цитата Сообщение от Puporev Посмотреть сообщение
Прочитай файл первый раз, посчитай сколько строк (n).
А Вы что делаете?
0
03.01.2017, 17:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.01.2017, 17:42
Помогаю со студенческими работами здесь

Найти произведение длин самой длинной и первой строк
Решить задачу с использованием структуры текстовый файл (в файле целые числа). Найти произведение...

Задача с использованием структуры «текстовый файл» (в файле хранится текст) 1) Найти сумму длин самой длинной и последне
Задача с использованием структуры «текстовый файл» (в файле хранится текст) 1) Найти сумму длин...

Найти сумму длин самой короткой и первой строк
Решить задачу с использованием структуры «текстовый файл» (в файле хранится текст) Найти сумму...

Найти сумму длин самой короткой и первой строк
Помогите пожалуйста! Написать программу с использованием структуры «текстовый файл» (в файле...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru