Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Найти координаты точек пересечения прямой и окружности https://www.cyberforum.ru/ pascalabc/ thread231785.html Найти координаты точек пересечения у=kx+b и окружности радиус R, с центром в начале координат. В каких координатных четвертях находятся точки пересечения?Если точек пересечения нет или прямая касается окружности выдать соответствующее сообщение. Пожалуйста помогите, надо сдавать а я не в зуб ногой(((	Pascal ABC Составление логических выражений Составить линейную программу, печатающую значение 1,если указанное высказывание является истинным, и о-в противном случае. Высказывание: Точка с координатами(х,у) принадлежит треугольнику,заданному координатами своих вершин. Пожалуйста, если кто-то может помогите)
Pascal ABC Цикл с параметром https://www.cyberforum.ru/ pascalabc/ thread231777.html Некто взял в банке величиной Aрублей под B% годовых. Ежегодно заемщик вносит платежи в счет ссуды в С рублях. Написать программу определяющую, через сколько лет будет погашена ссуда, и сумму денег, выплаченных заемщиком банку. Помогите пожалуйста решить задачку	Pascal ABC Всё те же множества 1. Пусть дан массив типа char (состоящий из произвольных символов). Подсчитать в нем общее число цифр и знаков "+" и "–". 2. Дан текст из малых латинских букв. Напечатать первые вхождения букв в текст, сохраняя их исходный взаимный порядок. 3. Дан текст из цифр и малых латинских букв. Определить, каких букв – гласных (a,e,i,o,u) или согласных – больше в этом тексте. https://www.cyberforum.ru/ pascalabc/ thread231734.html
Pascal ABC написать в комментах обозначения функций я пару обозначил (ввод и выводы я знаю конечно), если не сложно обозначения тоже(типа kolsl(это наверное кол-во строк)) uses crt; const lat=; var s,temp:string;i,j:byte; function kolsl(s:string):byte; var b,i:byte; begin b:=0;	Pascal ABC Сложение и умножение матриц https://www.cyberforum.ru/ pascalabc/ thread231641.html действие над матрицами A B (2ab-a)*(ab-b)
Pascal ABC Обнулить столбцы матрицы в которых стоят минимальные элементы Помогите пожалуйста решить задачу пропустил тему и не представляю прост как решить Задача A обнулить столбцы в которых стоят минимальные элементы массива. 1) как понять обнулить столбцы если логически подумать то в каждом столбце по строке будет минимальный элемент не все же столбцы обнулять 2) обнулить я так понял эт место числа минимального поставить значение "0" 3) или сдвигать... https://www.cyberforum.ru/ pascalabc/ thread231636.html	Pascal ABC Вычислить сумму вычислить сумму n i ∑ 1/2 i=1
Pascal ABC Определить, при каком значении x, sin (x) станет больше cos (x) https://www.cyberforum.ru/ pascalabc/ thread231629.html изменяя x от a с шагом h,определить,при каком значении x, sin(x) станет больше cos(x)	Pascal ABC Найти знакопеременную сумму цифр данного натурально числа n найти знакопеременную сумму цифр данного натурально числа n https://www.cyberforum.ru/ pascalabc/ thread231628.html
Pascal ABC Обьем шарового сектора Помогите решить задачу,желательно обьяснить что к чему. Необходимо найти обьем шарового сектора.	Pascal ABC написать код..срочно.. 1. Дана квадратная область. На области размещены города, каждый из которых имеет название, координаты расположения. Города имеют между собой дороги с односторонним движением. Для заданного города-«источника» и города-«получателя» определить и отобразить маршрут с наименьшей длиной. Предусмотреть возможные добавления и удаления дорог и городов. 2. Дана окружность, представляющая собой кольцевую... https://www.cyberforum.ru/ pascalabc/ thread231520.html

Puporev

Почетный модератор

64291 / 47589 / 32740

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

Сообщений: 115,181

21.01.2011, 09:07

Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы - Pascal ABC - Ответ 1305206

21.01.2011, 09:07. Показов 2158. Ответов 1

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

Сообщение было отмечено Памирыч как решение

Решение

Pascal

uses crt;
var s:string;
    i:byte;
begin
writeln('Введите предложение из символов латинского алфавита');
writeln('перед началом слова пробел');
readln(s);
if s[1] in ['a'..'z'] then s[1]:=Upcase(s[1]);/если первая буква маленькая
for i:=2 to length(s) do  //остальная строка
//если маленькая, а перед ней пробел
if(s[i] in ['a'..'z'])and(s[i-1]=' ') then s[i]:=Upcase(s[i]);
write(s);
end.

Вернуться к обсуждению:
Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы Pascal ABC

Programming

Эксперт

94731 / 64177 / 26122

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

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

21.01.2011, 09:07

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

Строки. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы
IX.Символы и строки 28. Дана строка-предложение на русском языке. Преобразовать строку так, чтобы...

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

21.01.2011, 09:07

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

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

Преобразовать строку так, чтобы каждое слово было отражено зеркально
Дана строка, состоящая из слов. Преобразовать строку так, чтобы каждое слово было отражено...

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

Преобразовать строку, заменяя каждое слово 'this' словом 'the'
program l666; const w1='this'; w2='the'; var i:byte; function get_word(s:string ; var...

Наверх