Dsdvfsvssd

  • 26 июня 2012 г.
  • 548 Слова
program Var21;
var
s: string; // i - строка входного файла
family: string; // Фамиилия в i - строке входного файла
name: string;// Имя в i - строке входного файла
surname: string; // Отчество в i - строке входного файла
date: record // Дата рождения в i -строке входного файла
day: integer; // День
month: integer; // Месяц
year: integer; // Год
end;
phone:integer; // Номер телефона в i - строке входного файла
F_in: text; // Входной файл
F_out: text; // Выходной файл
i:word; // Индекс строки входного файла
code: integer; // Проверка на символы отличные от цифр, отлична от нуля если такие символы есть, иначе 0
flag:boolean; // Флаг ошибки
function russian(str: string): boolean;
{Функция проверки на русский алфавит;
Вернет "ложь" если в строке найдется хоть один символ отличный отрусских букв
и "истина" в противном случае}
var
k: byte;
flag1: boolean; // k - символ в строке
begin
russian:= true;
flag1 := true;
k := 1;// По-умолчанию - "истина"
while (k <= length(str)) and (flag1) do //Проверяем посимвольно
begin
{ ASCII-коды "А"..."я" - 192 ... 255,ASCII-код "Ё" - 168, ASCII-код "ё" - 184}
if((ord(str[k])<>168)and(ord(str[k])<>184)and((ord(str[k])<192)or(ord(str[k])>255))) then
beginrussian := false; //Значение функции - "ложь", если найден символ не являющийся русской буквой
flag1 := false;
end
else...
tracking img