Другие языки программирования и технологии
Подскажите как программировать на Паскале. Первый раз запустил, ничего не знаю, полный новичок.
Пожалуйста, как можно подробнее.
Во первых - там надо учить команды
Во вторых - там есть Help (справа вверху)
В третьих - дам тебе пример может разберёшся
uses Graph,crt; {Задействование библиотек}
label play,exit; {Какие метки будут}
var {Перечисление значений}
grDriver,g,x: Integer; {Integer- целое число}
grMode,w,y: Integer;
c:char;
begin {Начало действий}
grDriver := Detect;
InitGraph(grDriver, grMode,'x'); {ввести вместо х путь к EGAVGA.BGI (видио) }
x:=320;
y:=240;
setcolor(white); {Цвет изображений}
textcolor(black);
play: {Метка}
clrscr; {Стирание всего с экрана}
line(0,263,640,263);
if w=1 then begin {Прыжок}
y:=y-10;clrscr;
circle(x,y,5);
circle(x-2,y,1);
circle(x+2,y,1);
line(x,y+5,x,y+15); {Рисование человека}
line(x,y+5,x-7,y+10);
line(x,y+5,x+7,y+10);
line(x,y+15,x-7,y+22);
line(x,y+15,x+7,y+22);
if x=5 then x:=6;
if x=635 then x:=634;
if y=5 then y:=6; {Невозможность ухода за экран}
if y=458 then y:=457;
y:=y-10;clrscr;
line(0,263,640,263); {Линия горизонта}
y:=y-10;delay(65000);y:=y+50;clrscr;w:=0;end;
line(0,263,640,263);
circle(x,y,5);
circle(x-2,y,1);
circle(x+2,y,1);
line(x,y+5,x,y+15);
line(x,y+5,x-7,y+10);
line(x,y+5,x+7,y+10);
line(x,y+15,x-7,y+22);
line(x,y+15,x+7,y+22);
if x=5 then x:=6;
if x=635 then x:=634;
if y=5 then y:=6;
if y=458 then y:=457;
c:=ReadKey; {Назначение клавиш}
case c of
#72: w:=1; { Вверх значение прыжка}
#75: x:=x-5; { Влево все х чела -5}
#77: x:=x+5; { Вправо все х чела +5}
#27: goto exit; {Эскейп перейти к exit}
end; {Конец назначению}
if x=5 then x:=10;
if x=635 then x:=630;
if y=5 then y:=6;
if y=458 then y:=457;
goto play; {перейти к play}
exit: {Метка}
closegraph; {Закрыть изображение}
end. {Конец программе}
Далее нажми Run-Run и вперёд к результату.
Во вторых - там есть Help (справа вверху)
В третьих - дам тебе пример может разберёшся
uses Graph,crt; {Задействование библиотек}
label play,exit; {Какие метки будут}
var {Перечисление значений}
grDriver,g,x: Integer; {Integer- целое число}
grMode,w,y: Integer;
c:char;
begin {Начало действий}
grDriver := Detect;
InitGraph(grDriver, grMode,'x'); {ввести вместо х путь к EGAVGA.BGI (видио) }
x:=320;
y:=240;
setcolor(white); {Цвет изображений}
textcolor(black);
play: {Метка}
clrscr; {Стирание всего с экрана}
line(0,263,640,263);
if w=1 then begin {Прыжок}
y:=y-10;clrscr;
circle(x,y,5);
circle(x-2,y,1);
circle(x+2,y,1);
line(x,y+5,x,y+15); {Рисование человека}
line(x,y+5,x-7,y+10);
line(x,y+5,x+7,y+10);
line(x,y+15,x-7,y+22);
line(x,y+15,x+7,y+22);
if x=5 then x:=6;
if x=635 then x:=634;
if y=5 then y:=6; {Невозможность ухода за экран}
if y=458 then y:=457;
y:=y-10;clrscr;
line(0,263,640,263); {Линия горизонта}
y:=y-10;delay(65000);y:=y+50;clrscr;w:=0;end;
line(0,263,640,263);
circle(x,y,5);
circle(x-2,y,1);
circle(x+2,y,1);
line(x,y+5,x,y+15);
line(x,y+5,x-7,y+10);
line(x,y+5,x+7,y+10);
line(x,y+15,x-7,y+22);
line(x,y+15,x+7,y+22);
if x=5 then x:=6;
if x=635 then x:=634;
if y=5 then y:=6;
if y=458 then y:=457;
c:=ReadKey; {Назначение клавиш}
case c of
#72: w:=1; { Вверх значение прыжка}
#75: x:=x-5; { Влево все х чела -5}
#77: x:=x+5; { Вправо все х чела +5}
#27: goto exit; {Эскейп перейти к exit}
end; {Конец назначению}
if x=5 then x:=10;
if x=635 then x:=630;
if y=5 then y:=6;
if y=458 then y:=457;
goto play; {перейти к play}
exit: {Метка}
closegraph; {Закрыть изображение}
end. {Конец программе}
Далее нажми Run-Run и вперёд к результату.
сначала определись с целью и задачей, а дальше дело технического писаки....
Судя по постановке вопроса, тебе программистом быть лучше не пытаться.
Антон Медведь
Неважна постановка вопроса. Важен интерес и стремление изучить. А пробовать должен каждый.
ТВОЯ ПЕРВАЯ ПРОГРАММА МОЖЕТ СУММИРОВАТЬ
ПРОСТО ПЕРЕПИШИ В ОКНО ПАСКАЛЯ НИЖЕПРИВЕДЁННЫЙ ТЕКСТ И ВЫПОЛНИ Ran->Ran(появится после нажатия Ran).
program summa;
uses crt;
var a,b,s:integer;
begin clrscr;
write( ' Vvedite a' );readln(a);
write( ' Vvedite b' );readln(b);
s:=a+b;
writeln('Summa ravna ', s);
readkey;
end.
ПРОСТО ПЕРЕПИШИ В ОКНО ПАСКАЛЯ НИЖЕПРИВЕДЁННЫЙ ТЕКСТ И ВЫПОЛНИ Ran->Ran(появится после нажатия Ran).
program summa;
uses crt;
var a,b,s:integer;
begin clrscr;
write( ' Vvedite a' );readln(a);
write( ' Vvedite b' );readln(b);
s:=a+b;
writeln('Summa ravna ', s);
readkey;
end.
В таком случае, может сначала книжку скачать/купить... .
А вообще похоже на умный Basic.
Даже команды во многом похожи
А вообще похоже на умный Basic.
Даже команды во многом похожи
купи самоучитель! Иди могу скинуть сам Pascal+HELP(полный)
Похожие вопросы
- Обьясните мне дураку как можно научится программировать на паскале?
- Люди как сделать легкую программу на паскале, и вобще какой язык программирования лучше для новичка
- когда вы программировали или программируете на паскале вы испытываете какие-то чувства?
- Немного программировал на Паскале, но, говорят, что это раритет. На какой из современных языков легче перейти?
- С чего начать программирование linux для полного новичка?
- КТО знает подскажите как прогу в паскале написать с применением аски кодов
- Подскажите среду разработки прикладного программного обеспечения. Базис у меня небольшой - знаю только Бейсик и Паскаль.
- Паскаль, В чем ошибка программы, кто знает поясните ошибку или хоть как то помогите, очень надо.
- Подскажите пожалуйста еще с одной программой, тут я вобще не знаю с чего начинать, язык СИ!!!!А не с++
- Возможно ли новичку по самоучителю научиться программировать на C? Или лучше начать с Паскаля?