PDA

Просмотр полной версии : задача по паскалю


ТП "Гибкое решение" Билайн
ТП "Гибкое решение" Билайн
Тарифы: МТС, Билайн, МегаФон
Выгодные непубличные тарифы МТС, Билайн, МегаФон, Безлимитный интернет ✅
ShiNOBig
02-05-2011, 20:08
создать 2 файла ф1 и ф2 состоящих из равного числа компонентов вещественного типа. получить файл ф3, каждая компонента которого среднеарифметическому соотвут. компонент файлов ф1 и ф2.

непойму нифига в этих файлах. гугл не помогает:(

Беринг
02-05-2011, 20:11
не хрена не понял:D:D:D

ShiNOBig
02-05-2011, 20:43
создать 2 файла ф1 и ф2 состоящих из равного числа компонентов вещественного типа. получить файл ф3, каждая компонента которого среднеарифметическому соответствующих компонентов файлов ф1 и ф2.

так мю понятнее. хз.

сергей-УФА
02-05-2011, 20:53
DJ PASKAL ты где? реши задачку )))))))))))))))))

Азат_82
02-05-2011, 21:24
задача фигня полная...

severus
02-05-2011, 21:50
кури киберфорум там очень много задач решенных по паскалю
попозже напишу может вспомнить паскаль)

IT
02-05-2011, 22:56
скоро в майкрософт некому работать будет

Азат_82
02-05-2011, 23:01
вот что за кривое у нас образование?
с самого начала учат обзывать переменные f1, f2, f3...
потом в коде таких умельцев хер разберешься без бутылки или двух...((((

The_city
02-05-2011, 23:10
Лучше бы на си учили кодить минуя Паскаль, а задача и правда фигня

severus
03-05-2011, 00:00
вот кажется пашет

program farit;
var f,g,p:file of real; i,n,k,m:integer; a,b,q,w:array[1..100] of real; c,s,z:real;
begin
randomize; n:=10; writeln;
write('Числа файла Ф1 ');
assign(f,'f1.txt');
rewrite(f);
for i:=1 to n do
begin
a[i]:=random(50);
write(f,a[i]);
write(a[i],' ');
end;
close(f); writeln;
write('Числа файла Ф2 ');
assign(g,'f2.txt');
rewrite(g);
for i:=1 to n do
begin
b[i]:=random(50);
write(g,b[i]);
write(b[i],' ');
end;
close(g); read;

reset(f); reset(g);
i:=1; m:=1;
for k:=1 to n do
begin
read(f,c); read(g,s); z:=(c+s)/2; w[m]:=z; m:=m+1;
end;
close(f); close(g); writeln;
write('Числа файла Ф3 ');
assign(p,'p.txt');
rewrite(p);
for i:=1 to n do
begin
write(p,w[i]);
write(w[i],' ');
end;
close(p);
end.

http://rapid.ufanet.ru/9251978 паскаль PABC PascalABC.exe запускает среду в папке прога program1.pas твоя прога