Написать программу, которая проверит, является ли введенное с клавиатуры строка целым числом?

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

Тема: «Разработка алгоритмов и программ обработки строк. Использование множеств для решения задач».

Цель работы: составление программ на языке Pascal для задач по обработке информации, представленной в виде строк и символов;

разработка и составление программ с использованием множеств.

 

Программные средства: система программирования Borland Pascal.

 

Вопросы для самоподготовки

1. Понятие строки. Описание строки.

2. Операции со строками.

3. Стандартные процедуры и функции при работе со строками.

 

ЗАДАНИЕ №1.

Подсчитать количество букв “a” в заданной строковой переменной.

Решение:

Program laba10;

uses crt;

Var

b: string;

i, k: integer;

begin

writeln (‘Введите строку’);

readln (b);

k:=0;

for i:=1 to length (b) do

if b[i]=’a’ then k:=k+1;

writeln (‘k=’,k);

end.

ЗАДАНИЕ №2.

Написать программу, которая проверит, является ли введенное с клавиатуры строка целым числом?

Решение:

Program laba10;

uses crt;

Var

st: string [40];

n: integer;

begin

writeln (‘Введите число и нажмите <Enter>’);

readln (st);

n:=1;

while (n<=Length (st)) and ((st[n]>=’0’) and (st[n]<=’9’)) do

n:=n+1;

write (‘Введенная строка’);

if n<Length (st)

then

writeln (‘не является целым числом’);

else

writeln (‘является целым числом’);

end.