Помогите не покинуть форум на 2 года!!!
Gentoo-начало 17 января, 2006 - 19:52
Больше обратиться не куда.Кто шарит в Турбо паскале отзавитесь.
Нужно до 25 января сдать проги в инст,ели не здам то слечу.Сообщество помогите,позалуйста!!!
»
- Для комментирования войдите или зарегистрируйтесь
Тьфу блин... А я
Тьфу блин... А я то уж подумал... Ну пиши задания, посмотрим что можно сделать...
1.
При проведении конкурса песни оценивалась также популярность артиста по числу проголосовавших за него зрителей.Постройте гистограмму сравнительной оценки популярности 10 артистов.Число голосов получить с помощю датчика случайных чисел.Диапазон от 30 до 150 голосов.Фамилии и рейтинг участников конкурса представить в виде одномерных массивов.
2.
Переменные:конструктор,детектор,усилитель,представлют собой множества деталей:резистор,конденсатор,индуктивность,транзистор,трансформатор,тумблер,диод.Составить описание этих множеств.Исходные детали опишите как перечисляемую переменную.(Походу надо истользовать record)
type detals =
type
detals = (резистор,конденсатор,индуктивность,транзистор,трансформатор,тумблер,диод);
hren = set of detals;
var
конструктор,детектор,усилитель : hren;
Если не путаю.
3.
Напишите программу формирования базы данных сведений о странах.Запись содержит следующие поля.Название страны,столица,площадь,численность населения (одномерный массив из трех элементов -число детей,число взрослых,число стариков) и код континента (0-Европв,1-Азия и т.д).Вывести названия стран и соответствующих столиц для заданного континента.
У вас требуют
У вас требуют писать пользовательский интерфейс или достаточно, чтобы при правильном вводе выдавало правильный ответ?
Тут надо решить, что подразумевается под базой данных. Это может быть массив, список, дерево. Я бы делал список, но сейчас писать лень.
Как вводятся данные, признак конца ввода?
type
country = record
str : array [0..2] of packed array of symbols;
kod : integer;
end;
var
key : integer;
cnt : country;
begin
writeln ('Выберите континет');
read (key);
do
read (cnt.str[0], cnt.str[1], cnt.str[2], cnt.kod);
{Пишем сразу, без промежуточного хроанения. Отлично подходит для соединения программ каналами, а вот для пользовательского интерфейса не катит. В последнем случае разнести в два цикла.}
if cnt.kod = key then
writeln (cnt.str[0], cnt.str[1], cnt.str[2], cnt.kod);
{А вот тут надо запихнуть этот элемент в БД}
until (<условие конца>);
end.
Я думаю
Я думаю пользовательский не нужен.Достаточно чтоб выдовало ответ правильный.Признак конца ввода нажатая клавиша.
Буду обязан
Буду обязан если поможете.Их тут 15 но остальные я сам смогу походу.
Я
Я плачу...
Вы действительно, самый позитивный человек на этом форуме. Мне жаль, что я не програмирую на Pascal-е. Я действительно, с огромной радостью помог бы Вам!
Програмисты, пожалуйста, помогите! (С меня в Питере 5,2Гб дистфайлов на моей болванке DVD)
В любом случае
В любом случае надо ОБЯЗАТЕЛЬНО понять что и как работает. У нас людей заворачивали с такими коментариями: "А вот до этого вы просто додуматься не могли! Списали."
Тех кто продолжал настаивать просили объяснить как работает. При мне никто не объяснил.
понятное дело
понятное дело буду догонять.Только я привык на примерах учиться.А под рукой ваще никаких доков нет.
Евгений, Вы не
Евгений, Вы не обижайтесь на мои "Ёрничества". Каких-то 10 лет назад, обучаясь в МЭСИ, я был таким же раздолбаем как Вы. Даже диплом дописывал в ночь, перед защитой....
Впрочем, на занятиях информатики, меня выгоняли после первого, второго, максимум третьего занятия (после того, как обнаруживани, что на всех локалках уже установлен DOOM II, на некоторых установлен Win95) и предлагали просто прийти на экзамен (обещая, что все занятия и лабы будут проставлены автоматом).
Ну...я тож небыл
Ну...я тож небыл ни на одном занятии по программированию (В этом институте),т.к у меня куча перезачетов,поэтому предложили доздать пару предметов,вот осталось программтрование.Но я недоотценил препода по программированию,я думал мне хватит знаний в паскале которые я получил в другом институте.Но вот не хватает на пару программок.
Евгений, как
Евгений, как Ваши успехи?