Помощь - Поиск - Пользователи - Календарь
Полная версия: Процедуры
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
N/V/K
  Uses Graph,F_GRtext,crt;
procedure setwindow (x1,x2,y1,y2,border:byte;header:string;clip,build,play:boolean);
procedure Scrolling(N:integer);
var
b:string; F1:Text;
begin
x1:=20;
x2:=20;
y1:=20;
y2:=20;
border:=2;
clip:=true;
build:=true;
play:=true;
N:=6;
header:=('Лекции');
assign(f1,'d:\1.txt');
reset(f1);
while not EOF(f1) do begin
readln(f1,b);
writeln(b);
end;
writeln('Нажмите Enter для завершения.');
close(f1);
readln;
end;
end;
end.

Подскажите пожалуйста как правиьно вставлять процедуры в код программы? Заранее благодарен.
мисс_граффити
а где они?
судя по всему, весь код относится к Scrolling, который вложен в setwindow...
а чего ты хотел добиться?
N/V/K
Хотел создать текстовое окно с бордюром, заголовком, сигналом, и полосой прокрутки.
Lapp
Для точного и правильного понимания читай учебники! Тут я даю лишь примитивное толкование.
Структура программы такая (грубо) :

1. Основная программа состоит из определений данных (константы, типы и переменные)
2. Процедуры и функции
3. Тело программы

Части 1 и 2 могут идти вперемежку (данные, процедуры, данные..). Каждая процедура или функция по структуре тоже такие же, то есть могут иметь сври данные, ппроцедуры и тело. Из всего этого обязательным является только тело (оно может быть пустым, хотя это довольно бессмысленно, кроме как заготовка на будущее)

Такая вложенная структура может продолжаться дальше.
Как именно вставлять процедуры - зависит от области видимости, которую ты хочешь обеспечить (показать или скрыть данные другим процедурам).
Совет: постарайся следовать правилам форматирования программного текста, которые я показал на этом примере. Это поможет.
Uses 
Graph,F_GRtext,crt;

procedure setwindow (x1,x2,y1,y2,border:byte;header:string;clip,build,play:boolean);
procedure Scrolling(N:integer);
var
b:string; F1:Text;
begin
{Here goes procedure Scrolling body}
x1:=20;
x2:=20;
y1:=20;
y2:=20;
border:=2;
clip:=true;
build:=true;
play:=true;
N:=6;
header:=('Лекции');
assign(f1,'d:\1.txt');
reset(f1);
while not EOF(f1) do begin
readln(f1,b);
writeln(b);
end;
writeln('Нажмите Enter для завершения.');
close(f1);
readln;
end;
begin
{Here goes procedure SetWindow body}
end;

begin
{Here goes main program body}
end.
N/V/K
Lapp спасибо огромное тебе.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.