Вопрос № 89573: Никак не могу решить задачу в паскале. а надо срочно.
Пусть Дана вещественная матрица n x m. Получить последовательность b1, ... , bn , где bn - это сумма наибольшего и наименьшего из значений элементов n-ой строки. Не поможите???...Вопрос № 89589: Помогите пожалуйста с решением задачи:
"Пусть задано десять русских имен. Проверьте, все ли эти имена написаны с прописной буквы, если нет, то исправьте ситуацию"...Вопрос № 89603: Здравствуйте уважаемые эксперты!
Мне нужна помощь в исправлении моей задачи.
Условие такое:
Пусть дан текст. Распечатайте те буквы, которые встречаются в каждом слове текста только один раз.
Моя программа делает вот что - Проверив пер...Вопрос № 89614: помогите с решением у меня через процедуру выходит, а вот с функцией напряг.
Напишите функцию RightPosition, которая получает два параметра str1 и str2, типа string и возвращает позицию начала последнего появления str2 в str1. Например, RightPosi...
Вопрос № 89.573
Никак не могу решить задачу в паскале. а надо срочно.
Пусть Дана вещественная матрица n x m. Получить последовательность b1, ... , bn , где bn - это сумма наибольшего и наименьшего из значений элементов n-ой строки. Не поможите???
Отправлен: 01.06.2007, 12:06
Вопрос задал: Рус Максим (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Yadovit
Здравствуйте, Максим!
Вы не туда вопрос задали :)
Вот что смог сделать. Вроде то, что вам нужно.
Приложение:
Ответ отправил: Yadovit (статус: 6-ой класс)
Ответ отправлен: 01.06.2007, 12:33
Вопрос № 89.589
Помогите пожалуйста с решением задачи:
"Пусть задано десять русских имен. Проверьте, все ли эти имена написаны с прописной буквы, если нет, то исправьте ситуацию"
Отправлен: 01.06.2007, 13:58
Вопрос задал: Les (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Сухомлин Кирилл Владимирович
Здравствуйте, Les!
Считаем, что имена записаны в массиве names.
Их ввод обеспечите сами. var
names: array[1..10] of string;
i: integer;
BEGIN
for i := 1 to 10 do
if (s[i][1] in ['а'..'я']) then
s[i][1] := Chr(Ord(s[i][1]) + (Ord('А')–Ord('а')));
END. --------- Не узнаешь - не попробуешь.
Отвечает: Градов Юрий Михайлович
Здравствуйте, Les!
Ответ удален, по одной из указанных причин:
- пустой;
- неверный;
- вредный;
- не соответствует вопросу
и помещен для обсуждения в ветку форума "О деятельности экспертов и работе портала/Удаленные ответы для обсуждения".
Ответ не верный поскольку функция UpCase - преобразовывает символьные значения в верхний регистр только для тех, которые находятся в диапазоне ['a' .. 'z'], остаются не изменяются.
-~= Gh0stik =~-
--------- Глаза боятся - руки делают!
Ответ отправил: Градов Юрий Михайлович (статус: 9-ый класс)
Ответ отправлен: 01.06.2007, 14:45
Program Name;
Uses Crt;
Const
Small = [' '..'п'];
Var
Mas : Array[1..10] of string;
i : Integer;
Buf : String;
Begin
Clrscr;
For i:=1 to 10 do
Begin
Write('Введите ',i,'-е имя --> ');
ReadLn(Mas[i]);
End;
For i:=1 to 10 do
Begin
Buf := Mas[i];
If Buf[1] in Small
Then
Buf[1] := Chr(Ord(Buf[1])-32);
Mas[i] := Buf;
End;
WriteLn('Результат');
For i:=1 to 10 do
WriteLn(Mas[i]);
Readkey;
End.
--------- Это круто - машина состояний с бесконечным циклом
Здравствуйте уважаемые эксперты!
Мне нужна помощь в исправлении моей задачи.
Условие такое:
Пусть дан текст. Распечатайте те буквы, которые встречаются в каждом слове текста только один раз.
Моя программа делает вот что - Проверив первое слово в предложении, она выписывает буквы, которые
встречаются в этом слове по одному разу. Проверяя следущее слово она не пишет буквы которые встречаются
в этом слове так как они есть в результате проверки первого слова.
Например:
перемещение треугольника можно
Результат:
п м щ т у г о л ь к а ж
Адолжно быть так:
п р м щ н и т р е у г о л ь н и к а м ж н
Помогите исправить.
Приложение:
Отправлен: 01.06.2007, 15:21
Вопрос задал: Eisenheim (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Градов Юрий Михайлович
Здравствуйте, Бураменский Максим Александрович!
У Вас небольш. ошибочка: п р м щ н и т р е у г о л ь н и к а м ж н - 2 м,2 н,2 р, 2и
(Ответ -п е р м щ н и т у г о л ь к а ж). Ниже код.
С ув. Ю.Михалыч
Приложение:
--------- Глаза боятся - руки делают!
Ответ отправил: Градов Юрий Михайлович (статус: 9-ый класс)
Ответ отправлен: 01.06.2007, 16:32 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное! Вы настоящий эксперт!
Отвечает: Shapoklak
Здравствуйте, Бураменский Максим Александрович!
Теперь по словам проверяет.
Приложение:
Ответ отправила: Shapoklak (статус: Академик) Россия, Орск Организация: школа Адрес: www.school56orsk.narod.ru WWW:компьютерные фирмы г. Орска ICQ: 101137510 ---- Ответ отправлен: 01.06.2007, 19:18
Вопрос № 89.614
помогите с решением у меня через процедуру выходит, а вот с функцией напряг.
Напишите функцию RightPosition, которая получает два параметра str1 и str2, типа string и возвращает позицию начала последнего появления str2 в str1. Например, RightPosition ("Миссисипи" , "си") дает значение 6.
Отвечает: Ерёмин Андрей
Здравствуйте, Артем Фурдыга!
См. код функции в приложении. В данном случае удобно осуществлять поиск с конца строки, а не с начала. Пример вызова: StrRPos('си','Миссисипи');
Приложение:
--------- Нет правила без исключений. Правило без исключений - исключение из правил.
Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW:Программирование на DELPHI ---- Ответ отправлен: 01.06.2007, 17:04 Оценка за ответ: 5 Комментарий оценки: Спасибо, я что-то совсем зпутался,без помощи бы неразобрался.
Отвечает: Gh0stik
Здравствуйте, Артем Фурдыга!
В приложении смотрите код. Вызов процедуры происходит как Вы и просили в виде RightPosition (str1,str2).
function RightPosition(str1,str2:string):integer;
var k:integer;
begin
k:=length(str1);
if pos(str2,str1)=0 then begin RightPosition:=0;exit;end;
while pos(str2,str1)<>0 do
begin
{ str1:=copy(str1,pos(str2,str1)+length(str2),length(str1));} {можно использовать функцию copy()}
delete(str1,1,pos(str2,str1)+length(str2)-1); {либо delete(), какая Вам больше нравиться}
end;
RightPosition:=k-length(str1)-1;
end;
begin
writeln(RightPosition('Missisipi','1si'));
end.
Good LUck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 01.06.2007, 17:12 Оценка за ответ: 5 Комментарий оценки: спасибо огромное
