07.11.2012 Робота з файлами Печать
Добавил(а) Гісь Ігор Володимирович   
07.11.12 08:19

Робота з файлами

Pascal

C++

var f1,f2:text;

assign(f1,'input.dat');

reset(f1);

read(f1,...);

close(f1);

assign(f2,'output.dat');

rewite(f2);

write(f2,...);

close(f2);

#include <fstream.h>

void main()

{

ifstream inp;inp.open("input.dat");

int a,b,c;

inp>>a>>b;

inp.close();

c=a+b;

ofstream out;out.open("output.sol");

out<<c;

out.close();

}

assign(input,'input.dat');

reset(input);

read(...);

close(input);

assign(output,'output.dat');

rewite(output);

write(...);

close(output);

#include <fstream.h>

ifstream inp("input.dat");

ofstream out("output.sol");

void main()

{

int a,b,c;

inp>>a>>b;

c=a+b;

out<<c;

}

Приклад програми на Delphi

program zad1;

{$APPTYPE CONSOLE}

var a,b,c:integer;

begin

assign(input,'input.dat');

reset(input);

readln(a,b);

close(input);

c:=a+b;

assign(output,'output.ans');

rewrite(output);

writeln(c);

close(output);

end.

Приклад програми на С++

//#include "stdafx.h"

#include <cstdlib>

#include "iostream"

#include "fstream"

using namespace std;

int main()

{ifstream cin("input.dat");

ofstream cout("output.ans");

int a,b,c;

cin>>a>>b;

c=a+b;

cout<<c<<endl;

return 0;

}