Буду бампать рандом цеиь
Лучше реши сам, или иди в /pr/
Учи python и будь счастлив...
Что угодно но не pascal, ето мрак
Учи python и будь счастлив...
Что угодно но не pascal, ето мрак
>delphi
>2016
> Что угодно но не pascal
ну все же надо, мыж его сейчас в вузике проходим...
конечно давно не видел код на паскале но разве после readln не ставятся пустые скобки вот так -> readln();
?
?
Кароч еще побампаю, если не взлетит, то уйду в pr
так он ошибку выдает всегда
тогда сори
бампаю дальше
Умный прогать не пойдет-умный прогера наймет.
Бизнес-аналитик
Бизнес-аналитик
кстати, я кажется понял что и как но скажу ток если в попу дашь
не
но могу потыкать в твой анус бутылочкой
Не останавливается на пустом READLN потому как в буфере клавиатуры остался код перевода строки от прошлого ввода.
Лучше напиши
var huynia:string;
.....
READLN(huynia)
....
> case cmd of {вот здесь ошибка}
'FAQ', '?':FAQ(cmd);
end;
так нельзя это ж поцкаль! cmd может быть только булевым, целым, перечеслимым или символьным типом, а тебя cmd - это строка.
Ты б еще form1 в case засунул. :-)
Хорошо что у тебя хоть дельфи используют (правда через о-пу) в моем говновузике до сих пор "преподают" турбопаскаль едиственное что изменилось за 25 лет - перешли на паскаль под виндовс потому как в паскале для дос с uses crt, готовая программа падает с ошибкой, а патч на модуль crt накатить слабо.
Зато науковці:-))
Лучше напиши
var huynia:string;
.....
READLN(huynia)
....
> case cmd of {вот здесь ошибка}
'FAQ', '?':FAQ(cmd);
end;
так нельзя это ж поцкаль! cmd может быть только булевым, целым, перечеслимым или символьным типом, а тебя cmd - это строка.
Ты б еще form1 в case засунул. :-)
Хорошо что у тебя хоть дельфи используют (правда через о-пу) в моем говновузике до сих пор "преподают" турбопаскаль едиственное что изменилось за 25 лет - перешли на паскаль под виндовс потому как в паскале для дос с uses crt, готовая программа падает с ошибкой, а патч на модуль crt накатить слабо.
Зато науковці:-))
Соус музыки?
Хотя нет, я передумал
спасибо тебе анон
> cmd может быть только булевым, целым, перечеслимым или символьным типом
а как мне реализовывать меню в консоли... не через if же все писать ?
срабатывает, но если проверяется соответствие больше чем одному символу -______- , иначе просит char, а как лучше сделать шобы проверять соответствие одному символу ?
пробовал писать так, но говорит шо выход за пределы массива
case cmd[1] of
in case of cmd try catch some e
Забей на универ, иди во фриланс, я сейчас там зарабатываю 140к в месяц в своей мухосрани, вполне неплохая зарплата
не понимаю, ты меня тролишь -_________-
или сказал действительно что-то стоящее ...
Тебе и остаётся только смеяться натужным смехом
сейчас попытался сделать в delphi то, о чем я напиздел, ибо помню, что так уже делал в ABC pascal, и все работало, но в delphi не работает.
кто может объяснить почему там можно а здесь нелься ....
> срабатывает, но если проверяется соответствие больше чем одному символу
В гугле забанили? Читай маны по командам и не еби мозги, тут все простейшая ебола, с который каждый погромист в говновузе сталкивался.
на самом деле не школьный, школьники не заходите
сейчас начали проходить 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.
____________________________________________________
есть еще проблемы, но их буду вбрасывать позже, по мере решения предыдущих