Вопрос № 146554: Добрый день уважаемые эксперты. Помогите решить мне лабораторку: Создать матрицу A[1..N,1..M]. Найти две строки, в которых элементы одинаковы, но могут стоять в различной последовательности. Вывести номера строк и их значения. Прошу, на...Вопрос № 146557: Здравствуйте, Уважаемые Эксперты! Пожалуйста, помогите составить программу, определяющую является ли введённая матрица ленточной с шириной ленты L. (программа должна
быть как можно проще) Заранее спасибо!...Вопрос № 146605: помогите пожалуйста решить две задачи <img src="http://rusfaq.ru/images/Forum/1.gif" border="0"> 1) дан файл целых чисел. удалить из него все элементы с четными номерами 2) дан файл целых чисел. удалить из него все отрицательные элементы...
Вопрос № 146.554
Добрый день уважаемые эксперты. Помогите решить мне лабораторку:
Создать матрицу A[1..N,1..M]. Найти две строки, в которых элементы одинаковы, но могут стоять в различной последовательности. Вывести номера строк и их значения.
Прошу, напишите решение этой задачи. С уважением - Михаил
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Горбунов Михаил Валерьевич!
Смотрите в приложениии программу. Если строки совпали, то выводится только одна из совпадающих строк. Вопросы задавайте в мини-форум. Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 09.10.2008, 13:14
Отвечает: Пупорев Юрий Борисович
Здравствуйте, Горбунов Михаил Валерьевич! Видел решение Зенченко Константина Николаевича, но решил выложить и свое, оно несколько другое. Можно вводить матрицу с клавиатуры, одинаковые строки и элементы в них в любом порядке. Решение задачи с пояснениями в приложении. Для более простого сравнения элементов строк я их предварительно отсортировал, запомнив неотсортированный массив, чтобы в конце вывести строки в неотсортированном виде.
Приложение:
Ответ отправил: Пупорев Юрий Борисович (статус: Специалист)
Ответ отправлен: 09.10.2008, 13:23 Оценка за ответ: 5
Вопрос № 146.557
Здравствуйте, Уважаемые Эксперты! Пожалуйста, помогите составить программу, определяющую является ли введённая матрица ленточной с шириной ленты L. (программа должна быть как можно проще) Заранее спасибо!
Отправлен: 09.10.2008, 11:17
Вопрос задала: Olimpia (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Olimpia!
Программа в приложении. Условие (abs(i-j)>l)and(a[i,j]<>0) проверяет только элементы матрицы вышедшие за пределы установленной ширины ленты, если он не равен нулю, то матрица не ленточная. Удачи!
Приложение:
--------- Итерация от человека, рекурсия — от Бога (Питер Дойч)
Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 09.10.2008, 16:00 Оценка за ответ: 5 Комментарий оценки: Благодарю!
это решение проще и намного понятнее.
Вопрос № 146.605
помогите пожалуйста решить две задачи 1) дан файл целых чисел. удалить из него все элементы с четными номерами 2) дан файл целых чисел. удалить из него все отрицательные элементы
Отвечает: Великий Александр
Здравствуйте, Клементенко Анастасия Александровна! Под целым числом понимаются числа которые мы используем при счете (натуральные) им обратные и 0. Следовательно наиболее подходящим типом для их описания является тип integer. По поводу решения 2-х вариантов задач можно сказать что они будут отличаться только условиями отсеивания элементов в массиве(в 1-ом - четность номеров элементов массива, во 2-ом - значение элементов массива). Вот пример как должны выглядить оба варианта:
-------------------------------------------- Program
variant1; {1) дан файл целых чисел. удалить из него все элементы с четными номерами} var a, b: array [1..100] of integer; n, m, i: integer; begin Assign (input,'input.txt'); Assign (output,'output.txt'); Reset(input); Rewrite(output); n:=1; while not eoln do begin Read (a[n]); n:=n+1; end; m:=1; For i:=1 to n-1 do If i mod 2 = 1 then begin b[m]:=a[i]; m:=m+1; end; For i:=1 to m-1 do Write(b[i],' '); Close(input); Close(output); end.
---------------------------------------------- Program variant2; {2) дан файл целых чисел. удалить из него все отрицательные элементы} var a, b: array [1..100] of integer; n, m, i: integer; begin Assign (input,'input.txt'); Assign (output,'output.txt'); Reset(input); Rewrite(output); n:=1; while not eoln do begin Read (a[n]); n:=n+1; end; m:=1; For
i:=1 to n-1 do If a[i]>0 then begin b[m]:=a[i]; m:=m+1; end; For i:=1 to m-1 do Write(b[i],' '); Close(input); Close(output); end.
Ответ отправил: Великий Александр (статус: 1-ый класс)
Ответ отправлен: 09.10.2008, 20:43 Оценка за ответ: 5
Отвечает: Пупорев Юрий Борисович
Здравствуйте, Клементенко Анастасия Александровна! Видел предыдущий ответ, прямо скажем решение неудачное. Привожу свой вариант. Обе задачи удобно решить в одной программе. Создайте текстовый файл в папке с программой. Назовите его file. Заполните файл целыми числами, положительными, отрицательными и нолями, вводя их построчно через пробел. Сохраните файл. Дальше пишем программу. Ее код с пояснениями в приложении.
Приложение:
Ответ отправил: Пупорев Юрий Борисович (статус: Специалист)
Ответ отправлен: 09.10.2008, 21:13 Оценка за ответ: 5
Отвечает: Шипулин Кирилл Владимирович
Здравствуйте, Клементенко Анастасия Александровна! Я так понял, что вам дан массив из N чисел - я написал программу с массивом из 5 чисел и по условию нужные элементы заменяются нолями. программы в приложении.
Приложение:
Ответ отправил: Шипулин Кирилл Владимирович (статус: 1-ый класс)
Ответ отправлен: 09.10.2008, 21:52 Оценка за ответ: 5