Изумруд, нуждающийся в огранке.
Господа!
Мне необходимо написать программу:
Задание:
Составить программу, помогающую сообщать сведения о местах на авиарейсы из Москвы в Иркутск на календарный месяц (30 дней). В файле прямого доступа хранится информация о местах на рейс на заданное число в виде матрицы, в которой
номер строки – ряд
номер столбца – номер места в ряду (всего 25 рядов по 6 мест в ряду).
Элемент матрицы может иметь следующие значения:
0 – место свободно,
1 – место продано,
2 – место забронировано.
Считать, что в день имеется один рейс. Файлы имеют имена следующего типа: «DAYNN», где NN – число на которое хранится информация.
Например: «DAY15» - в этом файле хранятся сведения о местах на рейс отправляющийся 15-го числа. По требованию сообщать следующую информацию:
- о количестве свободных мест
- о проданных местах на заданное число
- о проданных местах на весь месяц
- о брони на весь месяц
- о брони на заданное число
Смоделировать покупку, бронирование и сдачу авиабилета.
Основная часть у меня есть. Но это как драгоценный камень, который нужно отшлифовать, прежде чем он станет достойным украшением.
Помогите реализовать остальные задачи, пожалуйста.
Прикрепляю то что у меня есть.
С уважением,
Мне необходимо написать программу:
Задание:
Составить программу, помогающую сообщать сведения о местах на авиарейсы из Москвы в Иркутск на календарный месяц (30 дней). В файле прямого доступа хранится информация о местах на рейс на заданное число в виде матрицы, в которой
номер строки – ряд
номер столбца – номер места в ряду (всего 25 рядов по 6 мест в ряду).
Элемент матрицы может иметь следующие значения:
0 – место свободно,
1 – место продано,
2 – место забронировано.
Считать, что в день имеется один рейс. Файлы имеют имена следующего типа: «DAYNN», где NN – число на которое хранится информация.
Например: «DAY15» - в этом файле хранятся сведения о местах на рейс отправляющийся 15-го числа. По требованию сообщать следующую информацию:
- о количестве свободных мест
- о проданных местах на заданное число
- о проданных местах на весь месяц
- о брони на весь месяц
- о брони на заданное число
Смоделировать покупку, бронирование и сдачу авиабилета.
Основная часть у меня есть. Но это как драгоценный камень, который нужно отшлифовать, прежде чем он станет достойным украшением.
Помогите реализовать остальные задачи, пожалуйста.
Прикрепляю то что у меня есть.
С уважением,
Похоже диплом :) У меня был похожий по тел. абанентской плате.
Цитата:
Originally posted by Franky
Похоже диплом :) У меня был похожий по тел. абанентской плате.
Похоже диплом :) У меня был похожий по тел. абанентской плате.
Шутить изволите? :)
Это просто задание по информатике. Одно из десяти, открывающих допуск к сессии:o
Цитата:
Originally posted by lamer78
Шутить изволите? :)
Это просто задание по информатике. Одно из десяти, открывающих допуск к сессии:o
Шутить изволите? :)
Это просто задание по информатике. Одно из десяти, открывающих допуск к сессии:o
Ну, я и учился давненько ;) Что смогу - напишу.
Однако как нынче злобствуют... это где так?
Цитата:
Originally posted by Franky
Ну, я и учился давненько ;) Что смогу - напишу.
Однако как нынче злобствуют... это где так?
Ну, я и учился давненько ;) Что смогу - напишу.
Однако как нынче злобствуют... это где так?
В глухой Сибири, в Ангарской Технической Академии :)
Как оно там вообще жисть? Пишу не флуда ради, а пальцы размять :)
Конкретно интересует трудоустройство и перспективы.
Конкретно интересует трудоустройство и перспективы.
чего тебе точно не хватает: генератор случайного заполнения мест (СЛЕГКА напряжно заполнить на пробу 25х6х31 мест :), так что лови. Можно это все оформить в граф. режиме или просто сделать вывод мест с результирующими значениями цветом, н.р. занято - кр., бронь - желтый, свободно - зел.
Проверку на правильность ввода сделай через VAL:
var I, Code: Integer;
begin
{ Get text from command line }
Val(ParamStr(1), I, Code);
{ Error during cnversion to integer? }
!!! if code <> 0 then
Writeln('Error at positon: ', Code)
else
Writeln('Value = ', I);
end.
Судя по тому, что у тебя было - это далеко еще не изумруд, скорее довольно погрызанный гранит науки :) Измруд - это ваш препод :)))
Проверку на правильность ввода сделай через VAL:
var I, Code: Integer;
begin
{ Get text from command line }
Val(ParamStr(1), I, Code);
{ Error during cnversion to integer? }
!!! if code <> 0 then
Writeln('Error at positon: ', Code)
else
Writeln('Value = ', I);
end.
Судя по тому, что у тебя было - это далеко еще не изумруд, скорее довольно погрызанный гранит науки :) Измруд - это ваш препод :)))
Цитата:
Originally posted by Franky
чего тебе точно не хватает: генератор случайного заполнения мест (СЛЕГКА напряжно заполнить на пробу 25х6х31 мест :), так что лови. Можно это все оформить в граф. режиме или просто сделать вывод мест с результирующими значениями цветом, н.р. занято - кр., бронь - желтый, свободно - зел.
Проверку на правильность ввода сделай через VAL:
var I, Code: Integer;
begin
{ Get text from command line }
Val(ParamStr(1), I, Code);
{ Error during cnversion to integer? }
!!! if code <> 0 then
Writeln('Error at positon: ', Code)
else
Writeln('Value = ', I);
end.
Судя по тому, что у тебя было - это далеко еще не изумруд, скорее довольно погрызанный гранит науки :) Измруд - это ваш препод :)))
чего тебе точно не хватает: генератор случайного заполнения мест (СЛЕГКА напряжно заполнить на пробу 25х6х31 мест :), так что лови. Можно это все оформить в граф. режиме или просто сделать вывод мест с результирующими значениями цветом, н.р. занято - кр., бронь - желтый, свободно - зел.
Проверку на правильность ввода сделай через VAL:
var I, Code: Integer;
begin
{ Get text from command line }
Val(ParamStr(1), I, Code);
{ Error during cnversion to integer? }
!!! if code <> 0 then
Writeln('Error at positon: ', Code)
else
Writeln('Value = ', I);
end.
Судя по тому, что у тебя было - это далеко еще не изумруд, скорее довольно погрызанный гранит науки :) Измруд - это ваш препод :)))
Спасибо Фрэнки! Буду изучать, скоро сдавться :)
Цитата:
Как оно там вообще жисть? Пишу не флуда ради, а пальцы размять
В городе есть огромная нефтехимическая компания, также электролизный завод, завод полимеров. В основном туда расходятся
Цитата:
Originally posted by lamer78
Спасибо Фрэнки! Буду изучать, скоро сдавться :)
Спасибо Фрэнки! Буду изучать, скоро сдавться :)
Да ладно, пиши если что. Если не смогешь - сделаю полностью ;) Хотя и лениво жуть!