Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Сколько раз в заданном тексте встречается каждый символ https://www.cyberforum.ru/ turbo-pascal/ thread277109.html
выяснить, сколько раз в заданном тексте встречается каждый символ.
Методом итераций вычислить корень уравнения вида (табл.2), расположенный на интервале [a;b], с абсолютной погрешностью  в соответствии с вариантом за Turbo Pascal
Методом итераций вычислить корень уравнения вида (табл.2), расположенный на интервале , с абсолютной погрешностью  в соответствии с вариантом задания. Определить число итераций, необходимое...
Turbo Pascal Вывести на экран слова, содержащие три буквы https://www.cyberforum.ru/ turbo-pascal/ thread277101.html
всем привет, помогите решить: Дан текст. Вывести на экран слова, содержащие три буквы. заранее спасибо))
Turbo Pascal решение нелинейных уравнений методом хорд https://www.cyberforum.ru/ turbo-pascal/ thread277097.html
1. Произвести отделение корней уравнения вида f(x)=0 на интервале . 2. Уточнить отделённые корни уравнения заданным методом. Функция Отрезок Метод Точность  ...
Работа с динамической памятью Turbo Pascal
Создать динамический массив на 10000 ячеек, заполнить случайными числами типа Real, вывести массив на экран, освободить память. Для работы обязательно использовать нетипизированные указатели, ...
Turbo Pascal Turbo Pascal. Type mismatch Здравствуйте, Задача: Определить сумму положительных элементов массива X(n), Y(m), Z(k). n≤60; m≤60; k≤70. program p2; const n=60; m=60; k=70; type mas=array of integer; https://www.cyberforum.ru/ turbo-pascal/ thread277062.html
Turbo Pascal программа работает, но есть вопрос Программа работает хорошо, но не большой вопрос нужно ли отключать и включать директиву {I-} и {I+} на месте вопросов (до rewrite и после) ? Объясните почему. пожалуйста. Program lab; uses crt;... https://www.cyberforum.ru/ turbo-pascal/ thread277058.html Зообразити на экране квадрат что двигается по периметру неподвижного треугольника и одновременно вокруг своей вершины Turbo Pascal
Зообразити на экране квадрат что двигается по периметру неподвижного треугольника и одновременно вокруг своей вершины
Turbo Pascal Функция в паскале https://www.cyberforum.ru/ turbo-pascal/ thread277053.html
Даны вершины 57 произвольных восьмиугольников, найти номер восьмиугольника с наименьшей площадью: Вот что я смог сделать, но при выполнении вылетает 207 ошибка как её исправить? Program...
Turbo Pascal Вывод в файл! Здравствуйте! вот есть написанная прога, но надо организовать чтобы можно было выводить в файл. Я все сделал, но не могу сделать чтобы выводило В ФАЙЛ процедуру ВВОДА и ВЫВОДА! Думаю поймете:... https://www.cyberforum.ru/ turbo-pascal/ thread277046.html
Turbo Pascal Методом итераций вычислить корень уравнения
Методом итераций вычислить корень уравнения вида (табл.2), расположенный на интервале , с абсолютной погрешностью  в соответствии с вариантом задания. Определить число итераций, необходимое...
Turbo Pascal Изобразить систему координат (GRAPH) Здравствуйте! помогите, если несложно... С помощью процедур и функций модуля GRAPH на экране изобразить декартовую систему координат (по осям расставить цифровые значения) и построить график X=sin... https://www.cyberforum.ru/ turbo-pascal/ thread277040.html
Модератор
63977 / 47426 / 32690
Регистрация: 18.05.2008
Сообщений: 115,062
15.04.2011, 20:56 0

Изменить регистр символа - Turbo Pascal - Ответ 1556493

15.04.2011, 20:56. Показов 11401. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено A*s*h как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function Registr(c:char):char;
begin
if c in ['A'..'Z'] then Registr:=chr(ord(c)+32)
else if c in ['a'..'z'] then Registr:=Upcase(c)
else Registr:=c;
end;
var s:string;
    i:byte;
begin
writeln('Введите строку');
readln(s);
for i:=1 to length(s) do
s[i]:=Registr(s[i]);
write(s);
end.
Добавлено через 30 секунд
Это для строки, сделай для 1 символа.

Вернуться к обсуждению:
Изменить регистр символа Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2011, 20:56
Готовые ответы и решения:

Изменить регистр символа
Измените регистр символа, если он был латинской буквой: сделайте его заглавным, если он был...

Измените регистр символа, если он был латинской буквой
Пожалуйста помогите с задачей, она должна пройти тестирование на сайте дистанционной подготовки. ...

Строки. Изменить регистр букв.
есть слово HALLAH(все буквы большие) нужно вывести это слово с большой (Hallah) это нужно зделать...

Изменить регистр символов текстовой строки
Изменить регистр символов текстовой строки на противоположный

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2011, 20:56

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Изменить регистр букв в словах, в которых есть мягкий знак
Написать программу : Изменить регистр букв в словах, в которых есть мягкий знак. Паскаль

Изменить регистр букв введенных слов
Пользователь вводит с клавиатуры несколько слов с символами в разных регистрах, разделенных...

Изменить регистр символа
Почему не работает вот этот код: var a, b, c, d:char; begin read (a); b:=('A'); ...

Изменить регистр строки, если она начинается с символа А
Здравствуйте! Нужна помощь в написании программы которая будет менять регистр строки если она...

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