Lab5 (Лабораторные работы (В PAS-файлах))
Описание файла
Файл "Lab5" внутри архива находится в следующих папках: Лабы в PAS-файлах, Лабы. Документ из архива "Лабораторные работы (В PAS-файлах)", который расположен в категории "". Всё это находится в предмете "информационные технологии" из 2 семестр, которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "лабораторные работы", в предмете "информационные технологии" в общих файлах.
Онлайн просмотр документа "Lab5"
Текст из документа "Lab5"
ФЕДЕРАЛЬНОЕ АГЕНТСТВО ПО ОБРАЗОВАНИЮ
МОСКОВСКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ РАДИОТЕХНИКИ, ЭЛЕКТРОНИКИ И
АВТОМАТИКИ
(ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ)
Кафедра РПУ
Лабораторная работа №5
Тема: “Обработка символьной и строковой информации”
Вариант №3
Цель работы: получить навыки работы с данными символьного и строкового типов.
работу выполнил
группа ВР-1-08
проверил: Давлетчин Д.И.
Москва 2009
Постановка задачи. Составить программу для обработки текстовой информации.
Условие. В данном тексте найти целое число, состоящее из наибольшего количества цифр.
.
Программа
program lab5;
uses crt;
var i,i2:integer;
a,b:string;
t1:array [1..20] of string;
begin
clrscr;
i2:=1;b:='';
writeln('Введите текст');read(a);
for i:=1 to length(a) do
begin
if (ord(a[i])>47) and (ord(a[i])<58) then
b:= b + a[i]
else
if b<>'' then
begin
t1[i2]:=b;
i2:=i2+1;
b:='';
end;
end;
for i:=1 to i2 do
begin
if length(t1[i])>length(b) then
b:=t1[i];
end;
if b<>'' then
writeln('Число состоящее из наибольшего количества цифр:',b)
else
writeln('Чисел в тексте нет');
readkey
end.