Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
1 / 1 / 0
Регистрация: 25.06.2012
Сообщений: 41
1

Дан текстовый файл. Распечатайте текст в обратном порядке слов

29.06.2012, 21:39. Просмотров 1173. Ответов 2
Метки нет (Все метки)


Дан текстовый файл. Распечатайте текст в обратном порядке слов.
Эта задача по теме "Динамические структуры данных"
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.06.2012, 21:39
Ответы с готовыми решениями:

Пусть дан текстовый файл. Распечатайте первую строку, содержащую наибольшее число различных слов
Пусть дан текстовый файл. Распечатайте первую строку, содержащую наибольшее число различных слов...

Пусть дан текстовый файл. Для каждой строки распечатайте слово с номером (n +1) div 2, где n – количество слов в строке
Помогите,пожалуйста,задали задачу,а мы даже не проходили такое(

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

Пусть дан текстовый файл. Распечатайте строку с заданным номером
Пусть дан текстовый файл. Распечатайте строку с заданным номером. Заранее спасибо)!!!

2
153 / 153 / 81
Регистрация: 16.06.2012
Сообщений: 314
29.06.2012, 23:02 2
Лучший ответ Сообщение было отмечено NeedSelf как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Type TList = ^List;
     List = record
        info : string;
        next : TList;
     end;
 
Var lBegin , u : TList;
    f : text;
    s , t : string;
    i : integer;
 
Procedure addToList(Var lBegin : TList ; info : string);
Var u : TList;
Begin
    new(u);
    u^.info := info;
    u^.next := lBegin;
    lBegin := u;
End;
 
Begin
    assign(f , 'file.txt'); reset(f);
    lBegin := Nil;
    while not eof(f) do begin
        readln(f , s);
        s := s + ' ';
        t := '';
        for i := 1 to length(s) do 
            if s[i] = ' ' then begin
                if length(t) > 0 then
                    addToList(lBegin , t);
                t := '';
            end else t := t + s[i];
    end;
    while lBegin <> Nil do begin
        Write(lBegin^.info , ' ');
        u := lBegin^.next;
        Dispose(lBegin);
        lBegin := u;
    end;
End.
Добавлено через 29 секунд
P.S. разделители слов - только пробелы.
1
1 / 1 / 0
Регистрация: 25.06.2012
Сообщений: 41
30.06.2012, 17:01  [ТС] 3
Спасибо огромное
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.06.2012, 17:01

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

Дан текстовый файл f. Для каждой строки распечатайте слово наибольшей длины
дан текстовый файл f. для каждой строки распечатайте слово наибольшей длины. если таких слов...

Пусть дан текстовый файл. Распечатайте все строки, начинающиеся заданным словом.
В общем мне задали следующее задание на C#: 1. Пусть даны два файла целых чисел. Определить,...

Пусть дан текстовый файл. Распечатайте все строки, начинающиеся с заданного слова
Написать программу решающую поставленную задачу с помощью потока ввода-вывода в файлы в текстовом...

Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины
1. Дан текстовый файл. Вывести в другой текстовый файл количество слов одинаковой длины.Пример...

Дан текст. Образовать новый текст, включив в него символы исходного текста в обратном порядке
Дан текст. Образовать новый текст, включив в него символы исходного текста в обратном порядке.

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


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

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

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