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

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


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

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

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

Используемые переменные:
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.

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






Назад

Закрыть