Проблема с CharRange и IntegerRange

@aeross · Регистрация: 26.08.2020

Всем привет!
Значит сел я делать дз по ОАИП и открыл для себя новые типы в паскале:
CharRange и IntegeRange
Мне вообщем-то просто переменной name, secname нужно присвоить определенные значиния с 1 по probel - 1, ну а потом с probel + 1 по конец строки вообщем еще хотелось бы узнать про данные типы(CharRange и IntegeRange)
Код :

Pascal

program new;
 uses crt;
  var 
    phio: string[60];
    symb, a, secname, name, probel, i, j:integer;
  begin
    writeln('Введите ФИО');
    read(phio);
    symb := length(phio);
    writeln('Кол-во символов в строке(с пробелами) = ',symb);
    a := 0;
    for i := 1 to symb do 
      if (phio[i]= 'а') or (phio[i] = 'А') then 
        a := a + 1;
    writeln('Кол-во букв "А" = ', a);
    secname := 0;
    probel := 0;
    readln();
    for i := 1 to symb do
     if (phio[i] = ' ') and (probel < 1) then
        begin
          secname := i - 1;
        end;
    writeln('Длина фамилии = ', secname);
    name := symb - secname - 1;
    writeln('Длина имени = ', name);
    for i := 1 to symb do
      begin
        if (phio[i] = ' ') and (probel < 1) then
          begin
            probel := i;
            secname := phio[1..probel - 1];
            name := phio[probel + 1..symb];
          end;
      end;
    writeln(name, secname);
  end.

Буду благодарен за помощь

@Puporev · 17.01.2021, 20:09

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

CharRange и IntegeRange

Да вроде нет таких типов, это скорее всего самописные функции.

@Puporev Модератор 62540 / 46714 / 32197 Регистрация: 18.05.2008 Сообщений: 113,060
	17.01.2021, 20:09	2
	Сообщение от aeross CharRange и IntegeRange Да вроде нет таких типов, это скорее всего самописные функции. 0

Опции темы