Примеры задач

Одномерные массивы

Пусть даны символы, среди которых есть двоеточия. Получите все символы расположенные после первого двоеточия.

Методика решения

Например:
шгчвридчв:ыомп:ля...
Результат: ыомп:ля...

Используемые переменные:
p - кол-во символов,
а - массив,
i - параметр цикла,
x - вспомогательная переменная.

Считываем с экрана символы в цикле и помещаем их в массив.

Затем ищем в массиве первое двоеточие. Для этого в цикле перебираем элементы массива до тех пор, пока не дойдём до двоеточия.

После этого, с помощью цикла выводим на экран все элементы, следующие после первого двоеточия.

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

Program ex2_6;

Uses crt;

Var i,p,x:byte;

a,b:array[1..100] of char;

Begin clrscr;

WriteLn('введите каличество сиволов');

ReadLn(p);

WriteLn('введите символы и обязательно хоть одно двоеточие');

For i:=1 To p Do

ReadLn(a[i]);

i:=0;

WriteLn;

WriteLn('это символы после первого двоеточия');

Repeat inc(i); { в b[i] заносятся символы до двоеточия}

Until a[i]=':';

x:=i+1; {Присвоение символов после двоеточия }

For i:=x To p Do {Вывод символов после первого двоеточия}

Write(a[i]:3);

Readkey;

End.

Запустить программу

Назад