cloudy

я не программист!!! у меня больше доунлаудов нету, не знаю почему не скачивает, я только ту книгу скачать нажал(( я просто курсач пишу Добавлено спустя 1 минуту 9 секунд: Добавлено спустя 1 минуту 16 секунд: Clondike знаешь я куйню с перебором элементов ваїе не понял, перебор же и для сортировки нада бует?

Po$amax@ мне на паскале Clondike остальные не получаются, книги ваїе гальские, самые последние взял, а самые лучшие уже до меня разобрали(так библиотекарьша сказала), а с улановки скачать не могу, там иза рейта типа не канает качать нескоко торентов Добавлено спустя 10 минут 2 секунды: 1.предусмотрев в ней команды для перехода на следующую\предыдущую запись, перехода на начальную\конечную запись, добавления\удаления записи, редактирования текущей записи. это сделать? как сделать ваїе не могу, не получается ваїе Добавлено спустя 18 минут 1 секунду: uses crt; const n=3; type rec=record FIO:string [30]; marka:string [10]; colour:string [13]; number:integer; ===> number:string; end; mas=array [1..n] of rec; var t:integer; q,l:string i:byte; f:file of rec; mashina:mas; auto:rec; procedure vvod; begin rewrite (f); for i:=1 to n do begin write ('FIO vladelca: '); readln (auto.FIO); write ('marka avto: '); readln (auto.marka); write ('cvet mashini: '); readln (auto.colour); write ('nomer mashini: '); readln (auto.number): write (f,auto); end; close (f); end; procedure vivod; begin reset (f); for i:=1 to n do begin read (f,auto); writeln (auto.FIO:30, auto.marka:10, auto.colour:13, auto.number:8); end; close (f); readkey; end; procedure marka; begin reset (f); for i:=1 to n do begin writeln ('введите число с которого начинается номер машины'); readln (q); l:=pos (q,auto.number); if l:=0 then write ('нет машин с номерами, в который входят введеные єићры'); else write (l); end; close (f); readkey; end; begin clrscr; assign(f, 'automobile.dat'); vvod; vivod; end. procedure marka не пашет, посмотрите в чем ошибка пожалуста, жирным шрићтом мои изменения выделены

кароче вот uses crt; const n=3; type rec=record FIO:string [30]; marka:string [10]; colour:string [13]; number:integer; end; mas=array [1..n] of rec; var t:integer; i:byte; f:file of rec; mashina:mas; auto:rec; procedure vvod; begin rewrite (f); for i:=1 to n do begin write ('FIO vladelca: '); readln (auto.FIO); write ('marka avto: '); readln (auto.marka); write ('cvet mashini: '); readln (auto.colour); write ('nomer mashini: '); readln (auto.number): write (f,auto); end; close (f); end; procedure vivod; begin reset (f); for i:=1 to n do begin read (f,auto); writeln (auto.FIO:30, auto.marka:10, auto.colour:13, auto.number:8); end; close (f); readkey; end; begin clrscr; assign(f, 'automobile.dat'); vvod; vivod; end.

Создать базу данных следующей структуры:ФИО, марка автомобиля, цвет, номер. составить форму для просмотра полной информации об автомобилях, предусмотрев в ней команды для перехода на следующую\предыдущую запись, перехода на начальную\конечную запись, добавления\удаления записи, редактирования текущей записи. определить: -сведения об автолюбителях, имеющих автомобиль заданной марки и цвета -марки автомобилей, номер которых начинается с заданной группы символов -количество автомтбилей белого цвета -произвести сортировку по одному, двум или трем полям -вывести итоговые данные на дисплей и в текстовый файл это мой курсач помогите а!!! хотя бы советы как реализовыать это!!! плиз!!! я вот (Создать базу данных следующей структуры:ФИО, марка автомобиля, цвет, номер. составить форму для просмотра полной информации об автомобилях) сделал а как 1.предусмотрев в ней команды для перехода на следующую\предыдущую запись, перехода на начальную\конечную запись, добавления\удаления записи, редактирования текущей записи. это сделать? 2.-произвести сортировку по одному, двум или трем полям -вывести итоговые данные на дисплей и в текстовый файл??? Добавлено спустя 46 минут 1 секунду: на паскале нада

у меня чо то не получается, у меня патчи вова есть, я делаю место сохранение в ту папку, где патчи, и торрент начинает скачивать ну и вылазиет типа нельзя скачать низкии рейтинг. объесни мне заново. заранее благодарен. зы. напиши в личку, а то там столько страниц пока все их читал наоборот запутался больше))

''Антропос: Дитя взорвавшейся звезды, заключенное в элементарной форме силой магии мира, Darchrow - одно из самых опасных существ, пожирающее миры пустотой ненависти и голода. Теперь служащее Стражам из неизвестных соображений, Darchrow направило свою ненависть проив Плети, оно все же снисходит до использования собственных союзников как порталов для собственных слуг. Способное к управлению и пустотой, и тенью в бою, самое большое удовольствие состоит в том, чтобы выпустить пустоту в мир, создавая черную дыру, которая притягивает врагов и наносит им тяжкую боль.'' разве антропос это энигма???

Dota это карта такая!!!! вару скачай(токо не знаю откуда) можно с www.blizzard.com)))

Смени пожалуйста на ник Cloud. заранее благодарен

спасибо

народ, только не смейтесь, кто нибудь болеет за сатурн???

у меня трилогия есть диск, но я не знаю как ее выложить. там все части. кстати rise of the witch king не очень, ну мне не понравилось. а во второй части менЯ бесит как еду добывать!!! в rise of the witch king там чародей ваще жирный(я про хп)

турники лучше чем отжимание!!!!! там еще можно всякие выход сил, иголки, арабские косточки делать. я за два месяца с 1 до 20 стал подтягиваться. и перестал был быть самым хилым в классе по армрестлингу )))) Добавлено спустя 3 минуты 2 секунды: а кстати можно прикрепить к ноге чо нить весом кило, канешно штобы не мешало еще тебе, и когда сдаешь бег, 4 обеспечена