Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Массив Программу напишите пожалуйста https://www.cyberforum.ru/ pascal/ thread2770662.html
Дан массив из 5х3 целых чисел. Напишите программу вычисления количества элементов массива, среди двузначных чисел, у которых вторая цифра кратна первой.
Pascal Программа на строки
Дана строка русских слов разделенных пробелом в конце стоит точка. Необходимо найти процентное соотношение гласных и согласных букв в каждом слове предшествующему самому длинному последнему по...
Pascal Работа с файлами
Создать типизированный файл, элементами которого являются целые числа от 0 до 100 в заданном количестве. Создать новый файл в соответствии с заданием, а затем открыть его и вывести все элементы. ...
Pascal Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по траектории Вводится последовательность точек на координатной плоскости, ((0,0) признак конца последовательности). Траектория  блуждания точки из (1,0).  Определить сколько полных оборотов сделает точка вокруг... https://www.cyberforum.ru/ pascal/ thread2770534.html
Pascal Переставить чётные цифры в числе местами https://www.cyberforum.ru/ pascal/ thread2770529.html
На вход программе подается натуральное число. Нужно переставить чётные цифры в обратном порядке. Например на входе 12345678 на выходе 18365472.
Pascal Написать программу формирования вектора.
Заданы два вектора X = { xi} и Y = { yi}, i = 1 / n. Написать программу формирования третьего вектора Z = { zi }, каждый элемент которого zi = max ( xi, yi). Помогите пожалуйста.
Как получить строку из массива? Pascal
const Rims: array of string = ('M', 'CM', 'D', 'CD', 'C', 'XC', 'L', 'XL', 'X', 'IX', 'V', 'IV', 'I'); Arab: array of integer = (1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1); var ...
Pascal Функция скопировать элементы одного массива в другой Здравствуйте! Помогите решить задачу. Есть типы TIndex = 0..29; TNumbers = array of integer; Нужно написать следующую функцию function arraycopy (First : TNumbers; FirstStart : TIndex; var... https://www.cyberforum.ru/ pascal/ thread2770045.html
Pascal Сторона основания правильной шестиугольной пирамиды равна а, а высота –h. Найти площадь поверхности и объем пирамиды https://www.cyberforum.ru/ pascal/ thread2769996.html
Сторона основания правильной шестиугольной пирамиды равна а, а высота –h. Найти площадь поверхности и объем пирамиды. Помогите пожалуйста решить задачу в паскале
Pascal Найти площадь поверхности и объем пирамиды Сторона основания правильной треугольной пирамиды равна а, а высота –h. Найти площадь поверхности и объем пирамиды. Помогите решить задачу в паскале https://www.cyberforum.ru/ pascal/ thread2769851.html
Pascal вычислить значение функции при произвольных значениях параметров a, b и х https://www.cyberforum.ru/ pascal/ thread2769594.html
Помогите пожалуйста с задачей и составьте блок схему. Зараннее благодарен.Вот задача: вычислить значение функции при произвольных значениях параметров a, b и х y=y-ax^2+bx
Pascal Превратить сообщение азбуки Морза 64 символа в графическое изображение размером 8*8 здравствуйте, помогите , пожалуйста, с решением задачи : Разработать программу на языке программирования Паскаль. Превратить сообщение азбуки Морза 64 символа в графическое ... https://www.cyberforum.ru/ pascal/ thread2769186.html
0 / 0 / 0
Регистрация: 26.08.2020
Сообщений: 1
0

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

17.01.2021, 18:44. Просмотров 648. Ответов 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.
Буду благодарен за помощь

Вернуться к обсуждению:
Проблема с CharRange и IntegerRange
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
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.