IP-адрес сделать в программе pasckal abc

[wazlers]

Ограничение по времени: 1 секунда
Ограничение по памяти: 64 мегабайта


Для того чтобы выходить в Интернет, каждому компьютеру присваивается так называемый IP-адрес. Он состоит из четырех целых чисел в диапазоне от 0 до 255, разделенных точками. В следующих трех строках показаны три правильных IP-адреса:

127.0.0.0
192.168.0.01
255.00.255.255

Напишите программу, которая определяет, является ли заданная строка правильным IP-адресом.


Формат входного файла

На вход программе подается строка длиной не более 15 символов, которая включает цифры и ровно три точки.


Формат выходного файла

Если строка является правильным IP-адресом, необходимо вывести 1, иначе 0.

IP-адрес сделать в программе pasckal abc

[Mandrivnyk]

А в чем проблема, собственно?

[Serge_Bliznykov]

Сообщение от Mandrivnyk

А в чем проблема, собственно?

+1

я бы опирался на

которая включает цифры и ровно три точки.

счётчик удачных групп = 0
начало цикла
если счётчик удачных групп < 4 тогда
взять всё до первой точки. ( sTemp := Copy(S, 1, Pos('.', S)-1);
попытаться преобразовать в число процедурой VAL: Val(sTemp, K, ErrCode);
если ошибок пребразования не было ErrCode=0
и число больше/равно нуля и меньше/равно 255
то удалить из строки всё до первой точки и увеличить счётчик удачных групп. и перейти на начало цикла
иначе - прервать цикл - выход с ошибкой (функция - 0 - не IP адрес)


p.s. я тут долше расписывал, чем эту элементарную программу писать!