Задача о символьных строках

[Vladimir_S]

А для 1/3=0.3333333333...?
С=0
Р=?

 

[Monro]

ох,я уже сама не знаю чего он хочет.
по условиям там 3.
а он считает на калькуляторе это самое 6 на 7 и там выходит не 0 и 6((((((((((((

 

[Monro]

а для 1\3
Р=333.

 

[Monro]

я с ним разобралась.
он точно хочет так как считает калькулятор))
то естьпри делении 13 на 5
Р=6

 

[Vladimir_S]

я с ним разобралась.
он точно хочет так как считает калькулятор))
то естьпри делении 13 на 5
Р=6

Ладно.
Предложите ему такой вариант:

VAR
 A,B,C,P:Integer;
BEGIN
 Write('A= ');
 ReadLn(A);
 Write('B= ');
 ReadLn(B);
 C:= A div B;
 P:= Round((1.0*A/B-C)*1000);
 If (P mod 10)=0 then P:=P div 10;
 If (P mod 10)=0 then P:=P div 10;
 WriteLn('C= ',C);
 WriteLn('P= ',P);
 ReadLn
END.

 

[Monro]

хорошо))
иду предлагать))

 

[Monro]

я ее сдала!!!))
спасибо большущее)))
а вы сможете мне решить еще одну,последнюю задачу?

 

[Vladimir_S]

а вы сможете мне решить еще одну,последнюю задачу?

Дык... на задачу бы сперва взглянуть.

 

[Monro]

5) Условие задачи:
Решить задачу, связанную с оценкой экономической деятельности группы предприятий на основе известных данных:
• Название предприятий
• Плановый объем розничного товарооборота
• Фактический объем розничного товарооборота
Требуется определить:
a) процент выполнения плана каждым предприятием,
b) сумму фактического товарооборота предприятий недовыполнивших план,
c) наибольший процент выполнения плана товарооборота.
d) Упорядочить предприятия по убыванию процента выполнения плана товарооборота.

 

[Vladimir_S]

Ну уж нет, этим - не буду. Недавно я такую же задачку решал, Ваша отличается совсем чуть-чуть, надеюсь, сами сможете внести поправки:
http://www.tehnari.ru/f41/t51989/

 

[Monro]

Я постараюсь)))
Но скорее всего я снова завтра обращусь к вам за помощью исправить программу))
(просто у меня с компьютерами туговато)

 

[Vladimir_S]

Я постараюсь)))
Но скорее всего я снова завтра обращусь к вам за помощью исправить программу))
(просто у меня с компьютерами туговато)

М-да... Ну что с Вами сделаешь, ладно, сам исправлю:

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.

 

[Monro]

я вам очень признательна!!!
завтра пойду сдавать))

 

[Monro]

я напечатала программу,но у меня почему то она выдает ошибки(
вот например в строке где s:=0
а наверху пишет Identifier not found "s"
если честно я не знаю,что с этим делать(

 

[Vladimir_S]

я напечатала программу,но у меня почему то она выдает ошибки(
вот например в строке где s:=0
а наверху пишет Identifier not found "s"
если честно я не знаю,что с этим делать(

Извините - вчера малость "зачистил" программу, но, похоже, не до конца. Уберите эту строку (s:=0 совсем.

Черт, поторопился вчера - есть еще пара огрехов. Сейчас исправлю.

 

[Vladimir_S]

Всё, исправил в #32. Теперь должно быть как надо.
Удачи!

 

[Monro]

спасибо,скоро препод придет будет проверять)))

 

[Vladimir_S]

спасибо,скоро препод придет будет проверять)))

Уже страшно...

 

[Monro]

в общем...
он вводит там где указывается план 100
а где написано сколько фактически сделали 0
и получается что 100 делится на 0 чтобы выдать проценты и программа не работает(((

 

[Vladimir_S]

в общем...
он вводит там где указывается план 100
а где написано сколько фактически сделали 0
и получается что 100 делится на 0 чтобы выдать проценты и программа не работает(((

Извините - в ТАКОЙ ситуации помочь ничем не могу! Проверил еще раз и текст, и программу погонял - нет там такого. И быть не может. Там факт делится на план и только так. Скорее всего, препод перепутал запросы и ввел план 0. Иначе никак объяснить не могу. Сам вводил 0 по факту - никаких ошибок, нулевой процент выполнения и выдает.
Да вот - сами убедитесь (выдержка из программы):

write('vvedite planoviy obiom roznichnogo tovarooborota= ');
readln(v);
write('Vvedite fakticheskiy obiom roznichnogo tovarooborota= ');
readln(f);
...
k:=f/v*100;

И где тут деление на 0?