Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal 1)Дана последовательность целых чисел. Создать множество из двухзначных четных чисел. (положительных и отрицательных). https://www.cyberforum.ru/ turbo-pascal/ thread295399.html 1)Дана последовательность целых чисел. Создать множество из двухзначных четных чисел. (положительных и отрицательных). 2)Дана строка: а)создать множество гласных букв входящих в строку; б)создать множество согласных букв не входящих в строку; 3)Даны числа Х1 и Х2. Для каждого из чисел создать множество цифр входящих в данное число, найти: а)обьединение; б)пересечение этих множеств;...	Turbo Pascal Формулы, числа и т.д известных людей и варианты написания программ для них. Штудирование математики и нахождения формул типа числа Фибоначчи, формула Герона и т.д натолкнула на мысль, а если бы взять все формулы и написать для них программы. Вообщем выкладываем свои варианты, разные формулы и т.д Вот моя програма для вычисления чисел Фибоначчи Var a:array of double; i:byte; begin a:=0; a:=1; for i:=2 to 200 do begin a:=a+a;
Turbo Pascal Перемещение запятой (Pascal) https://www.cyberforum.ru/ turbo-pascal/ thread295389.html Программа переводит из 10 сс в 8(это делать не нужно :)). Число (например, 113,546) представленное в 8 СС надо представить в виде 0,мантисса*порядок (выражающего степень основания числа, на которое умножается мантисса). (соответственно, 0,113546000Е+03) const a: string = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; {zadaem stroky dlya poiska v nei simvolov} var r,rez, s, s2, s3: string; d,...	Turbo Pascal Удалить из файла все однобуквенные слова и лишние пробелы. Результат записать в файл g. Типизированные файлы https://www.cyberforum.ru/ turbo-pascal/ thread295383.html Дан символьный файл f . Группы символов,разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами. Удалить из файла все однобуквенные слова и лишние пробелы. Результат записать в файл g. Типизированные файлы Помогите, плз!:(
Выполнить пятикратное сглаживание данного массива A размера N, выводя на экран результаты каждого сглаживания. Turbo Pascal Описать процедуру Smooth (A,N) заменяюшую каждый элемент вещественного массива A размера N на его среднее арифметическое со своими соседями("сглаживание массива"). С помощью этой процедуры выполнить пятикратное сглаживание данного массива A размера N, выводя на экран результаты каждого сглаживания. Помогите пожалуйста, очень нужно!!:(	Turbo Pascal Определить и вывести на экран индексы символов https://www.cyberforum.ru/ turbo-pascal/ thread295353.html Дан массив, состоящий из 10 символов. Определить и вывести на экран индексы символов, равных первому символу. Вот, начал: var a:array of integer; i:integer; begin randomize; for i:=1 to 10 do begin a:=random(9); write (a:2);
Turbo Pascal записи, немогу сообразить) Описать запись с именем Aeroflot содержащая поля: -названия пункта назначения рейса -номер рейса -тип самолета Написать программу выполняющую: -ввод с клавиатуры данных в массив состоящую из семи элементов типа Aeroflot; запись упорядочить по возростанию номера рейса -вывод на экран номера рейсов и типов самолетов, вылетающих из пункта назначения, названия которого совпало с названием... https://www.cyberforum.ru/ turbo-pascal/ thread295350.html	Записать в массив буквы в алфавитном порядке Turbo Pascal помогите решить часть задачи для решения её целиком как массив заполнить буквами латинского алфавита от А до Z? Спасибо!
Turbo Pascal Создать программку.Дана последовательность действительных чисел а1, а2, ..., аn. Вычислить, будет ли она возрастающей. https://www.cyberforum.ru/ turbo-pascal/ thread295319.html Дана последовательность действительных чисел а1, а2, ..., аn. Вычислить, будет ли она убывающей.	Turbo Pascal Считывания текста из файла. https://www.cyberforum.ru/ turbo-pascal/ thread295315.html Помогите написать программу считывающую текст из файла и выводит его на экран меняя местами каждые 2 соседних элемента. Заранее спасибо!
Слова в порядке возрастания количества букв Turbo Pascal Дано произвольное предложение. Слова в нем разделены пробелами, а после последнего-точка. Вывести на экран слова в порядке возрастания количества букв в них.	Turbo Pascal Дан модуль https://www.cyberforum.ru/ turbo-pascal/ thread295306.html

KaiTheCat

К.О.

534 / 499 / 344

Регистрация: 26.03.2011

Сообщений: 1,141

14.05.2011, 16:34

Ввести любой символ и определить его порядковый номер - Turbo Pascal - Ответ 1648724

14.05.2011, 16:34. Показов 1747. Ответов 1

Метки (Все метки)

Ответ

Pascal

1 2	writeln('предыдущий: ', s[n-1]); Writeln('Следующий: ', s[n+1]);

А точно определить порядковый номер в строке? Вроде в задаче про нее ничего не сказано.

Добавлено через 14 минут
по мне дак они хотели это:

Pascal

 var
  ch: char;
  n: integer;
Begin
  write('введите символ: ');
  readln(ch);
  n:=ord(ch);
  writeln('порядковый номер: ',n);
  writeln('предыдущий: ',chr(n-1));
  writeln('следующий: ',chr(n+1));
  readln
End.

Вернуться к обсуждению:
Ввести любой символ и определить его порядковый номер Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.05.2011, 16:34

Готовые ответы и решения:

Ввести любой символ и определить его порядковый номер, а также указать предыдущий и последующий символы
Ввести любой символ и определить его порядковый номер, а также указать предыдущий и последующий...

Вывести любой символ, определить его порядковый номер и указать его предыдущий и последний символы
1.2)вывести любой символ , определить его порядковый номер и указать его предыдущий и последний...

Как получить символ из строки зная его порядковый номер?
AnsiString chr = "ÉÖÓÊÅÍÃØÙÇÕÚÔÛÂÀÏÐÎËÄÆÝß×ÑÌÈÒÜÁÞ.,7418529630 "; // 012...

Ввести n чисел. Определить порядковый номер числа 10
Ввести n чисел. Определить порядковый номер числа 10.

	14.05.2011, 16:34

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.05.2011, 16:34

Помогаю со студенческими работами здесь

Определить символ,порядковый номер которого соответствует введенному числу.
Помогите пожалуйста решить задачку: Ввести любое целое двухзначное число. Определить...

Определить символ,порядковый номер которого соответствует введенному числу.
Помогите пожалуйста решить задачку! думаю-думаю...ничего не понятно%-) завтра сдавать надо:( ...

Осуществить ввод последовательности целых чисел,определить максимальное четное число,его порядковый номер и подсчитать сумму его цифр. C#
Осуществить ввод последовательности целых чисел,определить максимальное четное число,его порядковый...

Определить минимальный элемент массива С(К) и его порядковый номер
Определить минимальный элемент массива С(К), -1\leq {C}_{i} \leq 1, K\leq 20 и его порядковый...

Наверх