Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Составьте таблицу процедур и функций Turbo Pascal, обрабатывающих данные типа CHAR и STRING https://www.cyberforum.ru/ turbo-pascal/ thread1031803.html
Составьте таблицу процедур и функций Turbo Pascal, обрабатывающих данные типа CHAR и STRING.
Вычислить количество цифр заданного натурального числа n Turbo Pascal
Написать программу с рекурсивной функцией, вычисляющей количество цифр заданного натурального числа n.
Turbo Pascal сортировка
В одномерном массиве упорядочить нечетные элементы, оставив четные на местах. Сортировка прямой выбор.
Turbo Pascal строки Дана строка, состоящая из латинских слов, разделенных пробелами. Определить количество слов в строке. https://www.cyberforum.ru/ turbo-pascal/ thread1031793.html
Turbo Pascal Составте пожалуйста программы, которые: https://www.cyberforum.ru/ turbo-pascal/ thread1031766.html
а) определяет кол-во появлений буквы А в файле б) заменяет букву А на * в файле в) стирает из файла букву В
Turbo Pascal Сумма элементов, кратных заданному числу и попавших в интервал [a,b]
Помогите решить
Закрасить фигуры Turbo Pascal
Привет форумчане! Никак не могу понять, как мне закрасить треугольники, образующие ёлочку? Помогите, пожалуйста, при попытке закрасить, красятся не треугольники, а окно, где они расположены. {Made...
Turbo Pascal Найти количество четных Найти количество четных элементов в последовательности 1!+2!+3!+4!+..+..+n https://www.cyberforum.ru/ turbo-pascal/ thread1031749.html
Turbo Pascal Найти сумму элементов матрицы https://www.cyberforum.ru/ turbo-pascal/ thread1031748.html
Найти сумму элементов матрицы B(20x20), расположенных над главной диагональю.Определить кол-во положительных и отрицательных элементов этой матрицы .
Turbo Pascal Определить сумму всех четных элементов массива A(3,3) ,имеющих четные номера. Определить сумму всех четных элементов массива A(3,3) ,имеющих четные номера. https://www.cyberforum.ru/ turbo-pascal/ thread1031743.html
27 / 27 / 39
Регистрация: 16.11.2013
Сообщений: 64
07.12.2013, 13:39 0

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

07.12.2013, 13:39. Показов 1138. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a,s,w:string;
    i,j:integer;
begin
readln(a);
i:=0; j:=1;
s:=''; w:='';
while i<ord(a[0]) do
begin
while (a[j]<>' ') and (j<=ord(a[0])) do
begin
s:=s+a[j];
inc(j);
end;
if a[j]=' ' then begin inc(j); inc(i); end;
if s<>'' then begin s[1]:=upcase(s[1]); w:=w+s+' '; end;
i:=i+ord(s[0]);
s:='';
end;
writeln(w);
end.
Но ведь функция upcase работает только для латинских букв. Можно ли использовать эту функцию для решения этой задачи?

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

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

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

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

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

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