Данные из текстового файла, записать в другой файл но уже по алфавиту

03.03.2014, 23:32. Показов 563. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Вот короче наткнулся на такую программу,[PASCAL], можно ли её просто чуть переделать что бы она не запрашивала имена, а сама брала из файла и вписывала их по алфавиту в другой файл?

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
uses crt;
const n=10;
var s1,s2:array[1..n] of string;
    i,j:byte;
    x,y:string;
begin
clrscr;
writeln('Введите ',n,' слов латинским алфавитом:');
for i:=1 to n do
 begin
  write('Слово ',i,'  ');
  readln(s1[i]);
 end;
{создадим такой же массив, переведем все символы в верхний регистр}
for i:=1 to n do
 begin
  s2[i]:='';
  for j:=1 to length(s1[i]) do
  s2[i]:=s2[i]+Upcase(s1[i][j]);
 end;
for i:=1 to n-1 do      {сортируем пузырьком по возрастанию = по алфавиту}
for j:=1 to n-1 do
if (s2[j]>s2[j+1]) then
   begin
    x:=s1[j];s1[j]:=s1[j+1];s1[j+1]:=x;{переставляем слова в основном массиве}
    y:=s2[j];s2[j]:=s2[j+1];s2[j+1]:=y;{и во вспомогательном}
   end;
{выводим по алфавиту}
writeln('Слова по алфавиту:');
for i:=1 to n do
writeln(s1[i],' ');
readln
end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

03.03.2014, 23:32

Ответы с готовыми решениями:

Файл: Считать данные из текстового файла и записать их в другой файл, заданный пользователем...
Доброго времени суток. Выполняя задание по программированию столкнулся с проблемой. Необходимо считать данный из текстового...

Как прочесть данные с текстового файла и записать их в другой текстовый файл
Добрый день всем, есть одна задача которая на половину работает не коректно. А именно надо прочесть цифры с текстового файла и записать те...

Считать данные из текстового файла по условию и записать их в другой текстовый файл (файловый ввод/вывод)
Здравствуйте! Очень прошу о помощи! Суть задания - дан текстовый файл, нужно считать его и записать в другой файл слова состоящие только из...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

03.03.2014, 23:32

Помогаю со студенческими работами здесь

Из текстового файла считываем все слова и выводим их в другой файл по алфавиту
Здравствуйте, помагите пожалуйста с задачей для VB не выше 6.0 версии Из текстового файла считываем все слова и выводим их в другой...

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

Файл: Из текстового файла найти max и min элемент и записать в другой текстовой файл, не используя массив
Из текстового файла найти max и min элемент и записать в другой текстовой файл, не используя массив

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

Из текстового файла прочитать четные числа и записать их в другой файл (С++)
Из текстового файла прочитать четные числа и записать их в другой файл без использования массива (код С++)

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

Наверх