Показать сообщение отдельно
Старый 11.01.2011, 20:44   #5 (permalink)
Deomurg
Новичок
 
Регистрация: 11.01.2011
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

program prog_8;
uses crt;
const p=3.14;
var y:array[1..11] of real;
b,j,u,o,i,n:integer;
m,sum:real;
begin
clrscr;
n:=0;
j:=0;
for i:=1991 to 2001 do
begin
inc(n);
y[n]:=100*(abs(cos(2*i)/(3*i-p))+2.54);
if y[n]<0 then
inc(j);
end;
writeln('god velichina dohoda');
n:=0;
for i:=1991 to 2001 do
begin
inc(n);
write(i,' ',y[n]:5:3);
writeln;
end;
if j<>0 then
begin
m:=y[1];
n:=0;
for i:=1991 to 2001 do
begin
inc(n);
if y[n]<0 then
sum:=sum+y[n];
if y[n]<m then
begin
m:=y[n];
b:=i;
end;
end;
writeln('summa ubitkov sostavlyet=',sum:5:3);
writeln('v ',b,' godu ubitki bili naimenshie');
end;
for i:=1 to n do
if y[i]>0 then
inc(u)
else inc(o);
if u=n then writeln('firma na ptotachenii 10 let ubitkov ne imela')
else if o=n then writeln('firma na protishenii 10 let pribili ne imela')
else writeln('firma na protichenii 10 let imela i ubitki i pribol');
readln;
end.


8-я вот у меня какая вышла, но она работает только на половину(((
Deomurg вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070