FreePascal.ru

const
sf=[' ','.',',','!','?','-'];

procedure ReadFile(var af:text;var st:string);
var
sc:string;
ch:char;
begin
sc:='';
repeat
read(af,ch);
if not(ch in sf) then
sc:=ch+sc
else begin
sc:=sc+ch;
st:=st+sc;
sc:='';
end;
until eof(af ...

red_general для "песен" есть отдельная ветка на форуме. http://freepascal.ru/forum/viewforum.php?f=45

Добрый день Олег Виленович.Как-то на просторах инета один студент попросил помощи решить задачу "Отсортировать массив по возрастанию сортировкой выбором". Я написал код и отправил ему.

const
n=20;

type
tarray=array [1..20] of shortint;

var
arr:tarray;

procedure ...

SeZuka писал(а):Вы два года над этой проблемой бьетесь, сколько же вы времени проект делать собираетесь, всю жизнь???

Смотря какой!
На компе 2 ОСи.Win XP и Win 7.Эта проблема в ХР.Вообще собираюсь удалять ХР,оставить Win 7 и проблема решиться сама собой .

Так ничего не могу с этим поделать,есть ещё варианты?

Каждый решает по своему.Вот мой вариант:

type tset=set of byte;

function CountCars(var aset:tset):byte;
var k,n:byte;
begin
n:=0;
for k:=0 to 255 do
if k in aset then inc(n);
CountCars:=n;
end;

procedure WriteSet(var aset:tset);
var k,n:byte;
begin
n:=0 ...

Я где-то читал,только где не помню,всё было подробно расписано.В общем с нечётными номерами это промежуточные версии,а с чётными-релизные.

Программа подсчитывает кол-во слов в собственном коде.

Программа вылетает с ошибкой,в процедуре FindWord на строке if aword=p^.mword then begin .В Delphi , FPC всё работает.В чём проблема?
const
Sym=['A'..'Z'];

type
prec=^trec;
trec=record
mword:string;
mcount:byte ...

Я переправил таким образом:

const
tracks=255;

type
tdisk=array [0..tracks] of byte;

var
tr,min,max : integer; { текущая дорожка,минимальный и максимальный запрос }
pr,kw : integer; { период опроса очереди, квант }
count : integer; { количество не обработанных ...

Мелкие опечатки:
гл. 51 , стр. 399 отсутствуют разделители в коде
var P : ^integer; { указатель на целое }
N : integer { целое }
begin
P:= @N { указателю назначается адрес переменной N }
P^:= 125; { переменной присваивается значение через указатель }
Writeln(N); { 125 ...

Да,накосячил немного Вот исправленный вариант.
const
tracks=255;

type
tdisk=array [0..tracks] of byte;

var
disk:tdisk;
que:string;
tr,req:byte;
dir:boolean;
pr,kw:integer;
f:text;

procedure PutInQue;
var
n:byte;
begin
while not eoln(f) do ...

Немного задержался с ответом.
Вот что у меня получилось.

const
tracks=255;

type
tdisk=array [0..tracks] of byte;

var
tr,min,max:byte; { текущая дорожка,минимальный и максимальный запрос }
pr,kw:integer; { период опроса очереди,квант }
count:integer; { количество ...

Теперь понятно зачем массив применять .А то я понять не мог зачем он нужен .Приступаю к решению .

Здравствуйте,уезжал на несколько дней,задержался с решением.
Я вот никак не могу понять как должна обрабатываться очередь в этой задаче?
Как я понял:
Получаем запрос на первоначальную очередь и ставим в неё первую строку файла,теперь в очереди номера дорожек: 50 10 250 30 10.
Первоначальное ...

Где скрин?