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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.06.2008, 16:43   #1
щдуп
 
Регистрация: 16.05.2008
Сообщений: 6
По умолчанию помогите с задачами

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


Дан файл F, компоненты которого являются целыми числами. Никакой компонент файла не равен 0. Числа в файле идут в след. порядке:
10 положительных, 10 отрицательных, 10 положит. и так далее.
Переписать компоненты файла F в следю порядке 5 полож., 5 отриц., и так далее.

заранее спасибо....!!!
щдуп вне форума Ответить с цитированием
Старый 26.06.2008, 18:39   #2
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

По второй задаче. Создашь текстовый файл, лучше в одной папке с программой, заполнишь его точно по условию.
Вывод переделанной последовательности сделал в другой файл, а то если переписать первый, то не с чем сравнивать результат. Вывод в новый файл делал немного методом тыка, а то если по логике, вставляет лишние ноли.
Код:
uses crt;
var f,f1:text;
    a,b:array[1..200]of integer;
    n,x,i,j,k,t:integer;
begin
clrscr;
assign(f,'Chisla.txt');
reset(f); n:=0;k:=0;t:=0;
while not eof(f)do
   begin
     for i:=1+10*n to 5+10*n do
        begin
         k:=k+1;
         read(f,a[k]);
        end;
     for i:=6+10*n to 10+10*n do
        begin
         t:=t+1;
         read(f,b[t]);
        end;
     n:=n+1;
   end;
close(f);
assign(f1,'Chisla1.txt');
rewrite(f1);
for i:=1 to k-5 do
write(f1,a[i],' ');
for i:=k-3 to k-4+t-5 do
write(f1,b[i-k+4],' ');
writeln('Fail Chisla1 zapisan!');
readln;
close(f1);
end.
puporev вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с задачами. GodsAndGlory Общие вопросы C/C++ 1 26.05.2008 19:01
Помогите плз с задачами по курсовой kehayner Фриланс 1 24.04.2008 20:06
ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧАМИ =( sergeyfsd Паскаль, Turbo Pascal, PascalABC.NET 4 13.12.2007 18:02
Помогите пожалуйста с задачами!!! Shatyn Помощь студентам 5 23.06.2007 20:11
Помогите пожалуйста с задачами morphine Паскаль, Turbo Pascal, PascalABC.NET 3 30.01.2007 14:52