Показать сообщение отдельно
Старый 08.01.2017, 11:18   #7 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Ну, например, так:
Код:
program qqsam2;
uses Crt;

Const
 nmax = 9;

Type
 pribor = record
           name : string;
           number : integer;
           w_gold : real;
           w_silv : real;
           price : real;
           count : integer;
         end;

Var
 p:array [1..nmax] of pribor;
 i,j,n:byte;
 CostAll: real;

Begin
 ClrScr;
 Repeat
  Write('Количество приборов (не более ', nmax, '): ');
  Readln(n);
 Until n in [1..nmax];
 Writeln('Введите данные о приборах: ');
 for i:=1 to n do
  with p[i] do
   begin
    Write('Наименование прибора  N ', i, ': '); Readln(name);
    Write('Вес золота в приборе  N ', i, ': '); Readln(w_gold);
    Write('Вес серебра в приборе N ', i, ': '); Readln(w_silv);
    Write('Цена прибора          N ', i, ': '); Readln(price);
    Write('Количество приборов   N ', i, ': '); Readln(count);
    Writeln('====================================================');
   end;
 ClrScr;

 Writeln('   Наименование     Золото    Серебро      Цена   Количество  Au+Ag');
 CostAll:=0;
 for i:=1 to n do
  with p[i] do
   begin
    Write(name);
    for j:=Length(name)+1 to 18 do write(' ');
    write(w_gold:10:3);
    write(w_silv:10:3);
    write(price:10:2);
    write(count:10);
    writeln((w_gold+w_silv)*count:10:3);
    CostAll:=CostAll+price*count;
   end;

 Writeln('=========================================================');
 Writeln('Общая стоимость приборов: ', CostAll:0:2);
 Readln
end.
Изображения
 
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

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