Вопрос № 78057: 1)Составить и отладить программу для обработки текстовой и графической информации.
Задание:
Выписать из заданого текста все слова, длина которых превышает 7 символов.
2)Организовать и отладить программу с использованием функций.
..Вопрос № 78058: Организовать и отладить программу с использованием процедур.
Задание:
Составить алгоритм для нахождения наименьших элементов матриц A[10,12], B[15,10], C[8,10] и номеров строк и столбцов, в которых они находятся.
Сделайте пожалуйста ...
Вопрос № 78.057
1)Составить и отладить программу для обработки текстовой и графической информации.
Задание:
Выписать из заданого текста все слова, длина которых превышает 7 символов.
2)Организовать и отладить программу с использованием функций.
Задание: M=(c!+(a-b)!)/((a+c)!-8!)
Сделайте пожалуйста подробнее.
Отправлен: 13.03.2007, 07:43
Вопрос задал: Soft2 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Яна
Здравствуйте, Soft2!
var s:string;
i, k, l, j:integer;
t:boolean;
begin
readln(s);
for i:=1 to length(s)-7 do
begin
if s[i]=" " then
begin
t:=true;
for j:=1 to7 do
if s[i+j]=" " then t:=false;
if t then
begin
k:= i+1;
while s[k]<>" " do
begin
write s[k];
k:=k+1;
end;
writeln;
end;
end;
end.
Во второй задаче нужно определить функцию, которая вычисляет факториал и вызвать ее по формуле в тексте программы.
Ответ отправила: Яна (статус: Студент)
Ответ отправлен: 13.03.2007, 09:46
Отвечает: Bingo
Здравствуйте, Soft2!
Раз уж Вы просили поподробнее, то помогу Вам со второй задачей (с первой, кажется, разобрались).
Сама программа находится в приложении, в основе которой, как уже говорили, лежит функция нахождения факториала. Существует много способов ее реализации, но этот способ, как я думаю, будет более Вам понятен. Единственное, что хочу сказать, в программу включается сопроцессор(если у Вас Borland или Turbo), но аргументы функции должны быть меньше 21, хотя для хранения значений функции используются такие типы как Comp, Int64, которые включаю промежутки от -2^63...2^63 -1. Если же необходимо использовать числа большей
величины, то нужно уже браться за длинную арифметику, но, к сожалению, диапазон значения входных парамеров Вы не указывали.
Удачи!
Приложение:
--------- C темным пивом в светлое будущее!
Ответ отправил: Bingo (статус: 2-ой класс)
Ответ отправлен: 13.03.2007, 18:59
Вопрос № 78.058
Организовать и отладить программу с использованием процедур.
Задание:
Составить алгоритм для нахождения наименьших элементов матриц A[10,12], B[15,10], C[8,10] и номеров строк и столбцов, в которых они находятся.
Сделайте пожалуйста подробнее.
Отправлен: 13.03.2007, 07:44
Вопрос задал: Soft2 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Яна
Здравствуйте, Soft2!
Нужно сделать процедуру, которая по матрице считает наибольший элемент и номера строк и столбцов, в которых он находится.
И записывает это в переменные, которые передаются по ссылке. Тогда в основной программе Вы сможете считать значения этих переменных.
Ответ отправила: Яна (статус: Студент)
Ответ отправлен: 13.03.2007, 09:49
Отвечает: Bingo
Здравствуйте, Soft2!
В этой программе будем использовать процедуру нахождения минимального числа:
Здесь: a,b,c - массивы;m,n - размеры двумерных массивов min - минимальное значение col - номер столбца с минимальным числом r - номер строки с минимальным числом.
type mas=array[1..15,1..12]of longint;
var a,b,c:mas;i,j,m,n,r,col,min:longint;
procedure findmin(a:mas;var r,col,min:longint);
var i,j:longint;
begin
min:=maxlongint;
for i:=1 to m do begin
for j:=1 to n do begin
if a[i,j]<m then begin min:=a[i,j];r:=i;col:=j;end;
end;end;
end;
begin
readln(m,n);
//...здесь читаем какие-нибудь входные данные....
findmin(a,r,col,min);
writeln(min,' ',r,' ',col);
//и так для каждого массива...
end.
--------- C темным пивом в светлое будущее!
Ответ отправил: Bingo (статус: 2-ой класс)
Ответ отправлен: 13.03.2007, 19:23
