Разработать расписание движения пригородных автобусов: номер рейса, маршрут: пункт отправления и пункт назначения, время отправления и прибытия, количество мест в автобусе. По заданному с клавиатуры маршруту или номеру рейса выдать полные сведения о рейсе. Здравствуйте подскажите как можно реализовать данную программу?
мало того что что-то не понял так еще и ошибка. помогите разобраться var src:string; ch:char; ich:byte; chx:integer; function next():char; begin chx+=1; if (chx>0) and (chx0 then chx-=1 else chx:=-1; end; procedure delspase(); begin next(); while (ich=13) or (ich=10) or (ich=32) or (ich=9) do back(); end; function isdigit(tmpc: char):boolean; var tmpb:byte; begin tmpb:=ord(tmpc); result:=tmpb>47 and tmpb
Крутые уроки! Все понятно и полезно.
Как-то не очень переходить сразу к компилятору не объяснив очень многого
Операции сравнения и математические операции можно над символами производить непосредственно, не переводя их в числовые коды.
Очень интересные уроки, мне нравится :)
Большое спасибо! Продолжай в том же духе.
Разработать расписание движения пригородных автобусов: номер рейса, маршрут: пункт отправления и пункт назначения, время отправления и прибытия, количество мест в автобусе. По заданному с клавиатуры маршруту или номеру рейса выдать полные сведения о рейсе.
Здравствуйте подскажите как можно реализовать данную программу?
Объясните функцию delSpace. Она же по сути отстонавливает указатель chx на символе после которого нет пробела. Зачем она?
Какая у тебя версия Паскаля ? Почему у меня нету "Плюсов" и "минусов" , что бы сворачивать напечатанную часть программы?
Сервис -> Настройки -> Редактор -> Разрешить сворачивание кода.
Всё нашел. Спасибо большое!
Школа программистов о хотел спросить) слава богу хоть 1 раз не поленился
4creates.com/training/158-obuchenie-pascal-abc.html Нашел ваши видео на этом сайте, вы давали разрешение?
не нажимай пожалуйста на минусы
не нажимай на плюсы и минусы
Вроде все правильно, но в окне вывода ничего не выводится.
var
src:string;
ch:char;
ich:byte;
chx:integer;
function Next():char;
begin
chx:=1;
if (chx>0) and (chx0 then chx-=1 else chx:=-1;
end;
procedure delSpace();
begin
next();
while (ich=13)or(ich=10) or(ich=32) or(ich=9) do next;
back();
end;
function IsDigit(tmpC:char):boolean;
var
tmpB:byte;
begin
tmpB:=ord(tmpC);
result:= (tmpB>47)and(tmpB
+Andrey Kambarov То же самое. Делал Kомпилятор на JQuery все норм
мало того что что-то не понял так еще и ошибка. помогите разобраться
var
src:string;
ch:char;
ich:byte;
chx:integer;
function
next():char;
begin
chx+=1;
if (chx>0) and (chx0 then chx-=1 else chx:=-1;
end;
procedure delspase();
begin
next();
while (ich=13) or (ich=10) or (ich=32) or (ich=9) do
back();
end;
function isdigit(tmpc: char):boolean;
var
tmpb:byte;
begin
tmpb:=ord(tmpc);
result:=tmpb>47 and tmpb
begin
ch:=chr(0);
chx:=-1
end;
точку с запятой не поставил после chx:=-1
подскажите паскаль с возможностью сворачивания
Tools -> Options -> Text Editor -> Enable folding
Как много людей посмотрело 1 часть (Относительно количеству просмотров 3 части )....
Это норма, т.к. большинство людей не хотят вникать, думают посмотрят, так сразу все поймут, не понимают, бесятся и не смотрят дальше.
пожалуйста...
прошлые 2 урока я прекрасно понял , а этот мне как-то не даётся вообще
Ужасно объясняешь. За три урока ничему не смог научиться...
Я смог, программирование для тех кто хорошо соображает
@@GORDEY-zm7ci можете мне пожалуйста объяснить смысл данного урока, пожалуйста
Я что-то ничего не понимаю в этом уроке((
значит справку почитай по паскалю. В прошлом же уроке об этом говорили!
очень не удобно...
ни хе ра не по нял
А желающих все меньше