![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 10.04.2010
Сообщений: 10
|
![]()
дана задача
Дан список коробок конфет, содержащий название коробки, вес одной конфеты в коробке, количество конфет в коробке. Вычислить суммарную стоимость каждой коробки. Найти самую дешевую коробку. вот решение на паскале Program zapisi15; type konfety=record name:string[20]; ves_one,kolvo,vesnetto:integer; end; var n,i,min:integer; a:array[1..300] of konfety; begin write('введите количество наименований конфет ');readln(n); for i:=1 to n do with a[i] do //вносим данные// begin write('название ');readln(name); write('вес 1 конфеты ');readln(ves_one); write('количество конфет в коробке ');readln(kolvo); vesnetto:=ves_one*kolvo; end; writeln; writeln('конфеты: вес коробки'); ///вовод в виде таблицв/ for i:=1 to n do with a[i] do writeln(name,vesnetto:15); min:=a[1].vesnetto; //вычисляем минимальный весь коробки// for i:=2 to n do if a[i].vesnetto<min then min:=a[i].vesnetto; writeln; writeln('самая легкая коробка - ' ); for i:=1 to n do if min=a[i].vesnetto then write(a[i].name); end. пожалуста помогите написать эту же программу на С |
![]() |
![]() |
![]() |
#2 |
Proffesional
Форумчанин
Регистрация: 18.11.2008
Сообщений: 417
|
![]()
тебе во фриланс
О, степь родимая, как я скучаю по тебе...
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 10.04.2010
Сообщений: 10
|
![]()
все еще верю в доброту и бескорыстность людей)
|
![]() |
![]() |
![]() |
#4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]()
за основу можете взять программу отсюда
http://www.programmersforum.ru/showthread.php?t=94209 (газеты/журналы легким движением превращаются в коробки и конфеты..) |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Динамический массив записей | Alexeytur | Общие вопросы Delphi | 2 | 04.03.2010 10:10 |
Массив записей в количестве 10 | perojenko | Помощь студентам | 3 | 25.06.2009 21:53 |
Добавление записей в массив структур | korel | Общие вопросы C/C++ | 2 | 07.05.2009 23:59 |
Как создать массив-константу из записей | SNUPY | Общие вопросы Delphi | 3 | 19.03.2009 21:11 |
Создать массив записей((( | Настенька..Блонди | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 28.12.2008 19:39 |