IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> работа с записями, (упорядочение, формирование множества)
сообщение
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 920
Пол: Женский
Реальное имя: Марина

Репутация: -  2  +


Дан массив записей. Каждая запись содержит сведения о студенте группы: Ф.И.О., оценки по 4 предметам.
упорядочить массив по невозрастанию сумм оценок.

начала делать, когда дошла до упорядочения: не пойму, как суммы сравнивать (if sum>sum+1??? или ждесь нужны какие-то индексы?)


uses crt;
type
tablica=record
name:string[18];
matan,alg,TP,info:byte;
sum:byte;
end;
var i,j,n:integer; a:tablica;
mas:array[1..24]of tablica; {tablica - massiv zapicey}
Begin
clrscr;
{vvod kol-va zapisey}
write ('n=');
readln(n);
{vvod elementov v massiv zapicey}
for i:=1 to n do
with mas[i] do
begin
writeln ('i=',i:4);
writeln('FIO');
readln(name);
write ('otsenki');
readln (matan,alg,tp,info);
end;
sum:=0;
for i:=1 to n do
sum:=sum+mas[i].matan+mas[i].alg+mas[i].tp+mas[i].info;
for i:=1 to n-1 do
for j:=1 to n-i do
if {????????}



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

я не пойму смысла этой задачи, что от меня тут требуется?

Сообщение отредактировано: 18192123 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
18192123   работа с записями   28.11.2006 1:28
klem4   function Total(const T: tablica): Integer; var s…   28.11.2006 1:34
мисс_граффити   По-моему, тут можно двояко трактовать. Либо те ци…   28.11.2006 2:49
lapp   дан массив из эн натур. чисел. Сформировать множе…   28.11.2006 5:10
мисс_граффити   "которых нет в записи хотя бы одного" = …   28.11.2006 5:17
lapp   "которых нет в записи хотя бы одного" =…   28.11.2006 5:34
Bokul   Переношу тему в Дискуссионный Клуб   28.11.2006 5:46
lapp   Переношу тему в [url=http://forum.pascal.net.ru/i…   28.11.2006 6:00
Bokul   Дык я на полном серьёзе :blum: P.S. только форум…   28.11.2006 6:11
18192123   Спасибо! смысл стал яснее! Но вот с чего м…   29.11.2006 0:06
мисс_граффити   18192123, давай не будем сваливать в кучу 2 незави…   29.11.2006 0:30
18192123   или я вопрос не поняла...? У меня 2 задачки в э…   29.11.2006 0:46
volvo   18192123, а поконкретнее, что ИМЕННО не получается…   29.11.2006 1:02
18192123   18192123, а поконкретнее, что ИМЕННО не получаетс…   29.11.2006 3:13
18192123   для множеств нет операций ввода,вывода. а мне по у…   30.11.2006 22:20
мисс_граффити   а, ты про это... вывод for i:=0 to 9 do if i in …   30.11.2006 22:27
18192123   Вот что у меня получилось, только всегда выводит о…   1.12.2006 0:31
мисс_граффити   естественно, у тебя будет выводится от 0 до 9. Ты …   1.12.2006 1:21
18192123   естественно, у тебя будет выводится от 0 до 9. Ты…   1.12.2006 1:50
мисс_граффити   T - абсолютно не нужно. вместо него пишешь a и дел…   1.12.2006 1:54
18192123   T - абсолютно не нужно. вместо него пишешь a и де…   1.12.2006 1:58
мисс_граффити   18192123, запись числа - это совокупность его цифр…   1.12.2006 2:39
18192123   тут речь не про тип "запись". Всё…   1.12.2006 3:02
volvo   То есть, посмотреть на контекст нельзя никак? Сооб…   1.12.2006 2:50
мисс_граффити   Ой. Сорри. А нельзя тему на 2 разделить?   1.12.2006 2:57
18192123   ещё один вопрос: составила прогу для второй задачи…   4.12.2006 0:48
volvo   procedure creat_mn(const a:vect); { <--- Пробле…   4.12.2006 0:51
18192123   procedure creat_mn(const a:vect); { <--- Пробл…   4.12.2006 1:16
volvo   :blink: А что ты думала она будет выдавать? mn_4i…   4.12.2006 1:26
18192123   :blink: А что ты думала она будет выдавать? [b]mn…   4.12.2006 1:40
18192123   у меня такая мысль: объявить mn_4isel в списке фо…   4.12.2006 3:27
18192123   :blink: А что ты думала она будет выдавать? [b]mn…   4.12.2006 4:13


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 6:19
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name