Записи. Структура: наименование, цена, количество, стоимость

@kushnir-lena · Регистрация: 30.03.2012

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

Ввести информацию о товаре (наименование, цена, количество, поле стоимость рассчитать как цена* количество). Вывести итоговую стоимость каждого товара.

@Владимир_ВМ · 06.05.2012, 00:11

Pascal

type
structura=record
name:string;
cena:real;
kol_vo:integer;
stoimost:real;
end;
var
i,n:integer;
tovar:array[1..20]of structura;
begin
  write('Введите кол-ва записей(не более 20):');read(n);
  for i:=1 to n do
    begin
      writeln('Товар № ',i);
      write('Наименование товара    ');read(tovar[i].name);
      write('Цена за единицу товара ');read(tovar[i].cena);
      write('Кол-во товара          ');read(tovar[i].kol_vo);
      tovar[i].stoimost:=tovar[i].cena*tovar[i].kol_vo;
    end;
  writeln('___________________________________');
  writeln('Итоговая стоимость каждого товара');
  for i:=1 to n do
    writeln(tovar[i].name,'=',tovar[i].stoimost);
end.

@kushnir-lena 0 / 0 / 0 Регистрация: 30.03.2012 Сообщений: 36
		1
	Записи. Структура: наименование, цена, количество, стоимость 05.05.2012, 18:48. Показов 1967. Ответов 1 Метки нет (Все метки) Ввести информацию о товаре (наименование, цена, количество, поле стоимость рассчитать как цена* количество). Вывести итоговую стоимость каждого товара. 0

	06.05.2012, 00:11

Опции темы

Записи. Структура: наименование, цена, количество, стоимость

Решение