ШКОЛЬНЫЙ ТРЕД ИТТ на самом деле не школьный, школьники не заходитесейчас начали проходить pascal в быдловузе, а конкретно - delphi.синтаксис я вроде знал со школы, простые задачки решал на изи, поэтому решил опробовать себя в чем-то более серьезном, чем перебрать массив и найти min и max и все такое. Как только я начал писать сою uber серьезную и полезную консольную программу, столкнулся с множеством проблем... Надеюсь есть аноны, которым не в лом помочь начинающему хацкеру анунимусу. также если кто знает годную литературу по delphi, в которой я смогу найти ответы на столь сложные вопросы, то поделитесь ИТТ _______________________________________________Первая проблема:Readln ,тот, что в конце, перестал задерживать консоль на экране после добавления функции, хота 'срань' на экран выводится. program Project1;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils;label goof;procedure FAQ(var cmd: string);begin Writeln('1');end;var cmd: string;begin try { TODO -oUser -cConsole Main : Insert code here } except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; Writeln('Для перехода в раздел ЧАВО/FAQ введите "FAQ" или "?"'); Write('ВВОДИТЕ: '); Read(cmd); FAQ(cmd); Writeln('срань'); Readln;end. ____________________________________________________Проблема вторая:По началу это говно перекидывало меня в подпрограмму, но потом с какого-то момента стало выдавать ошибку/ошибки.Я просто ничего не понимаюvar cmd: string ;begin try { TODO -oUser -cConsole Main : Insert code here } except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; Writeln('Для перехода в раздел ЧАВО/FAQ введите "FAQ" или "?"'); Write('ВВОДИТЕ: '); Read(cmd); > case cmd of {вот здесь ошибка} 'FAQ', '?':FAQ(cmd); end; Readln;end.____________________________________________________есть еще проблемы, но их буду вбрасывать позже, по мере решения предыдущих
Буду бампать рандом цеиь
Лучше реши сам, или иди в /pr/Учи python и будь счастлив...Что угодно но не pascal, ето мрак
>>136230097 (OP)>delphi>2016
>>136230377> Что угодно но не pascalну все же надо, мыж его сейчас в вузике проходим...
конечно давно не видел код на паскале но разве после readln не ставятся пустые скобки вот так -> readln();?
Кароч еще побампаю, если не взлетит, то уйду в pr
>>136230692так он ошибку выдает всегда
>>136230755тогда сори
бампаю дальше
Умный прогать не пойдет-умный прогера наймет.Бизнес-аналитик
>>136230549кстати, я кажется понял что и как но скажу ток если в попу дашь
>>136231733нено могу потыкать в твой анус бутылочкой
Не останавливается на пустом READLN потому как в буфере клавиатуры остался код перевода строки от прошлого ввода.Лучше напишиvar huynia:string; ..... READLN(huynia)....> case cmd of {вот здесь ошибка} 'FAQ', '?':FAQ(cmd); end;так нельзя это ж поцкаль! cmd может быть только булевым, целым, перечеслимым или символьным типом, а тебя cmd - это строка. Ты б еще form1 в case засунул. :-)Хорошо что у тебя хоть дельфи используют (правда через о-пу) в моем говновузике до сих пор "преподают" турбопаскаль едиственное что изменилось за 25 лет - перешли на паскаль под виндовс потому как в паскале для дос с uses crt, готовая программа падает с ошибкой, а патч на модуль crt накатить слабо. Зато науковці:-))
>>136230321Соус музыки?
>>136233332Хотя нет, я передумал
>>136233333
>>136232436спасибо тебе анон> cmd может быть только булевым, целым, перечеслимым или символьным типома как мне реализовывать меню в консоли... не через if же все писать ? срабатывает, но если проверяется соответствие больше чем одному символу -______- , иначе просит char, а как лучше сделать шобы проверять соответствие одному символу ?
>>136233628>>136232436пробовал писать так, но говорит шо выход за пределы массива case cmd[1] of
>>136233773in case of cmd try catch some e
>>136230097 (OP)Забей на универ, иди во фриланс, я сейчас там зарабатываю 140к в месяц в своей мухосрани, вполне неплохая зарплата
>>136234054не понимаю, ты меня тролишь -_________-или сказал действительно что-то стоящее ...
>>136234171
>>136234595Тебе и остаётся только смеяться натужным смехом
>>136233628сейчас попытался сделать в delphi то, о чем я напиздел, ибо помню, что так уже делал в ABC pascal, и все работало, но в delphi не работает.кто может объяснить почему там можно а здесь нелься ....> срабатывает, но если проверяется соответствие больше чем одному символу
В гугле забанили? Читай маны по командам и не еби мозги, тут все простейшая ебола, с который каждый погромист в говновузе сталкивался.