26.05.2011, 23:01 | #32 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
program otchet; uses crt; type Base=Record n:string; v:real; f:real; k:real; end; var Predp:array [1..100] of Base; Pr:Base; i,im,j,m:integer; km,sum:real; begin clrscr; write('Vvedite kolichestvo predpriyatiy= '); readln(m); for i:=1 to m do with Predp[i] do begin write('Vvedite nazvanie predpriyatiya ',i,' = '); readln(n); write('vvedite planoviy obiom roznichnogo tovarooborota= '); readln(v); write('Vvedite fakticheskiy obiom roznichnogo tovarooborota= '); readln(f); end; km:=-999; for i:=1 to m do with Predp[i] do begin k:=f/v*100; if k>km then begin km:=k; im:=i; end; end; writeln; writeln('naimen. predpr, plan, fact, proc:'); for i:=1 to m do with Predp[i] do begin write(n); for j:=Length(n)+1 to 40 do write(' '); writeln(v:10:2,f:10:2,k:10:2); end; writeln; writeln('naib proc = ',km:10:2,' u predpr ',Predp[im].n); readln; for i:=1 to m do If Predp[i].f<=Predp[i].v then sum:=sum+Predp[i].f; Write('Summa obioma tovarooborota predpriatii, nedovipolnivshih plan = ',sum:8:2); readln; writeln; for j:=1 to m-1 do for i:=1 to m-j do if Predp[i].k<Predp[i+1].k then begin Pr:=Predp[i]; Predp[i]:=Predp[i+1]; Predp[i+1]:=Pr; end; writeln; writeln('sort po proc '); for i:=1 to m do with Predp[i] do begin write(n); for j:=Length(n)+1 to 40 do write(' '); writeln(k:6:2); end; readln; end. |
|
27.05.2011, 13:46 | #34 (permalink) |
Member
Регистрация: 25.05.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
я напечатала программу,но у меня почему то она выдает ошибки(
вот например в строке где s:=0 а наверху пишет Identifier not found "s" если честно я не знаю,что с этим делать( |
27.05.2011, 14:13 | #35 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Черт, поторопился вчера - есть еще пара огрехов. Сейчас исправлю. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
27.05.2011, 15:16 | #39 (permalink) |
Member
Регистрация: 25.05.2011
Сообщений: 29
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
в общем...
он вводит там где указывается план 100 а где написано сколько фактически сделали 0 и получается что 100 делится на 0 чтобы выдать проценты и программа не работает((( |
27.05.2011, 15:25 | #40 (permalink) | ||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Да вот - сами убедитесь (выдержка из программы): Цитата:
|
||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|