Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Записи: Вычислить средний балл, выборка из списка по среднему баллу или первым двум буквам фамилии или по полу Список группы студентов: Ф.И.О., год рождения, пол, место жительства, сданные экзамены: математика, физика, история. Вычислить средний бал, выборка из списка по среднему баллу или первым двум буквам фа-милии или по полу. https://www.cyberforum.ru/ turbo-pascal/ thread915238.html	Заполнить двумерный массив порядковыми номерами элементов Turbo Pascal Заполнить двумерный массив порядковыми номерами элементов. Добавлено через 3 часа 19 минут Апчик. Ребят, дайте пожалуйста ответ. Завтра отчет по практике сдавать :(
Turbo Pascal Найти номера тех элементов массива, значения который совпадают с числом 12 https://www.cyberforum.ru/ turbo-pascal/ thread915229.html Найти номера тех элементов массива, значения который совпадают с числом 12. Добавлено через 3 часа 23 минуты Апчик. Ребят, дайте пожалуйста ответ. Завтра отчет по практике сдавать :(	Turbo Pascal “датчик чувствительности уха к высоким частотам” https://www.cyberforum.ru/ turbo-pascal/ thread915201.html Сделайте “датчик чувствительности уха к высоким частотам”. Известно, что человеческое ухо не может слышать звуки, частота которых превышает 10000-20000 Гц. У разных людей порог чувствительности разный. Напишите программу, которая выдает звуки все более высокой частоты и печатает на экране значения этой частоты, так что человек успевает увидеть, при какой частоте он перестает слышать звук. Вы...
Воспроизвести звук сирены Turbo Pascal 1. Воспроизвести звук сирены - непрерывного постепенно повышающегося звука, уменьшая числа в операторах Delay(1000) и hz:=hz+40 2. Смоделировать сирену милицейской машины: звук вверх - звук вниз - звук вверх - звук вниз - … и так несколько раз. 3. На выбор: o Сделайте “датчик чувствительности уха к высоким частотам”. Известно, что человеческое ухо не может слышать звуки, частота которых...	Turbo Pascal Написать программу построения графика функции Написать программу построения графика функции y= tg x +cos x на отрезке ; за ранее спасибо https://www.cyberforum.ru/ turbo-pascal/ thread915186.html
Turbo Pascal Составить программу для вычисления функции, заданной графиком https://www.cyberforum.ru/ turbo-pascal/ thread915105.html Составить программу для вычисления функции, заданной графиком.	Перевод км в мили и наоброт Turbo Pascal Написать программу для перевода миль в километры и на оборот в зависимости от положения переключателей. Тип мили выбирается из двух возможных значений: морской (1миля=1,852 км) или обычной (1 миля=1,6093 км). Напишите программу пожалуйста по проще, по возможности. Слишком сложно и профессионально не надо)
Turbo Pascal Отсортировать одномерный массив 2-мя любыми способами https://www.cyberforum.ru/ turbo-pascal/ thread915073.html Отсортировать одномерный массив 2-мя любыми способами. uses crt; const n=20; var a:array of integer; i,sum:integer; Sa:real; begin	Turbo Pascal Из файла записать действительные числа в дерево двоичного поиска Здравствуйте, помогите решить задачку. Завтра экзамен, не смогу сам решить ее(и не из за того что мало занимался, а преподы такие... один на лабах твердит что в учебниках все есть сам все ищи, а другой ваще нас mathcad заставил изучать) Формулировка следующая: В файле записаны по несколько действительных чисел в каждой строке(через пробел) нужно написать процедуру записывающая эти числа в дерево... https://www.cyberforum.ru/ turbo-pascal/ thread915058.html
Вычисление функции от аргумента Turbo Pascal Составить программу для вычисления функций Y (аргумент X вводится после запуска программы):	Turbo Pascal Физическая задача: Определить на какой высоте плотность воздуха будет меньше 1 кг/м3 https://www.cyberforum.ru/ turbo-pascal/ thread914699.html Плотность воздуха p с высотой h убывает по закону p=p0e-hz, где p0=1,29 кг/м3, z=1,25·10-4 1/м. Определить на какой высоте плотность воздуха будет меньше 1 кг/м3. Помоги с кодом или идея какие нибудь, все что сможет помочь. За раннее спасибо.

dima3452

0 / 0 / 0

Регистрация: 22.04.2013

Сообщений: 25

01.07.2013, 15:17 [ТС]

В двухмерном массиве найти все элементы, сумма индексов столбца и строки - Turbo Pascal - Ответ 4793372

01.07.2013, 15:17. Показов 759. Ответов 7

Метки (Все метки)

Ответ

Сообщение от Puporev

Это не вся программа, а основная ее часть. Ввод и вывод данных сам пиши.

Pascal

var a:array [1..100,1..100] of integer;
b:array[1..1000] of integer;
k,a,b,c,i,j,n,m,:integer;
begin
write('razmer ');
read(n,m);
writeln;
writeln('ishodniy:');
k:=0;
for i:=1 to m do
for j:=1 to n do
if odd(i+j) then
 begin
  k:=k+1;
  b[k]:=a[i,j]
 end;
writeln;
write('odnomerniy masiv');
end.

Что-то я запутался совсем,не запускается..может еще какие-то переменные дописать?

Вернуться к обсуждению:
В двухмерном массиве найти все элементы, сумма индексов столбца и строки Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

01.07.2013, 15:17

Готовые ответы и решения:

В двухмерном массиве найти все элементы, сумма индексов столбца и строки которых четное число
В двухмерном массиве найти все элементы, сумма индексов столбца и строки которых четное число, и...

В двухмерном массиве вычислить сумму элементов, произведение индексов столбца и строки которых нечетное число.
В двухмерном массиве вычислить сумму элементов, произведение индексов столбца и строки которых...

В двухмерном массиве вычислить произведение элементов, произведение индексов столбца и строки которых четное число.
1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя генератор...

В двухмерном массиве найти номер строки, сумма элементов которой максимальная
В двухмерном массиве найти номер строки, сумма элементов которой максимальная

	01.07.2013, 15:17

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

01.07.2013, 15:17

Помогаю со студенческими работами здесь

В двухмерном массиве найти все отрицательные элементы и получить из них одномерный массив
1. Ввести двухмерный массив поэлементно с помощью клавиатуры или получить его, используя...

В двухмерном массиве найти все отрицательные элементы и получить из них одномерный массив
В двухмерном массиве найти все отрицательные элементы и получить из них одномерный массив.

В массиве все элементы, имеющие нечетное значение суммы индексов, заменить на максимальный элемент строки
Народ!помогите пожалуйста решить задачу)) В массиве все элементы, имеющие нечетное значение...

Наверх