Поворот направо, шаг, поворот налево, поворот налево, шаг, поворот направо (1 линия)
Прыжок, поворот направо, шаг, шаг, поворот налево, поворот налево, шаг, шаг, поворот направо (2 линия)
Прыжок, поворот направо, шаг, шаг, шаг, поворот налево, поворот налево, шаг, шаг, шаг, поворот направо (3 линия)
Прыжок, поворот направо, шаг, шаг, шаг, поворот налево, поворот налево, шаг, шаг, шаг, поворот направо (4 линия)
Прыжок, поворот направо, шаг, шаг, поворот налево, поворот налево, шаг, шаг, поворот направо (5 линия)
Прыжок, поворот направо, шаг, поворот налево, поворот налево, шаг, поворот направо (6 линия)
Программа переводит метры в километры
Считаем, что поля записи в текстовом файле разделены символом ";", тогда задачу можно решить так:
type
Person = record
<span> fname: </span>string;//Фамилия ученика
lname: string;//Имя
school: integer;//Номер щколы
end;
var student: Person;
n,s,p:integer;
tmp:string;
fin:text;//Файловая переменная
begin
assign(fin, 'students.txt');
reset(fin);
<span> readln(n);</span>//Получаем номер школы
while not (eof(fin)) <span>do </span>
<span> begin</span>
<span> readln(fin, tmp);</span>//Читаем строку из файла
p:= Pos(';', tmp);
<span> Delete(tmp, </span>1, p);//удаляем все до первого разделителя
p:= Pos(';', tmp);
<span> Delete(tmp, </span>1, p);//удаляем все до второго разделителя
// в tmp остался номер школы
student.school:=strtoint(tmp);
if student.school=n then s+=1;
end;
writeln(s);
end.
(5,5), (8,8), (9,8), (11,6), (12,7), (12,7), (11,7),
(11,2), (9,2), (9,3), (10,3), (10,4), (7,4), (7,2),
(5,2), (5,3), (6,3), (6,9), (7,9), (7,8), (2,8),
(2,9), (3,9), (3,6), (4,5)
Специализированная электронно-счетная машина