Вопрос № 117913: Здравствуйте. помогите написать программу по следующему условию: Дана матрица А(10,10). Найти минимальный элемент в каждой строке матрицы, выводя на печать значение этого элемента и номер строки. матрицы...Вопрос № 117940: Помогите с 3 задачами.
1)Место жительстка: Ф,И,О, №кв,№дом, улица, город. Распечатать адреса граждан, проживающих в заданом городе, на заданой улице
2 b 3) и вот на этом рисунке еще 2
http://ipicture.ru/uploads/080110/uXyKHpxZyL.JPG
Н...Вопрос № 117964: Приветствую Вас, уважаемые эксперты! Мне очень нужна ваша помощь!Решите пожалуйста несколько задач. 1. Дана целочисленная квадратная матрица.Определить: 1)Произведение элементов в тех строках, которые не содержат отрицательных элементов (Оформить в в...Вопрос № 118056: Доброго времени суток, уважаемые эксперты!
Необходимо решить задачку:
Вычислить среднее геометрическое значений массива. Массив заполняется через random().
Заранее спасибо!!!...
Вопрос № 117.913
Здравствуйте. помогите написать программу по следующему условию: Дана матрица А(10,10). Найти минимальный элемент в каждой строке матрицы, выводя на печать значение этого элемента и номер строки. матрицы
Отправлен: 11.01.2008, 04:07
Вопрос задала: Leka2008 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Kroco
Здравствуйте, Leka2008!
Если я правильно понял, то можно решить так. Я принял, что имеется файл, состоящий из 10 строк в каждой из которых 10 элементов. Надо в каждой строке найти минимальный и вывести его (я выводил во второй файл, но легко можно вывести куда угодно) в паре с номером строки, где он находится.
program Matrix;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f,f1: TextFile;
i, k: byte;
j,j1: integer; //поменять тип на соответствующий, если элементы не числа
// например если матрица из символов, использовать тип char
begin
//связать переменные f,f1 с нужными файлами
//например
AssignFile(f,'input.txt');
AssignFile(f1,'output.txt');
//Открыть файлы
Reset(f); Rewrite(f1);
for i:=1 to 10 do
begin
for k:=1 to 10 do
begin
Read(f,j1);
if k=1 then j:=j1;
if j1<j then j:=j1;
end;
WriteLn(f1,'Nomer stroki: ',i,' Zna4enie: ',j)
end;
//закрыть файлы, если они использовались
CloseFile(f);
CloseFile(f1);
end.
Ответ отправил: Kroco (статус: 1-ый класс)
Ответ отправлен: 11.01.2008, 05:25
Вопрос № 117.940
Помогите с 3 задачами.
1)Место жительстка: Ф,И,О, №кв,№дом, улица, город. Распечатать адреса граждан, проживающих в заданом городе, на заданой улице
2 b 3) и вот на этом рисунке еще 2
http://ipicture.ru/uploads/080110/uXyKHpxZyL.JPG
Нужно срочно сделать тока если можно напишите полное решение задач (я плохо понимаю программирование!).
Спасибо.
Отвечает: Boriss
Здравствуйте, Петров Алексей Владимирович!
Вот так можно решить первую. Файл находится в прикрепленном файле.
Сильно не тестировал (так, на общие ошибки) - если что не будет работать, напишите в минофоруме
Описывать нет времени - лучше спрашивайте, что не понятно
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Вывод - то место в тексте, где вы устали думать
Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск Факультет Электронной Техники WWW:Программирование на Паскале ---- Ответ отправлен: 11.01.2008, 13:46 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за помощь!
Вопрос № 117.964
Приветствую Вас, уважаемые эксперты! Мне очень нужна ваша помощь!Решите пожалуйста несколько задач. 1. Дана целочисленная квадратная матрица.Определить: 1)Произведение элементов в тех строках, которые не содержат отрицательных элементов (Оформить в виде функции); 2)Максимум среди сумм элементов диагоналей, паралельных главной диагонали матрицы (оформить в виде процедуры)
2. Описать запись с именем Route содержащие поля: 1)Название начального пункта маршрута; 2)Название конечного пункта маршрута;
3)Номер маршрута.3.Написать программу, выполняющую следующие действия: 1)Ввод данных с клавиатуры в массив, состощий из восьми элементов типа Route, С упорядочением записей по номерам маршрутов; 2)вывод на экран информации о маршрутах начинающихся или кончающихся в пункте, название которого введено с клавиатуры, а если таких маршрутов нет вывод на экран соотвествующего сообщения; 3)Запись массива в фаил под заданным с клавиатуры именем.
Отправлен: 11.01.2008, 12:28
Вопрос задал: Brutal (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Артём1983
Здравствуйте, Brutal!
Смотрите коды программ в приложении.
Приложение:
--------- Программирование - дело Путное!
Ответ отправил: Артём1983 (статус: 8-ой класс)
Ответ отправлен: 12.01.2008, 20:49
Вопрос № 118.056
Доброго времени суток, уважаемые эксперты!
Необходимо решить задачку:
Вычислить среднее геометрическое значений массива. Массив заполняется через random().
