Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Определить положительные четные значения в целочисленном двумерном массиве https://www.cyberforum.ru/ turbo-pascal/ thread315275.html
Определить положительные четные значения в целочисленном двумерном массиве С (3*6) элементов и записать сумму их индексов в одномерном массиве D. Спасибо заранее!!!
Массив Turbo Pascal
Написать программу-функцию или подпрограмму общего вида, осуществляющую заданные вычисления, и программ её тестирования. При тестировании подпрограмм, использовать массивы с количеством элементов не менее 16 (например А(16), В(4,4)).Упорядочить элементы одномерного массива и его индекса. Спасибо заранее!!!
Turbo Pascal объяснение программы на языке Pascal помогите, пожалуйста, разобраться в задаче на языке Pascal. Скопируйте программу и в комментариях (т.е. в скобках "{}") укажите, что именно каждая часть программы выполняет. program kursovaya; uses crt; type mas=array of real; mas1=array of real; var a:mas; x:mas1; i,j,m,b:integer; integ,y,r,t,k,max,min,si,s,g:real; https://www.cyberforum.ru/ turbo-pascal/ thread315252.html Turbo Pascal Сортировка массива Помогите составить поразрядную сортировку через подпрограммы!!! https://www.cyberforum.ru/ turbo-pascal/ thread315242.html
Turbo Pascal Умножить матрицу на вектор.
Написать программу-функцию или подпрограмму общего вида, осуществляющую заданные вычисления, и программ её тестирования. При тестировании подпрограмм, использовать массивы с количеством элементов не менее 16 (например А(16), В(4,4)). Умножить матрицу на вектор. Очень на вас надеюсь!
Turbo Pascal Вычислить сумму столбцов двухмерного массива Вычислить сумму столбцов двухмерного массива А размерностью 4х6. Результат представить в виде одномерного массива В Помогите пожалуйста! https://www.cyberforum.ru/ turbo-pascal/ thread315214.html
Turbo Pascal Переписать компоненты файла f в файл g так, чтобы в файле g не было двух соседних чисел с одним знаком https://www.cyberforum.ru/ turbo-pascal/ thread315201.html
Дан фаил f, компоненты которого являются целыми числами Никакая из компонентов не равно 0.Файл содержит столько же отрицательных чисел сколько и полож uses crt; var f,g,h:file of integer; a,n,m,i,j,k:integer; begin clrscr; assign(f,'fileF'); rewrite(f); assign(g,'fileG'); rewrite(g);
Turbo Pascal В массив a[10] занесены натуральные числа.Найти сумму элементов,кратных числу K
1) Написать программу, которая вводит произвольное число значений в переменную SUM и находит сумму и количество всех отрицательных и положительных значений.Использовать цикл While not eot(input).Решить с использованием цикла с постусловием и цикла с параметрами. 2) В массив a занесены натуральные числа.Найти сумму элементов,кратных числу K. 3) В заданной матрице A(3;N) ,поменять местами...
Turbo Pascal Осуществить сортировку в заданном массиве указанными 2 методами https://www.cyberforum.ru/ turbo-pascal/ thread315187.html
Осуществить сортировку в заданном массиве указыванными 2 методами. Определить колличество проходов по массиву колво сравнений и колво переустановок элементов массива Сортировка обмена и пирамидой надо написать в одной программе!! Пирамидой сортировка Program zz; var i,n,kol,kol2,j:integer; a:array of integer; a2:array of integer;
Turbo Pascal Дана квадратная матрица Дана квадратная матрица А(N,N). Из квадратов десятичных логарифмов элементов над главной диагональю сформулируйте одномерный массив и упорядочите его по возрастанию методом простых вставок(Insert Sort). Не пойму как сделать десятичными логарифмами элементы над главной диагональю. Можете с началом помочь? Очень прошу. Добавлено через 2 часа 59 минут Вот пока что получилось, осталось только... https://www.cyberforum.ru/ turbo-pascal/ thread315186.html
Замена в строке длиной N символов всех пробелов на символ $ Turbo Pascal
помогите решить пожалуйста, я ни черта здесь не понимаю((((
Turbo Pascal Найти произведение элементов массива, расположенными между первым и вторым нулевыми элементами массива https://www.cyberforum.ru/ turbo-pascal/ thread315175.html
Помогите пожалуйста решить эти задачи, до завтра срочно нужно.:( начало вроде хорошо пошло ... program massive; uses crt; const n=20; var p,j,i,x:integer; s,min,max:real; a,b,c:array of real; begin clrscr; randomize;
Mobile Software Engineer
Эксперт С++
5381 / 1585 / 956
Регистрация: 23.01.2011
Сообщений: 3,214
07.06.2011, 21:54 0

Процедура и функции: Вывести элементы матриц, кратные 3 - Turbo Pascal - Ответ 1737208

07.06.2011, 21:54. Показов 2392. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено scorch92 как решение

Решение

объемненько вышло...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
const
 n_n = 5; 
 n_m = 8;
 m_n = 10;
 m_m = 6;
type
 TMat = array[1..100, 1..100] of integer;
var
 MatN: TMat;
 MatM: TMat;
 i, j, k, l: integer;
 
procedure Kratn(ar: TMat; n, m: integer);
var
 i, j: integer;
begin
 writeln('Элементы кратные 3: ');
  for i:=1 to n do
   for j:=1 to m do
    if ar[i, j] mod 3 = 0 then write(ar[i, j], ' ');
 writeln;
end;
 
begin
 writeln('Матрица N: ');
  for i:=1 to n_n do
   begin
    for j:=1 to n_m do
     begin
      MatN[i, j]:=random(100);
      write(MatN[i, j]:4);
     end;
    writeln;
   end;
 writeln('Матрица M: ');
  for k:=1 to m_n do
   begin
    for l:=1 to m_m do
     begin
      MatM[k, l]:=random(100);
      write(MatM[k, l]:4);
     end;
    writeln;
   end;
 writeln;
 Kratn(MatN, n_n, n_m);
 Kratn(MatM, m_n, m_m);
end.


Вернуться к обсуждению:
Процедура и функции: Вывести элементы матриц, кратные 3 Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.06.2011, 21:54
Готовые ответы и решения:

Вывести на печать элементы матриц, кратные трем.
помогите пожалуйста..... Вывести на печать элементы целочисленных матриц N(5,8) и M(10,6),...

Вывести на экран элементы массива, кратные 2 и кратные 5, подсчитать их количество
задан массив из 40 элементов принадлежащих отрезку от А до Б(вводятся с клавиатуры) вывести на...

Подпрограмма процедура. Максимальный и минимальный элементы матриц.
Здравствуйте, умные люди! Помогите, пожалуйста: Дано задание: Найти минимальный и максимальный ...

Вывести на печать элементы массива, кратные трем
КТО ЧЕМ МОЖЕТ ПОМОГИТЕ!!!!!(нужно срочно) #47. Вычислить значения функции z=x√(x*y), ...

2
07.06.2011, 21:54
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.06.2011, 21:54
Помогаю со студенческими работами здесь

Вывести на экран все элементы массива, кратные М
Задание в турбо паскале. Звучит следующим образом: Вывести на экран все элементы массива, кратные...

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

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

Вывести на экран элементы массива кратные 5 и их индексы
Создать двумерный целочисленный массив 5×3 Вывести на экран элементы массива кратные 5 и их...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru