Файл записей: На складе хранится п видов продукции

@Helga · Регистрация: 29.03.2009

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста, с решением задачи.
На складе хранится п видов продукции. Сведения о них содержатся в специальной
ведомости, указано наименование продукта, количество, цена за ед. Сформировать
соответствующий файл записей. Какова суммарная стоимость всей продукции на
складе?

Добавлено через 19 часов 14 минут 25 секунд
решите, плиз!!!!

@Puporev · 05.05.2009, 15:36

Pascal

uses crt;
type
Tprod=record
      nam:string[20];
      kol:integer;
      cen:integer;
      end;
var f:file of Tprod;
    sp:array[1..100] of Tprod;
    n,i:integer;
    sum:longint;
begin
clrscr;
assign(f,'file1');
rewrite(f);
write('Количество видов продукции n=');
readln(n);
writeln('Введите данные о ',n,' видах продукции:');
for i:=1 to n do
 begin
  writeln('Вид ',i);
  write(' Наименование: ');readln(sp[i].nam);
  write(' Количество: ');readln(sp[i].kol);
  write(' Цена: ');readln(sp[i].cen);
  write(f,sp[i]);
 end;
reset(f);
sum:=0;
for i:=1 to n do
 begin
  read(f,sp[i]);
  sum:=sum+sp[i].kol*sp[i].cen;
 end;
close(f);
write('Суммарная стоимость продукции=',sum);
readln
end.

@Helga 0 / 0 / 0 Регистрация: 29.03.2009 Сообщений: 22
		1
	Файл записей: На складе хранится п видов продукции 05.05.2009, 15:19. Показов 1375. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста, с решением задачи. На складе хранится п видов продукции. Сведения о них содержатся в специальной ведомости, указано наименование продукта, количество, цена за ед. Сформировать соответствующий файл записей. Какова суммарная стоимость всей продукции на складе? Добавлено через 19 часов 14 минут 25 секунд решите, плиз!!!! 0

	05.05.2009, 15:36

Опции темы

Файл записей: На складе хранится п видов продукции

Решение