Pascal Free

[zrya]

помогите плз

фаст нужно найти где-то СТРУКТУРУ ПРОГРАММЫ

через полчаса выхожу, преподу нужно будет объяснить где программа начинается\кончается, операторы там всякие

лекции проебал где-то

в гугле не могу найти ничего нужного

может вы знаете где есть

пожааааааааалуйста

ну и автор тупица етс

 

[Elninoram]

начало

код программы

конец

 

а по субжу гугл помогает http://pascal.guti.ru/program.html

[Mamatehc]

program prodota;

var x: integer;

begin

readln(x);

writeln(x);

end.

[Elninoram]

program prodota;

var x: integer;

label j;

begin

j:

readln(x);

writeln(x);

goto j

end.

fxd

[WitheR]

Begin

End.

[Fr1Ze]

Использовать go to плохой тон

[zrya]

Общий вид программы:

program (имя программы);

label (список меток);

const (список постоянных значений);

type (описания сложных типов данных);

var (описания данных программы);

функции и процедуры

begin (начало программного блока)

(алгоритм)- тело программы

end. (конец программы)

 

 

правильно да все?

[Elninoram]

А я так учиталя информатике в школе испугал, когда на рандоме числа выдавались на весь экран и ето не кончалось 

[Elninoram]

Общий вид программы:

program (имя программы);

label (список меток);

const (список постоянных значений);

type (описания сложных типов данных);

var (описания данных программы);

функции и процедуры

begin (начало программного блока)

(алгоритм)- тело программы

end. (конец программы)

 

 

правильно да все?

дадада

[Mamatehc]

тебе нужно было вот эту хуйню найти?

[zrya]

1. структура программы паскаль

2. краткое описание структурных типов

3. показать на примере лр2

[zrya]

operator if

 

nado eshe

[Elninoram]

О боже как так гуглом неуметь пользоваться можно?

[NubbY]

1. uses забыл.

2. в душе не помню, какие в паскале есть структурные типы. record помню, остальное смутно.

3. ват из лр2?

 

а бля, лабораторная 2, яебал, давно в универе не учился.

ну это сам.

[total-]

зачем тебе это

просто играй в доту

[trevon]

описывай в РБНФ

[zrya]

1. uses забыл.

2. в душе не помню, какие в паскале есть структурные типы. record помню, остальное смутно.

3. ват из лр2?

лабраб2

[zrya]

СПАСИБО ЛИО ЧТО ПЕРЕНЕС В САМЫЙ НЕПОСЕЩАЕМЫЙ РАЗДЕЛ

ТАК ТОЧНО ЗА 5 МИНУТ МНЕ ОТВЕТЯТ

[Jemdo]

if <condition> then <block1> else <block2>;

 

Если выполняется условие condition то производятся действия block1 иначе block2.

 

Пример:

if a > b then max := a else max := b;

или

if a > b then begin
  max := a;
end else begin
  max := b;
end;

 

Лабораторку номер 2 тебе никто не найдёт, так что пизда рулю. Учись не ронять мыло.

[pawgol]

program prodota;

var x,y,:integer;

begin

writeln(x,y);readln(x,y);

if x>y then write('juse uebok')

else write('juse vseravno uebok')

end.