FreePascal.ru

2- ку выводит. " 0 " добавил, тоже работает.
Я что хотел спросить- мой вариант вообще колхоз или "на троечку " пойдет?
Вариант из книги я бы сам не осилил. Хитро там придумано.

В книге про Лазарус не сказано. Олег написал, что не стоит новичку сразу лезть в него. А уж как потренировавшись на " кошках " можно и в лазарус.

В главе по установке FPC, было бы хорошо, если был совет набирать текст программ в текстовых редакторах (Блокнот, NotePad и т.д..), а после компилировать и запускать в FPC. Просидел в АЗС два месяца и глаза болят. Расцветка в нем- " вырви глаз ".

Прошу оценить мое решение:


const CSize = 255;
type TSet = set of 1..CSize;
var S : TSet;
i, n1, n2, k : integer;

begin
S := [];
for i := 1 to CSize do begin
k := Random(CSize) + 1;
S:= S + [k];
end;
for i := 1 to CSize do
if i in S then ...

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

На здоровье.

В книге с ответами в секции функции ExpandTo80 в строке " len:= 0; i:=1; " не хватает " w := 0 ":


{ Подсчет общей длины слов и их количества в массиве }
len:= 0; i:=1;
while Length(A[i])>0 do begin
len:= len + Length(A[i]);
Inc(w);
Inc(i);
end;
Blanks:= 80-len ...

Строка:

v:= (v+1+Random(2)) mod 3;

в:
function PassWord_3: string;
var S: string; { результат }
v: integer; { вариант очередного символа }
C: char; { очередной символ }
begin
S:='';
v:= Random(3);
while Length(S)<8+Random(5) do begin
case v of
0&#58; C&#58;= Char(Random(10 ...

Пишу для того, кто будет делать это задание, чтобы не страдал при его проверке.
Ребята! Делайте исходный файл (InFile) очень аккуратно, как закончили последнюю строку то не надо нажимать на " Enter ", т.е. переходить на новую строку. На новой строке можно написать " пробел ", а программа посчитает ...

Теперь ясно. Спб.

Спб, просветили.

Прими мои извинения за неудобство чтения моей писанины. Мне удобно так ориентироваться в блоках begin- end. Я знаком с html и поэтому так привычней.
Спб за прояснение.

Тут же второй вопрос-
1. Сначала, перед циклом, было объявлено что flag := false;,
2. Затем проверяем на равенство входящего ...

{ P_29_1 - Policeyskaya baza, versya 0 }

var F &#58; text;
S &#58; string; { vhodyzshiy nomer }
P &#58; string; { nomer v baze }
i &#58; integer;
flag &#58; boolean;

begin
Assign(F, 'Police&#46;txt');
flag &#58;= false;
Reset(F);
Writeln('Vvedite interesuyushiy Vas nomer&#58; '); Readln ...

Плиз, объясните, почему при наборе номера, которого нет в базе, программа не печатает сообщение?


{ P_29_1 - Policeyskaya baza, versya 0 }

var F &#58; text;
S &#58; string; { vhodyzshiy nomer }
P &#58; string; { nomer v baze }
i &#58; integer;
flag &#58; boolean;

begin
Assign(F, 'Police ...

Что получилось:


var F1, F2 &#58; text;
C1, C2, C3 &#58; char;
C &#58; char;
Res &#58; char;

begin
Assign(F1, 'Proba_27_G_1&#46;txt');
Assign(F2, 'Proba_27_G_2&#46;txt');
Reset(F1);
Rewrite(F2);
if not Eof(F1)
then
begin
Writeln(F2, 'Na vhode', ' ', 'Na vihode');
Readln(F1, C1);
Res ...