5. Что получится в результате действий исполнителя Чертежник по следующему алгоритму:

алг рисунок

нач

. сместиться в точку (2, 1)

. нц 5 раз

. опустить перо

. сместиться на вектор (-1, 3)

. сместиться на вектор (3, 0)

. сместиться на вектор (-1, -3)

. сместиться на вектор (-1, 0)

. поднять перо

. сместиться на вектор (3, 0)

. кц

кон

​

Цель:Развить навыки обработки строковых данных. Уметь использовать различные методы обработки строк. Получить навыки в организации работы со строковыми переменными: удалением, вставкой, копированием, заменой одной строки на другую и т.д.

Оборудование и материалы:Методическое пособие, ПЭВМ, ручка, карандаш, линейка, ластик, шаблон А4.

Ход работы

Методические рекомендации.

Необходимая информация содержится в лекциях № 19-22.

Решение задач представить в следующем порядке: постановка задачи, построение математической модели, блок-схемы, программный код, тестирование.

Задание для лабораторной работы выбрать согласно варианту по приведённой таблице. Вариант определяется порядковым номером в журнале группы.

Для работы с символьной информацией используют новый тип данных - строковый, именуемый ключевым словом string (или просто строка). Этот тип данных во многом похож на одномерный массив символов (Array[0..N] of char), но длина строки (максимальное количество символов N ограничивается числом 255). Значение N определяется при объявлении типа string (N) и может быть любой константой порядкового типа, но не больше 255. Значение N при объявлении типа string можно не указывать: в этом случае длина строки принимается равной 255 символам.

Строка трактуется как цепочка символов и к любому символу в строке можно обратиться по адресу (индексу), подобно одномерным массивам типа Array[0..N] of char. Самый первый байт в строке, имеющий адрес 0 (ноль), содержит код, равный числу символов в строке (длине строки).

Например, дана строка, имеющая следующее описание:

Var St: string;

Тогда длину строки St можно определить как значение функции

Согласно первому заданию надо сначала найти максимальный элемент

uses crt;
var x,y,z,max:integer;

Begin
writeln('Введите x y z');
readln(x,y,z);
if (x>y) and (x>z)
then max:=x
else
if (y>x) and (y>z)
then max:=y
else max:=z;

Writeln('max =',max);
Writeln('Младший разряд =',max mod 10);
Writeln('Остаток от деления на 3 =',(max mod 10) mod 3);

readln;
end.

2)

var n: Integer;
Begin
writeln('Введите день недели');
readln(n);
write('Уроков ');

case n of
1-4: writeln('6');
5,6: writeln('5');
7: writeln('нет');

end;
End.