Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Маринка-
0 / 0 / 0
Регистрация: 29.09.2013
Сообщений: 40
1

Составить программу формирования данных о товарах на складе

03.11.2013, 22:55. Просмотров 969. Ответов 9
Метки нет (Все метки)

Склад.Составить программу формирования данных о товарах на складе: номер по порядку наименование товара,цена,количество единиц товара.Организовать выбор самая дешевого товара и подсчет стоимости товара этого наименования с выдачей соответствующих данных на экран.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.11.2013, 22:55
Ответы с готовыми решениями:

Составить программу, выводящую на экран информацию о наличии товаров на складе
Записи (не менее 5) вводятся с клавиатуры, записываются в файл и выводятся на экран. Задача:...

Составить программу формирования и вывода массива
Помогите пожалуйста. 2- Составить программу формирования и вывода массива размером 6x3, каждые...

Составить программу формирования и вывода массива размером 6*3
составить программу формирования и вывода массива размером 6*3,каждые три последовательных элемента...

Составить программу формирования массива символьных строк
Нужна помощь с решением задачи. Составить программу формирования массива символьных строк с...

Составить программу формирования по вещественной квадратной матрице логического вектора
Составить программу формирования по вещественной квадратной матрице А={a}_{ij},i=1/n,j=1/m...

9
Булат Шакиров
Заблокирован
03.11.2013, 23:08 2
Оформить как массив записей, затем найти минимум. Стоимость товара = Количество * цена
0
Маринка-
0 / 0 / 0
Регистрация: 29.09.2013
Сообщений: 40
03.11.2013, 23:20  [ТС] 3
если бы я знала еще как оформить!мне нужно решение написанное ,а не способ!
0
AeroWhite
Форумчанин.NET
546 / 417 / 64
Регистрация: 12.02.2013
Сообщений: 834
03.11.2013, 23:50 4
Цитата Сообщение от Маринка- Посмотреть сообщение
если бы я знала еще как оформить!мне нужно решение написанное ,а не способ!
Точнее написанное за Вас? Мне кажется мало кто согласится делать это безвозмездно
0
03.11.2013, 23:50
Маринка-
0 / 0 / 0
Регистрация: 29.09.2013
Сообщений: 40
04.11.2013, 14:35  [ТС] 5
Вообще-то делали и огромное спасибо кто помог!Не за меня,решение у меня есть но видимо в чем-то ошиблась,а ошибку найти не могу!По моему этот сайт для этого и создан!
0
Puporev
Модератор
56564 / 43267 / 29911
Регистрация: 18.05.2008
Сообщений: 102,913
04.11.2013, 15:08 6
Цитата Сообщение от Маринка- Посмотреть сообщение
решение у меня есть но видимо в чем-то ошиблась,а ошибку найти не могу
Так выложите свой код.
1
Физтеховец
2 / 2 / 0
Регистрация: 17.09.2013
Сообщений: 20
04.11.2013, 15:29 7
Цитата Сообщение от Маринка- Посмотреть сообщение
Вообще-то делали и огромное спасибо кто помог!Не за меня,решение у меня есть но видимо в чем-то ошиблась,а ошибку найти не могу!
Сделайте как я, выложите готовый ошибочный код, и всемогущий модератор вам поможет
1
Маринка-
0 / 0 / 0
Регистрация: 29.09.2013
Сообщений: 40
05.11.2013, 11:21  [ТС] 8
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Type TSpis = record
 Nom: integer;
 Nazvanie: string;
 Zena: integer;
 Kol: integer;end;
 var
 Spis: array[1..100] of TSpis;
 Kol: integer;
 function Add: Boolean;
 begin Writeln(''); Inc(Kol);
 Write ('Номер - '); Readln(Spis[Kol].Nom);
 Write ('Название - '); Readln(Spis[Kol].Nazvanie);
 if Spis[Kol].Nazvanie='конец' then begin Dec(Kol);
 Result := False;
 Exit;
 end
 else
 Result := True;
  Write ('Цена - '); Readln(Spis[Kol].Zena);
 Write ('Количество - '); Readln(Spis[Kol].Kol);end;
 procedure Sort;
 var i, j : integer;q:TSpis;
 begin for i:= 1 to Kol-1 do
 for j:= i+1 to Kol do if Spis[j-1]. Zena>Spis[j].Zena then begin q:= Spis[j-1];Spis[j-1]:=Spis[j];Spis[j]:= q;end;
 Writeln ('Самый дешёвый товар - ',Spis[1].Nazvanie);
   Writeln ('Полная стоимость всех товаров равна - ',Spis[1].Kol*Spis[1].Zena);
   end;
   begin
   while Add do if Kol = 100 then Break;
   Sort; end.
0
Puporev
Модератор
56564 / 43267 / 29911
Регистрация: 18.05.2008
Сообщений: 102,913
05.11.2013, 12:08 9
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Uses Crt;
Type TSpis = record
             Nom: integer;
             Nazvanie: string;
             Zena: integer;
             Kol: integer;
             end;
var  Spis: array[1..100] of TSpis;
     n,i,mn,st: integer;
     tv:string;
begin
write('Количество записей n=');
read(n);
writeln('Введите сведения о товарах');
for i:=1 to n do
 begin
  writeln('Товар ',i);
  with Spis[i] do
   begin
    Write ('Номер - ');Read(Nom);
    Write ('Название - ');Read(Nazvanie);
    Write ('Цена - '); Read(Zena);
    Write ('Количество - '); Read(Kol);
   end;
 end;
clrscr;
writeln('Список товаров');
writeln('-----------------------------------------------');
writeln('| № п/п |    Название   |  Цена  | Количество |');
writeln('-----------------------------------------------');
mn:=Spis[1].Zena;
tv:=Spis[1].Nazvanie;
for i:=1 to n do
with Spis[i] do
 begin
  gotoXY(1,whereY);write('|',Nom:6);
  gotoXY(9,whereY);write('| ',Nazvanie);
  gotoXY(25,whereY);write('|',Zena:7);
  gotoXY(34,whereY);write('|',Kol:9);
  gotoXY(47,whereY);writeln('|');
  if Zena<mn then
   begin
    mn:=Zena;
    tv:=Nazvanie
   end;
 end;
writeln('-----------------------------------------------');
writeln('Самый дешевый товар ',tv);
st:=0;
writeln('Список товаров с наименованием ',tv);
writeln('-----------------------------------------------');
writeln('| № п/п |    Название   |  Цена  | Количество |');
writeln('-----------------------------------------------');
for i:=1 to n do
if Spis[i].Nazvanie=tv then
 begin
  st:=st+Spis[i].Zena*Spis[i].Kol;
  with Spis[i] do
   begin
    gotoXY(1,whereY);write('|',Nom:6);
    gotoXY(9,whereY);write('| ',Nazvanie);
    gotoXY(25,whereY);write('|',Zena:7);
    gotoXY(34,whereY);write('|',Kol:9);
    gotoXY(47,whereY);writeln('|');
   end;
 end;
writeln('-----------------------------------------------');
write('Стоимость этих товаров=',st)
end.
2
Маринка-
0 / 0 / 0
Регистрация: 29.09.2013
Сообщений: 40
05.11.2013, 12:20  [ТС] 10
спасибо)
0
05.11.2013, 12:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.11.2013, 12:20

Составить программу формирования массива, заполненного случайными значениями в интервале
Составить программу формирования массива S, заполненного случайными значениями в интервале от -10...

Составить программу формирования множества строчных латинских букв, входящих в строку
Составить программу формирования множества строчных латинских букв, входящих в строку, введенную с...

Составить программу формирования массива,элементами которого являются цифры числа n
Люди,прошу вас помогите решить задачки по паскалю: 1)Дано натуральное число n.Составить программу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru