|
Вопрос # 3 577/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Дана информация о багаже нескольких пассажиров.Багаж каждого пассажира характеризуется двумя числами: количеством вещей и общим весом вещей.Дать сведения о багаже, число вещей в котором не меньше, чем в любом другом багаже, а вес вещей не больше чем в любом другом багаже с этимже числом вещей.
Приложение: Переключить в обычный режим-
- program addon;
- type luggage=record
- fio: string[15];
- num: integer;
- mas: integer;end;
- var f: file of luggage;
- a:luggage; i,n: byte;
- begin assign(f,'c:luggage.dat');
- rewrite(f);
- write('vvedite shislo passascurov');
- readln(n);
- for i:=1 to n do begin;
- write(' FIO passascura');
- write(i,'-'); readln(a.fio);
- write('vvedite shislo veshei passascura');
- write(i,'-');readln(a.num);
- write('vvedite massy bagasca passascura');
- write(i,'-'); readln(a.mas);
- write(f,a);end; close(f);end.
 |
Вопрос задал: ranet (статус: Посетитель)
Вопрос отправлен: 24 декабря 2009, 08:13
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Задание выполнено.
Экзешник прицепляю к ответу.
Пиво слать сюда: Z354611399509.
Аська для связи: 5466111.
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 27 декабря 2009, 13:06
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 24 декабря 2009, 16:18; участников в обсуждении: 2.
24 декабря 2009, 09:49: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум модератором min@y™ Причина: 100%-ная лаба
|
|
min@y™ (статус: Доктор наук), 24 декабря 2009, 09:53 [#1]:
В чём проблема? "Меня не было на лекциях весь семестр"?
Оператор "не меньше" - это >=.
Оператор "не больше" - это <=.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ranet (статус: Посетитель), 24 декабря 2009, 11:55 [#2]:
ты угадал я не был на этой лекции. И файлы для меня полный геморой.
|
|
|
min@y™ (статус: Доктор наук), 24 декабря 2009, 13:09 [#3]:
Цитата (ranet):
ты угадал я не был на этой лекции. И файлы для меня полный геморой. ]
Готов написать эту лабу за тебя.
Сколько пива ставишь?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ranet (статус: Посетитель), 24 декабря 2009, 15:03 [#4]:
тебе пиво по почте слать что ли?
|
|
|
min@y™ (статус: Доктор наук), 24 декабря 2009, 15:23 [#5]:
Цитата (ranet):
тебе пиво по почте слать что ли?
Нет, по WebMoney.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
ranet (статус: Посетитель), 24 декабря 2009, 16:18 [#6]:
ладно спасибо и за это
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
