Чтение значений из файла, обработка и запись в новый файл

@Sa2n6yA · Регистрация: 22.10.2012

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

[PASCAL]

Pascal

Program yravnenie(input,output);
Var x,a:longint;
Begin
    Assign(input,'input.txt');
    Reset(input);
    Assign(output,'output.txt');
    rewrite(output);
    Readln(a)
    X:=abs(x)+2*a;
    Writeln(x);
    Close(input);
    Close(output);
End.

Мне нужно отладить программу так, чтобы она брала значение "А" из "input.txt" вычисляла по формуле "abs(x)+2*a" и выводила полученные результаты в "output.txt" Заранее спасибо))

magirus · 22.10.2012, 14:17

Комментарий администратора

Внимательнее выбирайте раздел для своих тем. перенесено в Паскаль из С++

@CodeR · 22.10.2012, 14:33

Pascal

Program yravnenie(input,output);
Var x,a:longint;
Begin
    Assign(input,'input.txt');
    Reset(input);
    Assign(output,'output.txt');
    rewrite(output);
    Readln(input,a);
    X:=abs(x)+2*a;
    Writeln(output,x);
    Close(input);
    Close(output);
End.

Добавлено через 26 секунд
только ещё наверно надо ввести или считать с файла значение x?

	22.10.2012, 14:33