Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Массив. В массиве из 10 целых чисел найти максимальный элемент и поменять его местами с третьим элементом. https://www.cyberforum.ru/ turbo-pascal/ thread410329.html
В массиве из 10 целых чисел найти максимальный элемент и поменять его местами с третьим элементом.
Turbo Pascal Описать запись с именем sotrudnik, содержащую следующие поля
Помогите написать программу: 1.Описать запись с именем sotrudnik, содержащую следующие поля: - фамилия, имя сотрудника; - стаж работы; - возраст; - пол; 2. Написать программу выполняющую следующие действия: - ввод данных с клавиатуры в массив, состоящий из восьми элементов типа sotrudnik, записи должны быть упорядочены в порядке убывания рабочего стажа; - вывод на экран информации о...
Turbo Pascal Сгенерировать последовательность 100 случайных чисел Х. Сформировать новую последовательность, состоящую из элементов yi=yi-1+xi (y1=x1). Для получен https://www.cyberforum.ru/ turbo-pascal/ thread410321.html
Сгенерировать последовательность 100 случайных чисел Х. Сформировать новую последовательность, состоящую из элементов yi=yi-1+xi (y1=x1). Для полученной последовательности вычислить среднее значение, дисперсию и вывести ее на печать в виде гистограммы. Разделив диапазон на 10 интервалов. Добавлено через 4 часа 4 минуты все не надо я сам сделал!
Turbo Pascal Пройдет ли прямоугольный брусок со сторонами а, b, c в круглое отверстие радиусом R? https://www.cyberforum.ru/ turbo-pascal/ thread410317.html
Здравствуйте! Помогите пожалуйста ламеру с задачкой! Пройдет ли прямоугольный брусок со сторонами а,b,c в круглое отверстие радиусом R? Вообще не понимаю как эту задачу решить..(((
Задача про периметр и площадь треугольника Turbo Pascal
Здравствуйте! Помогите пожалуйста ламеру с задачкой! Треугольник задан координатами своих вершин. Найти а) периметр треугольника б) площадь треугольника.
Turbo Pascal Посчитать количество слов, начинающихся с буквы b https://www.cyberforum.ru/ turbo-pascal/ thread410297.html
Дана строка, содежащая английский текст. Посчитать кол-во слов, НАЧИНАЮЩИХСЯ с буквы b. Буду очень благодарна, если вы решите эту задачу.... у меня получается только просто посчитать сколько букв b в этой строке, а мне нужно только кол-во слов начишающихся с b
Turbo Pascal Помогите решить 1)Пастбище представляет собой прямоугольник, разбитый на N x N клеток. В каждой клетке растет трава, имеющая свою калорийность (во всех клетках калорийность травы разная). В левой нижней клетке стоит корова Мурка. Съев всю траву в своей клетке, она перемещается на одну клетку вправо или на одну клетку вверх, всегда выбирая ту из клеток, калорийность травы в которой больше (за пределами поля трава... https://www.cyberforum.ru/ turbo-pascal/ thread410296.html Turbo Pascal Найти сумму и количество всех чисел последовательности
Дана непустая последовательность целых чисел оканчивающаяся нулем. Найти сумму всех чисел последовательности и кол-во чисел в этой
Turbo Pascal Работа со списком. Доброго времени суток! Помогите, пожалуйста, написать программку... Задается некоторая последовательность чисел. В памяти последовательность хранится в виде списка. Найти в списке элементов наименьший и поменять его с L-м элементом последовательности. Последовательность сохраняется в файле. Результаты обработки и исходящий список вывести на экран. L-й элемент, как я понимаю, элемент... https://www.cyberforum.ru/ turbo-pascal/ thread410256.html Turbo Pascal Интерполяция разработать программу для интерполяции табличных данных с помощью полинома ньютона. ребят,помогите!) https://www.cyberforum.ru/ turbo-pascal/ thread410224.html
Turbo Pascal Записи исправьте ошибку
Помогите с задачкой: Описать структуру с именем NOTE, содержащую следующие поля: • фамилия, имя; • номер телефона; • дата рождения (массив из трех чисел). Написать программу, выполняющую следующие действия: • ввод с клавиатуры данных в массив, состоящий из восьми элементов типа NOTE; • упорядочение массива по алфавиту;
Turbo Pascal Работа с типизированными файлами Создать файл записей, содержащий данные о книгах. Данные о каждой книге-это фамилия автора название книги и год издания Определить есть ли книга с названием "Информатика", если есть, то сообщить фамилию автора и год издания. Есть код программы сделан через Записи. Помогите пожалуйста. uses crt; type book=record fam:string; god:integer; nazv:string; end; var x:array of book; i,n:integer; https://www.cyberforum.ru/ turbo-pascal/ thread410176.html
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
18.12.2011, 13:32 0

Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные. - Turbo Pascal - Ответ 2298811

18.12.2011, 13:32. Показов 2140. Ответов 3
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var s: string;
    i: integer;
begin
write('Ф.И.О. ');
readln(s);
for i:=1 to length(s) do
    if s[i]='ё' then s[i]:='Ё'
       else
       if ((ord(s[i])>96) and (ord(s[i])<123))
          or  ((ord(s[i])>223) and (ord(s[i])<=255))
              then s[i]:=chr(ord(s[i])-32);
write('Ф.И.О. ',s);
readkey
end.


Вернуться к обсуждению:
Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные. Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2011, 13:32
Готовые ответы и решения:

Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные
Разработайте алгоритм программы, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы...

Разработайте программу, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на прописные
Разработайте программу, которая считывает с клавиатуры Ф.И.О. и заменяет строчные буквы на...

Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и русские) в прописные, а прописные — в строчные
Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и русские) в прописные, а...

Описать процедуру UpCase(S) (LowCase(S)), преобразующую все строчные (прописные) буквы строки S в прописные (строчные)
Описать процедуру UpCase(S) (LowCase(S)), преобразующую все строчные (прописные) буквы строки S в...

3
18.12.2011, 13:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2011, 13:32
Помогаю со студенческими работами здесь

Дана строка. Преобразовать в ней все строчные буквы в прописные, а прописные - в строчные
Помогите решить.....Дана строка. Преобразовать в ней все строчные буквы (как латинские, так и...

Программа меняет все строчные буквы на прописные, а прописные на строчные.
как написать программу,чтоб набор языка был русским? Программа меняет все строчные буквы на...

Файлы. Поменяйте строчные буквы на прописные, а прописные на строчные
7 Файлы:9. Дан файл, состоящий из букв латинского алфавита и специальных символов. Поме-няйте...

Написать программу, которая заменяет в тексте созданного файла все заглавные буквы строчными, а строчные – заглавными.
Написать программу, которая заменяет в тексте созданного файла все заглавные буквы строчными, а...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru