Laba_infa5 (Все ЛР)

Задача

1. В одной строке экрана вводится последовательность символов (тип char). Ввод завершается символом «?». Подсчитать количество пар рядом стоящих символов. Вывести найденное количество с поясняющим текстом. Если так пар нет, то выдать сообщение об этом. Массивов не использовать.

2. Используя символьный вывод, напечатать любое заданное число вещественное число Х в следующем виде:

+(-)0.d₁d₂d₃…d₉E+(-)p₁p₂,

где d₁, p₁ – цифры, причём d₁ <> 0, если Х <> 0.

Например, задано число Х=0. Вид результата: +0.000000000E+00.

Требование: закольцевать в одном приложении каждое из двух заданий для многократного прогона

Требования для отчёта:

• Титульный лист;

• Формулировка задания;

• Листинг программы;

• Набор исходных тестовых данных с результатами (скриншоты окна).

Обоснование типов данных

Все символьные данные по условию должны быть типа char. Используем double для числа X в задании 2, так как это самый оптимальный тип данных для работы с вещественными числами. Для переменных-счётчиков наиболее рациональным будет использование беззнаковых типов byte и word.

Код

program Laba5_1;

{Выполнил Кирдин М.Д., Вариант 9, Группа ФН12-11Б. Посчитать количество пар символов в последовательности и вывести число в экспоненциальной форме с точностью до 9 знака}

procedure task_1;

//процедура для 1 задания

var

ch, ch1: char;

//Переменные для настоящего и предыдущего символов

k: word;

//Счётчик количества пар

begin

writeln('Enter a sequence of any symbols ending with -?-:');

Read(ch);

k := 0;

repeat

ch1 := ch;

Read(ch);

if (ch1 = ch) then

begin

k := k + 1;

write (ch);

end;

//если настоящий и предыдущий элементы одинаковы, они считаются парой

until (ch = '?');

readln;

if (k = 0) then

Write('This sequence has no pairs of same symbols.')

//выводим соответствующее сообщение, когда нет ни одной пары

else

begin

if (k <> 1) then

Write('This sequence has ', k, ' pairs of same symbols.')

else

Write('This sequence has ', k, ' pair of same symbols.');

end;

writeln;

k := 0;

end;

procedure task_2;

//процедура для 2 задания

var

X, X1: double;

//Число Х

d, p1, p2: char;

//переменные для символьного вывода(дробная часть и степенная часть)

i: byte;

//переменная-счётчик

begin

p1 := '0';

p2 := p1;

//по умолчанию число в степени Е+00

Write('X = ');

readln(X);

X1 := X;

Write('Result: ');

while (abs(X) >= 1) do

begin

X := X / 10;

p2 := chr(Ord(p2) + 1);

if (p2 = ':') then

begin

p1 := chr(Ord(p1) + 1);

p2 := '0';

end;

end;

//увеличиваем степень, если число больше 10, пользуясь операциями chr и ord (символы для 0-9 последовательно пронумерованы в ASCII)

while (abs(X) < 1e-9) and (abs(X) > 0) do

begin

X := X * 10;

p2 := chr(Ord(p2) + 1);

if (p2 = ':') then

begin

p1 := chr(Ord(p1) + 1);

p2 := '0';

end;

end;

//уменьшаем степень, если число меньше 0.000000001

if (X >= 0) then

Write('+')

else

Write('-');

Write('0.');

if (X < 0) then

X := (-1) * X;

for i := 1 to 9 do

begin

X := X * 10;

d := chr(48 + trunc(X) mod 10);

Write(d);

end;

//при помощи операции mod выводим все цифры после запятой

Write('E');

if (abs(X1) < 1e-9) and (abs(X1) > 0) then

Write('-')

else

Write('+');

Write(p1, p2);

writeln;

end;

var

ch: char;

//переменная для зацикливания(определяет, продолжать ли работу программе на основе ввода пользователя)

begin

repeat

task_1;

task_2;

writeln('Do you want to continue? Y/N');

readln(ch);

repeat

if (ch = 'N') or (ch = 'n') then

begin

Write('Shutting down...');

halt;

end;

if (ch = 'Y') or (ch = 'y') then

break;

writeln('Incorrect input. Try again.');

until False;

//цикл, проводящий общение с пользователем(продолжать программу или нет)

until False;

end.

Тестовые данные

Скриншоты