2 / 2 / 0
Регистрация: 25.10.2009
Сообщений: 54
1

Вычислить суммарный вес каждой коробки конфет

18.04.2010, 12:35. Показов 1074. Ответов 1
Метки нет (Все метки)

Доброго времени суток!
помогите пожалуйста найти ошибку в программе!
Задание такое:
Дан список коробок конфет, содержащий название коробки, вес одной конфеты в коробке, количество конфет в коробке. Вычислить суммарный вес каждой коробки. Найти самую легкую коробку.

не ищет самую легкую коробку


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
Program lr15_6;
uses crt;
Type konf=record
nazvan:string[20];
ves,kolvo,veskor:integer;
end;
var N,i,min,veskor,ves,kolvo,imin,v,imax,max,Summ_ves,sv,summ:integer;
    S:array[1..20] of konf;
    begin
    Writeln('Сколько будет названий коробок: ');
    Readln(N);
    for i:=1 to N do
    begin
    writeln('Введите название коробки'); Readln(S[i].nazvan);
    writeln('Вес конфеты в коробке'); Readln(S[i].ves);
    writeln('Количество конфет в коробке'); Readln(S[i].kolvo);
    summ:=S[i].ves*S[i].kolvo;
    Writeln('Суммарный вес коробки: ', summ);
    writeln;
 
    end;
min:=summ;imin:=1;
for i:=1 to n do
begin
   if summ<min then
    begin
     min:=summ;
     imin:=i;
    end;
 end;
 
writeln('Самая легкая коробка ',s[imin].nazvan);
writeln;
 
    end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.04.2010, 12:35
Ответы с готовыми решениями:

Для каждого статуса поставщика посчитать суммарный вес, средний вес и количество уникальных заказных товаров
Вот таблицы spool cre_demo.log CONNECT demo/demo@ORCL prompt prompt Creating table ПОСТАВЩИКИ...

Определить можно ли упаковать 60 кг конфет в коробки по 3 кг и 5 кг
Определить можно ли упаковать 60 кг конфет в коробки по 3 кг и 5 кг. Если можно то каким...

Запросить имена, вес и рост трех ваших друзей, найти их суммарный вес и рост
ПОМОГИТЕ ПОЖАЛУЙСТА Программа запрашивает имена, вес и рост трех ваших друзей, находит их...

Массивы: получить список конфет, которые отличаются от самой дорогой коробки на 50 руб
Задача: Дан список коробок конфет с указанием их цены. Получить список конфет, которые отличаются...

1
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
18.04.2010, 12:50 2
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
uses crt;
const n=3;
type konf=record
      name:string;
      vn,vk:integer;
     end;
var x:array[1..n] of konf;
    i,k,s,min:integer;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' Ves(1)konf: ');
   Readln(vn);
   Write(' Kol(1)kor: ');
   Readln(vk);
  end;
Writeln('Table: ');
Writeln('--------------------------------------');
Writeln('|  Name  |  Ves(1)konf  |  Kol(kof)  |');
Writeln('--------------------------------------');
for i:=1 to n do
 Writeln('|',x[i].name:8,'|',x[i].vn:14,'|',x[i].vk:12,'|');
Writeln('--------------------------------------');
Writeln('Ves: ');
Writeln('------------------');
Writeln('|  Name  |  Ves  |');
Writeln('------------------');
min:=32767;
for i:=1 to n do
 begin
  s:=x[i].vk*x[i].vn;
   if s<min then
    min:=s;
  Writeln('|',x[i].name:8,'|',s:7,'|');
 end;
Writeln('------------------');
Writeln('Samay legkaya korobka: ',min);
Readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2010, 12:50
Помогаю со студенческими работами здесь

Оцените средний вес, найдите дисперсию общего веса коробки
В коробке лежат 100 конфет. Масса одной конфеты (в граммах) представляет собой случайную величину...

Написать программу, определяющий суммарный вес камней
1 Задача!!! Один древний правитель, решил построить в свою честь пирамиду, для ее постройки, он...

Напечатать суммарный вес и стоимость выбранных предметов
В рюкзаке лежит п предметов. Каждый характеризуется весом и стоимостью. Выбрать такие два, чтобы их...

Определить суммарный вес всей пойманной рыбы
Всем привет. В общем, не могу сообразить как решить данную задачу: Даны 2 структуры. 1ая структура...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru