Question

ajutați-mă va rog cu problema Cu fișier. 4 . Limbajul Pascal sau C++.. va rog mult.

Answer 1

Pascal


program temper;
uses Sysutils;
var fisierIntrare,fisierIesire:string;
    tfIn,tfOut:Text;
    i:integer;
    s,rez:double;
    temp:array[1..12] of integer;
    
begin
    fisierIntrare:='date.in';
    fisierIesire:='date.out';
    AssignFile(tfIn,fisierIntrare);
    reset(tfIn);
    AssignFile(tfOut,fisierIesire);
    rewrite(tfOut)
    for i:=1 to 12 do
       begin
       read(tfIn,temp[i]);
       s:=s+temp[i];
       end;
    writeln('Temperatura medie anuala:',FormatFloat('0.00',s/12));   
    writeln(tfOut,FormatFloat('0.00',s/12);
    close(tfOut);
end.

C++

#include <iostream>
#include <fstream>
#include <iomanip>
using namespace std;

int main(){
    int temp[12],i;
    double rez,s;
    ifstream fid("date.in");
    ofstream fod("date.out");
    for(i=0;i<12;i++){
        fid>>temp[i];
        s=s+temp[i];
    }
    cout<<"Temperatura medie anuala:"<<fixed<<setprecision(2)<<s/12;
    fod<<fixed<<setprecision(2)<<s/12;
    return 0;
}