1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Dimon4ic |
10.06.2009 19:33
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Дмитрий Репутация: 0 |
подскажите умные люди пожалуйста как решить
Задачка такова характера: Ввести с клавиатуры целочисленный двумерный массив размером N * M элементов (N. M <=4). Вывести его на экран в виде таблицы. Вычислить сумму окаймляющих элементов (т.е. элементов первой и последней строки и первого и последнего столбца). Сообщение отредактировано: Dimon4ic - 10.06.2009 19:35 |
![]() ![]() |
| Dimon4ic |
11.06.2009 23:37
Сообщение
#2
|
|
Группа: Пользователи Сообщений: 3 Пол: Мужской Реальное имя: Дмитрий Репутация: 0 |
спасибо кто пытался, больше помощи ненада, ответ нашёлся, кому интересна, смотрите:
program test; uses crt; const n = 3; m = 4; var arr : array[1..n, 1..m] of integer; i, j, sum : integer; begin clrscr; textColor(14); writeln('Matrica imeet vid: '); for i := 1 to n do begin for j := 1 to m do begin arr[i, j] := random(10) + 1; write(arr[i, j]:3); end; writeln; writeln; end; sum := 0; for i := 1 to m do begin inc(sum, arr[1, i]); inc(sum, arr[n, i]); end; for i := 2 to n - 1 do begin inc(sum, arr[i, 1]); inc(sum, arr[i, m]); end; textColor(4); writeln; write('Summa sostavila: ', sum); readln; end. |
| sheka |
12.06.2009 0:07
Сообщение
#3
|
![]() Я. ![]() ![]() ![]() ![]() Группа: Пользователи Сообщений: 809 Пол: Мужской Реальное имя: Саша Репутация: 11 |
спасибо кто пытался, больше помощи ненада, ответ нашёлся, кому интересна, смотрите: to админы: есть ли место на форуме где можна использовать нецензурную лексику? мне интересна но насколько я знаю ввод и вывод двухмерного массива делаются однозначно. где в твоем решении( которое ты, скорее всего, взял у кого-то, а не решил сам) ответ на поставленный вопрос: "Ввести с клавиатуры целочисленный двумерный массив" ? "Вывести его на экран" ты зделал, но при таком оформлении вопросов, можно для нахождения суммы спокойно обойтись и вообще без массива. и кода меньше, и памяти будет меньше брать! кстати, об оформлении. эту задачу надо решать обязательно с использованием graph, там есть разные виды шрифтов и их размеров!!! PS. понял, вопросы отменяются - решил не сам, а похвастался чужим решением! Сообщение отредактировано: sheka - 12.06.2009 0:21 |
Dimon4ic задача на двумерный массив, подскажите 10.06.2009 19:33
sheka
for y:=1 to m do
for x:=1 to n do readln(a[y,x... 10.06.2009 19:50
Lapp sheka, не забывай инициализировать переменную s пе... 11.06.2009 4:17
sheka я и не забыл!
зы. за последние 2 дня я увидел... 11.06.2009 8:19
Гость и что перед begin надо сделать инициализацию перем... 11.06.2009 8:36
sheka понял, исправим. :) 11.06.2009 8:53
V877 - это не инициализация переменных, а описание, ты... 11.06.2009 8:35
Lapp Администрация бдит))
даже когда ее нет)) 11.06.2009 8:39
Lapp есть ли место на форуме где можна использовать нец... 12.06.2009 0:41![]() ![]() |
|
Текстовая версия | 9.12.2025 1:03 |