Форум АНТИЧАТ - Студентам с лабораторными сюда

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

22.01.2010, 02:04

a1ertso

Новичок

Регистрация: 16.12.2009

Сообщений: 29

Провел на форуме:
101927

Репутация: 0

Исправте пожалуйста ошибки.
Делфи.

PHP код:


		
			
 program funktion;

{$APPTYPE CONSOLE}

uses

  SysUtils,

  Math;



var

  x,a,alpha,betta,y:real;

  Rezult:real;

  fo:text;



  procedure     ReadFromFile(var x,a,alpha,betta:real) ;

     var  fi:text;

     begin

       AssignFile(fi,'file1.txt');

       Reset(fi);

       Readln(fi,x,a,alpha,betta);

       Closefile(fi);

     end;

   procedure WriteToFile(var f:text ;y:real);

      begin

        WriteLn(f,' Arithmetic expression: Y=',Rezult);

           CloseFile(f);

      end;





 function F(x,a,alpha,betta:real):real;

  var

  ch,zn,y:real;

    begin

      ch:=logN(3,power(x+1,3))-15*power(10,-3.5)*

                x+power(sqrt(alpha+6*power(10,-5)),5)+arcsin(betta);

      zn:=exp(a)*(x*x*x)+6.15*power(10,4)*

                 sqr(cos(betta)) +power(x/a+tan(0.6),4);

      y:=ch/zn;

      F:=Y;

    end;

  begin

      ReadFromFile(x,a,alpha,betta) ;

      Y:= F(x,a,alpha,betta);

      AssignFile(fo,'funks.txt');

      Rewrite(fo);

      WriteToFile(fo,y);



  end.

В итоге, результат "У" должен записатся в файл с ответом Arithmetic expression: Y=(ответ). но выводяться только нули.

И по возможности вторую задачку:

PHP код:


		
			
  PROGRAM laba_6;

{$APPTYPE CONSOLE}

uses

  SysUtils,math;



  var

    F:array [1..10] of integer;

    e,c,pi,k,m :real;

                                                            



  i,n:integer;

  ee,ff :string;

  fi,fo :text;

    begin

     AssignFile(fi,'1.txt');

        read(fi);          //откр. для чтения

      READ(fi,e,c,pi,k,m);           //читаем строку



         for i:=1 to n do Read(fi,F[i]);

     CloseFile(fi);              //закрываем файл

                                //вывод инфы в файл

       AssignFile(fo,'1.out');

         Rewrite(fo);                   // открываем для записи

         Writeln(fo,' e',e,' c=',c,' pi=',pi,' k=',k,' m=',m);

                                                              //Writeln(fo,' ' e',e,' c=',c,' pi=',pi,' k=',k,' m=',m);

         Write(fo,' F=(');

              for i:=1 to n do Write(fo,F[i]:3);

         Writeln(fo,' )');

        CloseFile(fo);    // закрываем файл

               //Вывод

   Writeln(' e',e,' c=',c,' pi=',pi,' k=',k,' m=',m);

                                                               //Writeln(' e=',e:12:9,'  c=',e:4);

   Write(' f=(');

        for i:=1 to n do Write(F[i]:3);

          Writeln(' )');

          WriteLn('***** Press <ENTER> to finish *****');

          Readln;

            Readln;

    END.

Взять из файла и переписать в другой. Но второй файл остается пустой. Заранее благодарен.