Исследовательско - практическая работа

Лабораторная работа № 23.

Цель: закрепление знаний, развитие навыков само­стоятельной работы.

Ход урока.

На данном уроке закрепляются знания, полученные на предыдущем уроке, и проводится самостоятельная иссле­довательская работа.

Для закрепления знаний можно воспользоваться про­граммой, предлагаемой в качестве поддержки урока

program А8; {Строковые переменные}

uses crt;

var i,m:integer;

c,ch:char; s,s1: string;

begin

ClrScr;

GotoXY(10,3);

Writeln ('Вы работаете с программой демонстрации

строковых переменных'); Writeln; Writeln(‘ Введите 7-10 символов.');

GotoXY(5,8);

Readln(s);

Writeln;

Writeln(‘ Вы ввели строку символов: ',s);

Writeln;

i:=length(s);

m:=Round(i/2);

if m<>0 then c:=s[m]; >

Writeln(‘ Количество символов в строке: ',i);

Writeln;

Writeln(‘ В середине строки есть символ: ',с);

Writeln;

Writeln(‘ Последний символ строки:

',copy(s,length(s),l));

Writeln;

Write(‘ А вот ваша строка "задом наперед":'); ". for m:=i downto 1 do write(s[m]);

Writeln; si:="; Writeln;

for m:=0 to i do

begin
if (ord(s[m])>127) and (ord(s[m])<176) then

1sl:=sl+s[m];

if (ord(s[m])>223) and (ord(s[m])<240) then

sl:=sl+s[m];

end;

if length(s1)<>O then Writeln(‘ В строке есть русские буквы: ',s1);

Writeln;

sl:=";

for m:=0 to i do if (ord(s[m])>47) and (ord(s[m])<58) thensl:=sl+'s[m];

if length(sl)oO then WritelnC В строке есть цифры: ',sl);

sl:=";

for m:=0 to i do

begin
if (ord(s[m])>64) and (ord(s[m])<91) then sl:=sl+s[m];
if (ord(s[m])>96) and (ord(s[m])<123) then

sl:=sl+s[m];

end;

Writeln;

if length(sl)oO then Writeln(' В строке есть латинские буквы: ',sl);

if (ord(s[lJ)>128) and (ord(s[l])<159) then Writeln('Привет,',s+'!'); ch:=ReadKey end.

Необходимо решить задачи:

1. Вызовите программу А8, исполните ее. Обратите внимание, как в программе проводится формирование строки из отдельных символов, как из строковой перемен­ной выделяются отдельные символы и как работают ос­новные функции и процедуры.

2. Придумайте свои варианты обработки информации в форме строк символов.

3. Составьте программу, преобразующую число в строку символов и строку символов-цифр в число.

После этого даем студентам задание:

1. В процедуре Val(s,x,Gode) используется переменная code типа word. Она принимает значение О, если преобра­зование строки в число проведено успешно. Определите назначение этой переменной в случае, если при преобра­зовании строки в число обнаружен символ, который не яв­ляется атрибутом числа.

2. При записи идентификаторов и операторов пропис­ные и строчные буквы не различаются. Выясните, разли­чаются ли прописные и строчные буквы в значениях стро­ковых переменных, в частности, при операциях сравнения.

3. При нажатии клавиши Enter в файл записывается символ конца строки, не имеющий изображения на экране дисплея. Найдите информацию об использовании стан­дартной функции eoln, распознающей этот символ.

Домашнее задание: Выполнить решение задач:

Составить алгоритм, подсчитывающий количество тех слов в строке из N букв, в которых третьей является заданная буква Ь. Слова разделены пробелами. Других зна­ков препинания нет.

Дата добавления: 2015-06-26