Вопрос № 107856: Посчитать кол-во слов файл ,в которых присутствует буквы \'a\',\'o\',\'i\'. ...Вопрос № 107858: JОпределить номер столбца массива,сумма элементов которого максимальна...
Вопрос № 107.856
Посчитать кол-во слов файл ,в которых присутствует буквы \'a\',\'o\',\'i\'.
Отвечает: Boriss
Здравствуйте, Крацонко Сергей Иванович!
Мой вариант решения в приложении.
Задачу я разбил на две подзадачи, каждую из которых решает отдельная функция:
1) ищем отдельные слова в строке символов, которую считываем из файла.
Имя файла задется константой FileName.
2) определяем, имеется в найденном слове хотя бы одна буква из заданного набора
--
Комментарии в файле есть. Будут вопросы - спрашивай в минифоруме
Приложение:
--------- Вывод - то место в тексте, где вы устали думать
Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: mte WWW:Программирование на Паскале ---- Ответ отправлен: 06.11.2007, 11:28
Вопрос № 107.858
JОпределить номер столбца массива,сумма элементов которого максимальна
Отвечает: Витек
Здравствуйте, Крацонко Сергей Иванович!
var
mas:array [1..100,1..100] of integer;
sum,ss,num:integer;//сумма, сумма большая, номер столбца
i,j,strk,stlb:integer;//индексы, чмсло строк и столбцов
begin
write('Ukagite rasmer massiva: ');
readln(strk,stlb);
randomize;
for i:=1 to strk do
for j:=1 to stlb do
mas[i,j]:=random(100);//заполняю случайно
ss:=0;
num:=1;
for i:=1 to stlb do
begin
sum:=0;
for j:=1 to strk do
sum:=sum+mas[i,j];
//writeln(sum);
if sum>ss then
begin
sum:=sum xor ss;
ss:=sum xor ss;
sum:=sum xor ss;
num:=i;
end;
end;
for i:=1 to strk do
begin
for j:=1 to stlb do
write(mas[i,j]:6);
writeln;
end;
write('Stolbec ¹ ',num);
readln;
end.
--------- ohne fleis, keine preis
Ответ отправил: Витек (статус: 3-ий класс)
Ответ отправлен: 03.11.2007, 12:12
Отвечает: Denisss
Здравствуйте, Крацонко Сергей Иванович!
См. пример в приложении. Все комментарии там же.
Удачи!
Приложение:
--------- Будь осторожен, когда молишься ради чего-то, потому что можешь это получить...
Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ---- Ответ отправлен: 03.11.2007, 12:13 Оценка за ответ: 5
Отвечает: Djec
Здравствуйте, Крацонко Сергей Иванович!
В приложении готовая программа
Приложение:
--------- Никогда не сдавайся, даже если боишься проиграть
Ответ отправил: Djec (статус: 4-ый класс)
Ответ отправлен: 03.11.2007, 14:08
Отвечает: Артём1983
Здравствуйте, Крацонко Сергей Иванович!
Чуть не ошибся. Вначале нашёл строку, сумма элементов которого максимальна.
Для Вас же правильное решение. (не единственное)
Приложение:
--------- Программирование - дело Путное!
Ответ отправил: Артём1983 (статус: 6-ой класс)
Ответ отправлен: 03.11.2007, 15:49 Оценка за ответ: 4
