Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/30: Рейтинг темы: голосов - 30, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 17.11.2011
Сообщений: 54
1

Файлы. Подсчитать, каких букв в тексте больше - русских или латинских

06.03.2012, 21:55. Просмотров 5975. Ответов 4
Метки нет (Все метки)


Дан файл, содержащий текст, включающий русские и английские слова. Подсчитать, каких букв в тексте больше - русских или латинских (Текстовые файлы)

Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Из файла f получить файл g, исключив повторные вхождения чисел. Порядок следования чисел сохранить. (Типизированные файлы)
(спасибо заранее)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.03.2012, 21:55
Ответы с готовыми решениями:

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

Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или малых
Дана строка символов. Определить, каких букв больше в этом тексте, больших латинских букв или...

Дана строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в тексте больше - русских и
Дана строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в...

каких (русских или латинских) больше и насколько.
Доброго времени суток помогите пожалуйста решить задачу.. Дана строка содержащая русские и...

4
любитель покушать
685 / 637 / 248
Регистрация: 25.09.2011
Сообщений: 1,313
06.03.2012, 22:06 2
РаКсАнКа,
Цитата Сообщение от РаКсАнКа Посмотреть сообщение
Дан файл, содержащий текст, включающий русские и английские слова. Подсчитать, каких букв в тексте больше - русских или латинских (Текстовые файлы)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var
s: string;
m,l: set of char;
i,n,k: integer;
f: text;
begin
assign(f, 'C:\f.txt');
m:= ['А'..'Я','а'..'я','Ё','ё'];
l:= ['A'..'Z','a'..'z'];
reset(f);
while not (eof(f)) do
readln(f,s);
for i:=1 to length(s) do
if s[i] in m then inc(n);
if s[i] in l then inc(k);
if n>k then write('Русских букв больше!');
if k>n then write('Латинских букв больше!');
if n=k then write('Русских и латинских букв поровну!');
close(f);
end.
1
iOS/Android Developer
Эксперт С++
5132 / 1569 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
06.03.2012, 22:10 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
26
const
  Direction = 'C:\File.txt';
  RusLit = ['А'..'Я', 'Ё', 'а'..'я', 'ё'];
  EngLit = ['A'..'Z', 'a'..'z'];
var
  FileTxt: text;
  CountRus, CountEng: integer;
  Str: string;
  i: byte;
begin
  assign(FileTxt, Direction);
  reset(FileTxt);
  while not EOF(FileTxt) do
  begin
    readln(FileTxt, Str);
    for i:=1 to length(Str) do
      if Str[i] in RusLit then inc(CountRus)
        else if Str[i] in EngLit then inc(CountEng);
  end;
  close(FileTxt);
  writeln('Русских букв: ', CountRus);
  writeln('Английских букв: ', CountEng);
  if CountRus > CountEng then write('Русских больше!')
    else if CountRus < CountEng then write('Английских больше!')
      else write('Русских столько же, сколько английских!');
end.
1
Севак
06.03.2012, 22:15
  #4

Не по теме:

Pascal
1
['А'..'Я', 'Ё', 'а'..'я', 'ё'];
не знал что ё не входит и нужно отдельно вбивать, буду знать :)

0
trainspotting
1084 / 484 / 384
Регистрация: 11.11.2010
Сообщений: 773
06.03.2012, 22:17 5
Цитата Сообщение от РаКсАнКа Посмотреть сообщение
Заполнить файл f целыми числами, полученными с помощью генератора случайных чисел. Из файла f получить файл g, исключив повторные вхождения чисел. Порядок следования чисел сохранить. (Типизированные файлы)
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
42
43
44
45
46
47
48
49
var
  f,g:file of integer;
  i,j,n,x,t:integer;
  repeats:boolean;
begin
  write('Amount of numbers to write in file F=');
  readln(n);
  assign(f,'f.int');
  rewrite(f);
  writeln('File F');
  randomize;
  for i:=1 to n do
    begin
      x:=random(10);
      write(f,x);
      write(x:3);
    end;
  writeln;
  assign(g,'g.int');
  rewrite(g);
  reset(f);
  for i:=0 to filesize(f)-1 do
    begin
      seek(f,i);
      read(f,x);
      repeats:=false;
      j:=i;
      while (j>=0) and not repeats do
        begin
          seek(f,j);
          read(f,t);
          if (x=t) and (i<>j) then
            repeats:=true
          else
            dec(j);
        end;
      if not repeats then
        write(g,x);
    end;
  close(f);
  writeln('File G');
  reset(g);
  while not eof(g) do
    begin
      read(g,x);
      write(x:3);
    end;
  close(g);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.03.2012, 22:17

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

Подсчитать, каких букв в тексте больше – русских или латинских
В общем меня препод валит, то, что я делал по варианту отказывается принимать, дала новый вариант и...

Подсчитать, каких букв в тексте больше – русских или латинских
строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в тексте...

Regex: подсчитать, каких букв в тексте больше – русских или латинских
Дана строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в...

Regex: подсчитать, каких букв в тексте больше – русских или латинских
Дана строка, содержащая текст, включающий русские и английские слова. Подсчитать, каких букв в...


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

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

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