Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 26.08.2020
Сообщений: 1
1

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

17.01.2021, 18:44. Просмотров 638. Ответов 1

Всем привет!
Значит сел я делать дз по ОАИП и открыл для себя новые типы в паскале:
CharRange и IntegeRange
Мне вообщем-то просто переменной name, secname нужно присвоить определенные значиния с 1 по probel - 1, ну а потом с probel + 1 по конец строки вообщем еще хотелось бы узнать про данные типы(CharRange и IntegeRange)
Код :
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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.
Буду благодарен за помощь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.01.2021, 18:44
Ответы с готовыми решениями:

Проблема со скоростью интернета(проблема точно не в роутере и кабеле, а соответственно в пк)
Доброй ночи всем! Поздравляю всех с Новым годом! Но теперь я попрошу вас о помощи! Давно замечал,...

проблема при работе с китайским J-LINK 8 или же проблема с с
Всем привет. Решил Сам собрать себе дисковери кит на базе at91sam7s64-ek. Подарили мне китайский...

Проблема с Linux Mint 20(А может и не проблема)
Когда нажимаю на sk Hynix появляется это окошко(так должно быть или нет)?

Проблема применимости и проблема останова
Привет! Как бы я не бился - никак не могу понять проблему останова и применимости алгоритмов в...

1
Модератор
62540 / 46714 / 32197
Регистрация: 18.05.2008
Сообщений: 113,060
17.01.2021, 20:09 2
Цитата Сообщение от aeross Посмотреть сообщение
CharRange и IntegeRange
Да вроде нет таких типов, это скорее всего самописные функции.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2021, 20:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Выдает ошибку, а я не могу понять в чем проблема. В чем проблема, скажите пожалуйста!
dx=0.0005; epsillon=0.00002; i=0; for x= 0:0.0005:3 i=i+1; if x&lt;1 y (i)=-1; ...

Холодильник LG .мод GR-M392YQ.Проблема с дверю, Проблема с дверю при закрывании
Доброго времени суток уважаемые! Холодильник LG GR-M392YQ с первых дней клиент жалуется на то что...

СМА Indesit AQ70L 05 CIS проблема с вращением двигателя, СМА Indesit AQ70L 05CIS проблема с вращением двигателя
сма Indesit AQ70L 05 CIS серийный 203120035 инд код 50770730000 платформа Аркадия однофазка тип...

Проблема с ПК
Вообщем такая проблема, комп не новый фпс в играх кс го, таннки и т.д 70-80 в среднем, но...

Проблема с like
Почему не работает select * from `data` where `name_data` like '%строка запроса%' Выдает...

Проблема в С#
У меня важная работа в Visual studio 2010. Я решил экспортировать шаблон, проверить состояние, а он...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.