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

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

26.12.2022, 22:53. Показов 458. Ответов 4

Author24 — интернет-сервис помощи студентам
Требования:

1. Входные данные берутся из файла.

2. Результат записывается в файл.

3. По окончании работы вся выделенная память освобождается (стек или очередь очищается).

Дан файл input.txt, компонентами которого являются русские и английские слова.

Сформировать два стека для русских и английских слов. Записать результат в файл output.txt: сначала английские, затем русские слова, каждое слово с новой строки. Порядок следования слов сохраняется.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2022, 22:53
Ответы с готовыми решениями:

Записать в файл h сначала строки файла f, затем - строки файла g с сохранением порядка
Текстовый файл Создать и заполнить текстовые файлы f и g. Записать в файл h сначала строки файла...

Записать в файл H сначала компоненты файла F, затем компоненты файлы G с сохранением порядка
Даны txt файлы F и G.Записать в файл H сначала компоненты файла F,затем компоненты файлы G с...

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

Задать символьные файлы F и G. Записать в файл H сначала компоненты файла F, затем – компоненты файла G с сохранением порядка
Задать символьные файлы F и G. Записать в файл H сначала компо-ненты файла F, затем – компоненты...

4
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7769 / 4598 / 2823
Регистрация: 22.11.2013
Сообщений: 13,076
Записей в блоге: 1
26.12.2022, 23:12 2
Лучший ответ Сообщение было отмечено MrFireFoxBoy как решение

Решение

Покушение на решение негодными средствами (стек меняет порядок на обратный).
0
0 / 0 / 0
Регистрация: 02.12.2021
Сообщений: 5
27.12.2022, 14:50  [ТС] 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
24
25
uses crt;
var s,sa,sr,sao,sro,sl: string;
    i: integer;
begin
write('s=');
readln(s);
s:=s+' ';
sl:='';
sa:='';
sr:='';
sao:='QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm';
sro:='йцукенгшщзхъфывапролджэячсмитьбюёЁЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
for i:=1 to length(s) do
   if s[i]<>' ' then sl:=sl+s[i] else
      begin
      if pos(sl[1],sao)<>0 then sa:=sa+sl+' ';
      if pos(sl[1],sro)<>0 then sr:=sr+sl+' ';
      sl:='';
      end;
writeln('Слова на английском');
writeln(sa);
writeln('Слова на русском');
writeln(sr);
readkey
end.
0
0 / 0 / 0
Регистрация: 02.12.2021
Сообщений: 5
27.12.2022, 22:25  [ТС] 4
хочу сделать так, чтобы сначала в файл записывалась кириллица в столбик, а после латиница также в столбик
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
const
  rus = 'АБВГДЕЖЗИКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзиклмнопрстуфхцчшщъыьэюя';
  lat = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
 
var
  txt: Text;
  c1, c2, c3: string;
  b: integer;
  i:longint;
 
begin
  c2 := '';
  c3 := '';
  write('Введите строку: ');
  readln(c1);
  Assign(txt, 'E:\input.txt');
  Reset(txt);
  while not SeekEof(txt) do
  begin
    b := 0;
    readln(txt, b);
    Write(b, ' ');
  end;
  close(txt);
  
  Assign(txt, 'E:\output.txt');
  Rewrite(txt);
  Writeln(txt, '------------------');
  for i := 1 to length(c1) do
  begin
    if Pos(c1[i], rus) > 0 then begin
      c2 := c2 + c1[i]; end;
    
    if Pos(c1[i], lat) > 0 then begin
      c3 := c3 + c1[i]; end;
      
    Writeln(txt,c1[i]c2[i]);   
    writeln(c1[i],c2[i]);
  end;
  close(txt);
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7769 / 4598 / 2823
Регистрация: 22.11.2013
Сообщений: 13,076
Записей в блоге: 1
28.12.2022, 09:59 5
Берём #3, делаем в столбик:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const NewLine=#13#10;
var
  i: Integer;
  s, sa, sr, sl: String;
begin
  Write('s: '); ReadLn(s); s:=s+' ';
  {sl:=''; sa:=''; sr:='';}
  for i:=1 to Length(s) do
    if s[i]<>' ' then
      sl:=sl+s[i]
    else if sl<>'' then begin
      case UpCase(sl[1]) of
        'A'..'Z':     sa:=sa+sl+NewLine;
        'А'..'Я','Ё': sr:=sr+sl+NewLine;
      end;
      sl:='';
    end;
  WriteLn('Слова на английском');
  WriteLn(sa);
  WriteLn('Слова на русском');
  WriteLn(sr);
end.
Файл прикрутить -- дело пары минут.
0
28.12.2022, 09:59
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.12.2022, 09:59
Помогаю со студенческими работами здесь

Создать файлы f и g. Записать в файл h сначала компоненты файла f, затем - компоненты файла g с сохранением порядка
&quot;Создать файлы f и g. Записать в файл h сначала компоненты файла f, затем - компоненты файла g с...

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

Записать в файл h сначала компоненты файла f, затем компоненты файла g с сохранением порядка
Даны txt файлы f и g. Записать в файл h сначала компоненты файла f , затем компоненты файла g с...

Записать в файл h сначала компоненты файла f, затем – компоненты файла g с сохранением порядка
Задание: Даны символьные файлы f и g. Записать в файл h сначала компоненты файла f, затем –...

Записать в файл h сначала компоненты файла f, затем - компоненты файла g с сохранением порядка
Даны текстовые файлы f и g. Записать в файл h сначала компоненты файла f, затем - компоненты файла...

Записать в файл h сначала компоненты файла f , затем – компоненты файла g с сохранением порядка
Даны символьные файлы f иg . Записать в файлh сначала компоненты файлаf , затем – компоненты файлаg...


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

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

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