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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2012, 18:12   #1
Drago56
Пользователь
 
Регистрация: 13.12.2010
Сообщений: 91
По умолчанию Файл в ООП

Здравствуйте!Я сделал программу,эту программу надо сделать в ООП Паскаль или можно в делфи.Помогите...
Условие:Создать файл состоящий из нескольких целых чисел.Все значение кратные 9 в файле заменить на 9.Дописать измененный файл количеством таких замен,затем количеством отрицательных чисел в файле.
Код:
Type fail = file of integer;
Var a:fail;
    x:integer;
    q3,q2,q,i,k:byte;
    
procedure Vvod(var f:fail);
begin
assign(f,'\ana');
writeln;
rewrite(f);
for i:=1 to k do begin
read(x);
write(f,x);
end;
  close(f);
end;

procedure Vivod(var f:fail);
begin
 reset(f);
  while not eof(f) do
    begin
    read(f,x);
    write(x:4);
    end;
  close(f);
end;

procedure zam(var f:fail);
begin
 reset(f);
  while not eof(f) do  //poka ne dostignet konca stroki "s" vipolniat yslovie
    begin
    inc(q);
    read(f,x);
    if x<0 then inc(q3);
    if x mod 9 = 0 then
       begin
       inc(q2);
            x:=9;
            seek(f,q-1);
            write(f,x);
       end;
    end;
  close(f);
end;

procedure Vstavka(var f:fail);
begin
 reset(f);
       seek(f,filesize(f));
       write(f,q2);
       write(f,q3);
close(f);
end;
    
Begin
Writeln('Ввдите сколько значений будуте вводить');
readln(k);
writeln;
Vvod(a);
writeln('Созданный файл:');
Vivod(a);
writeln;
writeln('-----------------------------------------');
writeln;
zam(a);
Vstavka(a);
writeln('Преобразованный файл:');
Vivod(a);
End.
Drago56 вне форума Ответить с цитированием
Старый 25.11.2012, 18:14   #2
Drago56
Пользователь
 
Регистрация: 13.12.2010
Сообщений: 91
По умолчанию

Я пробывал вводить данные через Edit.text и выводить через TextLabel.Caption, но там когда приходилось менять тип данных StrToInt или IntToStr программа не признает почему то эти функции
Drago56 вне форума Ответить с цитированием
Старый 25.11.2012, 18:18   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ну а где твои наработки в Делфи раз уж ты их делал таки?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 25.11.2012, 18:23   #4
Drago56
Пользователь
 
Регистрация: 13.12.2010
Сообщений: 91
По умолчанию

В делфи нету.Просто синтаксис похож ,если кому легче её на делфи сделать.Я и такую приму разберу
Drago56 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Открыть файл, разделить ячейку на 1000, сохранить файл, закрыть файл. Как? Ник Харди Microsoft Office Excel 7 30.01.2012 18:47
КР ООП Airou Фриланс 3 04.03.2011 00:45
C++ ООП Smile.id Помощь студентам 2 21.02.2010 13:41
Паскаль ООП. Примеры программ с использованием ООП SeЯgey Помощь студентам 5 13.05.2009 21:55