Файлы,строки

@theabyss · Регистрация: 18.05.2011

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

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

помогите с лабой!!!

@KaiTheCat · 18.05.2011, 15:51

Pascal

const
   s='text.txt';
var
   f: text;
   st: string;
   ch: char;
   a: array['A'..'Z'] of integer;
   i,vs: integer;
   c: real;
begin
   assign(f,s);
   reset(f);
   while not eof(f) do
      begin
         readln(st);
         for i:=1 to length(st) do
            if st[i] in ['A'..'Z'] then
               begin
                  inc(vs);
                  inc(a[st[i]]);
               end; 
      end;
   close(f);
   write('введите интересующую букву: ');
   readln(ch);
   r:=a[ch]*100/vs;
   writeln(r:0:1,' %');
   readln
end.

@theabyss · 18.05.2011, 16:29 **[ТС]**

спасибо биг

Добавлено через 13 минут
KaiTheCat, пишет r не обьявлена

@KaiTheCat · 18.05.2011, 16:31

theabyss, эм.. Вместо с - r (9 строка)

@theabyss · 18.05.2011, 16:39 **[ТС]**

KaiTheCat, чёт не могу понять пишу до бесконечности и ничего не выводит

Добавлено через 49 секунд
KaiTheCat, создал файл текстовый text.txt и написал туда Mama Mula pamy

@KaiTheCat · 18.05.2011, 16:44

theabyss, извиняюсь, в 15 строке readln(f, st)
Да, и надо с капсом печатать

@theabyss · 18.05.2011, 16:58 **[ТС]**

KaiTheCat, любую букву ввожу и пишит ошибку 207 invalid floating point operation

Добавлено через 9 минут
KaiTheCat, можешь дать Icq или скайп свой чтобы удобней было объяснить проблему?

@KaiTheCat · 18.05.2011, 17:08

theabyss, да я хз что у тебя там за проблема с плавающими запятыми>< у меня все работает

@theabyss · 18.05.2011, 17:09 **[ТС]**

ну можно попросить твой скайп или аську?

@KaiTheCat · 18.05.2011, 17:12

theabyss, а смысл? Я не знаю, что с этой запятой делать. Личку включи - id в вк дам

Добавлено через 50 секунд
theabyss, попробуй написать r:5:2 или как-нибудь по-другому

@theabyss · 18.05.2011, 17:14 **[ТС]**

KaiTheCat, открыл личку

@KaiTheCat · 18.05.2011, 17:15

theabyss, до конца открой (:

@nuHrBuH · 18.05.2011, 18:26

Не по теме:

а-я-я. Кот, что за некачественно выполненная работа?

@KaiTheCat · 18.05.2011, 18:35

nuHrBuH, коронное:"Ничего не знаю, у меня все работает!".
Не, реально работает, там вообще клинический случай. Даже если ввести целочисленную переменную и присвоить ей round(r), выдает эту 207 ошибку с запятой.

@theabyss · 19.05.2011, 15:16 **[ТС]**

помогите пожалуйста уже мучаюсь с этой ошибкой что мы с ней только не вводили и всё одно и тоже

Добавлено через 5 часов 48 минут
помогите пожалуйста с лабой намудрили и в итоге не работает кто может напишите пжл рабочую

Добавлено через 14 часов 51 минуту
помогите с лаболаторной уже голова не шарит как её делать

@theabyss 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 23
		1
	Файлы,строки 18.05.2011, 13:42. Показов 779. Ответов 14 Метки нет (Все метки) Дан файл, содержащий текст, набранный заглавными буквами. Провести частотный анализ текста, т. е. указать (в процентах), сколько раз встречается та или иная буква. помогите с лабой!!! 0

@theabyss 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 23
	18.05.2011, 16:29 [ТС]	3
	спасибо биг Добавлено через 13 минут KaiTheCat, пишет r не обьявлена 0

@KaiTheCat К.О. 534 / 499 / 344 Регистрация: 26.03.2011 Сообщений: 1,141
	18.05.2011, 16:31	4
	theabyss, эм.. Вместо с - r (9 строка) 0

@theabyss 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 23
	18.05.2011, 16:39 [ТС]	5
	KaiTheCat, чёт не могу понять пишу до бесконечности и ничего не выводит Добавлено через 49 секунд KaiTheCat, создал файл текстовый text.txt и написал туда Mama Mula pamy 0

@KaiTheCat К.О. 534 / 499 / 344 Регистрация: 26.03.2011 Сообщений: 1,141
	18.05.2011, 16:44	6
	theabyss, извиняюсь, в 15 строке readln(f, st) Да, и надо с капсом печатать 0

@theabyss 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 23
	18.05.2011, 16:58 [ТС]	7
	KaiTheCat, любую букву ввожу и пишит ошибку 207 invalid floating point operation Добавлено через 9 минут KaiTheCat, можешь дать Icq или скайп свой чтобы удобней было объяснить проблему? 0

@KaiTheCat К.О. 534 / 499 / 344 Регистрация: 26.03.2011 Сообщений: 1,141
	18.05.2011, 17:08	8
	theabyss, да я хз что у тебя там за проблема с плавающими запятыми>< у меня все работает 0

@theabyss 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 23
	18.05.2011, 17:09 [ТС]	9
	ну можно попросить твой скайп или аську? 0

@KaiTheCat К.О. 534 / 499 / 344 Регистрация: 26.03.2011 Сообщений: 1,141
	18.05.2011, 17:12	10
	theabyss, а смысл? Я не знаю, что с этой запятой делать. Личку включи - id в вк дам Добавлено через 50 секунд theabyss, попробуй написать r:5:2 или как-нибудь по-другому 0

@theabyss 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 23
	18.05.2011, 17:14 [ТС]	11
	KaiTheCat, открыл личку 0

	19.05.2011, 15:16

@KaiTheCat К.О. 534 / 499 / 344 Регистрация: 26.03.2011 Сообщений: 1,141
	18.05.2011, 17:15	12
	theabyss, до конца открой (: 0

@nuHrBuH
	18.05.2011, 18:26 #13
	Не по теме: а-я-я. Кот, что за некачественно выполненная работа? 1

@KaiTheCat К.О. 534 / 499 / 344 Регистрация: 26.03.2011 Сообщений: 1,141
	18.05.2011, 18:35	14
	nuHrBuH, коронное:"Ничего не знаю, у меня все работает!". Не, реально работает, там вообще клинический случай. Даже если ввести целочисленную переменную и присвоить ей round(r), выдает эту 207 ошибку с запятой. 1

@theabyss 0 / 0 / 0 Регистрация: 18.05.2011 Сообщений: 23
	19.05.2011, 15:16 [ТС]	15
	помогите пожалуйста уже мучаюсь с этой ошибкой что мы с ней только не вводили и всё одно и тоже Добавлено через 5 часов 48 минут помогите пожалуйста с лабой намудрили и в итоге не работает кто может напишите пжл рабочую Добавлено через 14 часов 51 минуту помогите с лаболаторной уже голова не шарит как её делать 0