Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.05.2011, 22:21   #1
Мирзали
Пользователь
 
Регистрация: 07.05.2011
Сообщений: 28
Печаль

В файле a1 набран текст.
1) Для символа "?" заданного текста указать, сколько раз он встречается в тексте.
2) Вывести все символы, которые встречаются в первой половине текста.
3) Вывести латинскую букву, которая встречается в тексте чаще ос¬тальных в 3 и 4 строках.
4) Результаты вывести в конец файла a1.

у меня есть следующий код, но там не выходит никакого результата. сейчас выложу его.



_____________________________
Форум - не чат!
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Правка"
и дописывайте в своё сообщение, что Вы хотели добавить!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 10.05.2011 в 22:28.
Мирзали вне форума Ответить с цитированием
Старый 10.05.2011, 22:37   #2
Мирзали
Пользователь
 
Регистрация: 07.05.2011
Сообщений: 28
По умолчанию

Код:
program mkurs;
uses crt; 
Type TStringArray = array [1..10000] of ^string; 
Const InputFile = 'd:\input.txt';

var mas: TStringArray; 
 TextFile: Text;  
 i,j,n: word;
 ch: char;
 MaxB: word;
 Max : word;
 ST : char;
 WP: word;
 Symbols: set of char;
begin
CLrscr;
assign (TextFile,InputFile);
reset (TextFile);
while not Eof (TextFile) do
 begin
 inc(n); 
 new(mas[n]); 
 readln (TextFile,mas[n]^); 
 end;
Close(textFile); 

for j:=1 to n div 2 do 
 for i:=1 to length(mas[j]^) do 
 if not (mas[j]^[i] in symbols) then include(symbols,mas[j]^[i]);
 
if odd (n) then 
 for i:=1 to length(mas[(n div 2)+1]^) do 
 if not (mas[(n div 2)+1]^[i] in Symbols) then include(symbols,mas[j]^[i]);

for i:=1 to n do 
 for j:=1 to Length (mas[n]^) do
 if mas[i]^[j]='?' then inc(WP);

Max:=0;
if n>3 then
for ch:='A' to 'Z' do 
begin
 MaxB:=0; 
 for i:=1 to Length (mas[3]^) do
 if (Upcase(mas[3]^[i])=ch) then inc(MaxB);
 for i:=1 to Length (mas[4]^) do
 if (Upcase(mas[4]^[i])=ch) then inc(MaxB);
 if MaxB>=Max then
 begin
 ST:=ch;
 Max:=MaxB;
 end;
end;

Writeln ('Вопросительных знаков в тексте:',WP);
writeln ('Самая часто встречающаяся буква:',ST,' - ',Max,' раз');

write ('Символы встречающиеся в первой половине текста:');
for i:=1 to 255 do 
 if char(i) in symbols then
 write (char(i));
readKey;
Append (TextFile);
writeln (TextFile,#13#13,'Вопросительных знаков в тексте:',WP);
writeln (TextFile,'Самая часто встречающаяся буква:',ST,' - ',Max,' раз');

write (TextFile,'Символы встречающиеся в первой половине текста:');
for i:=1 to 255 do 
 if char(i) in symbols then
 write (TextFile,char(i));
Close (TextFile);
for i:=1 to n do
 Dispose(mas[i]);
end.
Мирзали вне форума Ответить с цитированием
Старый 10.05.2011, 22:42   #3
Мирзали
Пользователь
 
Регистрация: 07.05.2011
Сообщений: 28
По умолчанию

к сожалению, это все одна программа...((((

Serge_Bliznykov, к сожалению, это все одна программа...((((

Serge_Bliznykov, ну раз у меня есть код, это ведь не значит что у меня она работает. просто выложил некоторую работу проведенное мною.

Serge_Bliznykov, на форум решил написать, после того, когда понял, что у меня не получается))

Serge_Bliznykov, если у вас есть время, помогите мне пожалуйста.


__________
ПРЕКРАТИТЕ ПОСТИТЬ ОДНО СООБЩЕНИЕ ЗА ДРУГИМ!
ЭТО ЗАПРЕЩЕНО!

Модератор.

Последний раз редактировалось Serge_Bliznykov; 10.05.2011 в 23:54.
Мирзали вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Строки и файл... garyanikin Помощь студентам 7 17.01.2010 23:33
Запись строки в файл SL1CK Общие вопросы Delphi 3 07.01.2010 16:20
Как вписать строки в файл Master-Skull Общие вопросы Delphi 17 07.09.2007 14:45