Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Программа не обрабатывает введенную строку https://www.cyberforum.ru/ pascalabc/ thread1067607.html
Написал все по учебнику но результата нет - выводит ту же строку которую ввели Обьясните плиз procedure scan(var r:string;x,y:char); var k:integer; begin for k:=1 to Length(r) do if r=x then r:=y; end; 		В заданном массиве В[1 : 6] найти индекс элемента, равного числу Р Pascal ABC
В заданном массиве В найти индекс элемента, равного числу Р. Предусмотреть случай, когда такого элемента не будет. 2. Найти сумму элементов одномерного массива размером 4. Разделить каждый элемент исходного массива на полученное значение. Результат полу- чить в том же массиве. Напечатать в одной строке. 3. В матрице А найти количество элементов, которые по модулю меньше...
Pascal ABC Нужно удалить из двоичного дерева поиска все вершины, имеющие четное значение Помогите пожалуйста. Нужно удалить из двоичного дерева поиска все вершины, имеющие четное значение https://www.cyberforum.ru/ pascalabc/ thread1067520.html Pascal ABC Перевести число в девятеричную систему счисления https://www.cyberforum.ru/ pascalabc/ thread1067491.html
Перевести число от 1 до 94-1 в девятеричную систему счисления. Нужно написать одним выражением с использованием mod,div.
Pascal ABC Протабулировать функцию, нужно исправить ошибку
Протабулировать функцию y=x^3+x^2 на отрезке с шагом 0,5 и найти количество положительных значений функции var x,y,a,b,h:real; begin writeln('ввести початкові і кінцеві значення аргументу'); readln(a,b); h:=0.5; x:=a; y:=b; writeln(' x y '); while x<=b do 		Pascal ABC Численные методы в паскале Помогите решить задачу Ток в электрической цепи описывается дифференциальным уравнением (на рисунке) , которое необходимо решить, найдя y(0.1), y(0.2) ... y(1) с помощью метода Рунге-Кутта второго порядка с коррекцией в средней точке (в дифференциальном уравнении k = 2). По найденным значениям y определить количество тепла, выделяющееся на единичном сопротивлении за единицу времени, по... https://www.cyberforum.ru/ pascalabc/ thread1067438.html
Pascal ABC Не работает программка а почему не могу понять? 2)Создать в своей папке файл с расширением txt, который будет содержать целые числа, расположенные в виде матрицы. Написать программу, которая будет: а) считывать элементы текстового файла; б) считать суммы элементов строк и записывать эти суммы в одномерный массив. uses crt; const cf=;{цифры и знак минус, могут быть отрицательные числа} var f:text; nf,st:string; a:array of integer; ... https://www.cyberforum.ru/ pascalabc/ thread1067434.html Резервирование памяти в динамической области, куда будет выводиться массив вещественных чисел Pascal ABC
Не работает программка а почему не могу понять? 1)Написать программу, предназначенную для резервирования памяти в динамической области, куда будет выводиться массив вещественных чисел. const m = 20; type st = array of Extended; var mass : ^st;
Pascal ABC подскажите что не так, пожалуйста Есть n городов и m дорог, соединяющих эти города (каждая дорога соединяет только 2 города). Проверьте существует ли путь из первого города во все остальные, если да, то выведите путь из первого города в последний. Ввод-вывод из текстовых файлов var a:array of integer; //Матрица смежности исходного графа} b, p, c: array of integer; va, vb, i, nn, m, x, y:integer; //va*—начальная вершина,... https://www.cyberforum.ru/ pascalabc/ thread1067402.html Pascal ABC Вынести основные определения, функции, процедуры задачи в модуль https://www.cyberforum.ru/ pascalabc/ thread1067383.html
Вынесите основные определения, функции, процедуры задачи в модуль program pari; var F: Text; Str: string; i: integer; begin assign(F, 'File.txt'); rewrite(F);
Pascal ABC Рассматривая всевозможные пары элементов массива, найти минимальное расстояние между элементами
Дан массив A(N).Рассматривая всевозможные пары пары элементов массива,найти минимальное расстояние между элементами (расстояние между числами X и Y равно: |X-Y|). 		Pascal ABC Что нужно сделать что бы при вводе любых чисел в эту программу они выстраивались в порядке возрастания program laba8; type t=^tabl; tabl=record L:t; D:char; end; var F,W,K: t; I,J,N: integer; procedure Stek (var F:t;var N:integer); begin https://www.cyberforum.ru/ pascalabc/ thread1067210.html
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
10.01.2014, 16:58 0

Найти наибольший и наименьший элементы в заштрихованной части матрицы - Pascal ABC - Ответ 5619649

10.01.2014, 16:58. Показов 1298. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено serik8989 как решение

Решение

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

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,mn,mx:integer;
begin
randomize;
repeat
write('Размер матрицы четное число от 2 до ',nmax,' n=');
read(n);
until (n in [2..nmax]) and(n mod 2=0);
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
k:=n div 2;
mn:=a[1,1];
mx:=a[1,1];
for i:=1 to n do
for j:=1 to n do
if((i<=k)and(j<=k))or((i>k)and(j>k)) then
 begin
  if a[i,j]<mn then mn:=a[i,j];
  if a[i,j]>mx then mx:=a[i,j];
 end;
writeln('Min=',mn,' max=',mx);
end.


Вернуться к обсуждению:
Найти наибольший и наименьший элементы в заштрихованной части матрицы Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 10.01.2014, 16:58
Готовые ответы и решения:

Найти наибольший и наименьший элементы в заштрихованной части матрицы
Найти наибольший и наименьший элементы в заштрихованной части матрицы. Или хотя бы условие напишите

Найти наибольший и наименьший элемент в заштрихованной части матрицы
Помогите пожалуйста отредактировать так, чтобы она искала наибольший и наименьший элемент в...

Найти наибольший и наименьший элемент в заштрихованной части матрицы
Условие: Найти наибольший и наименьший элемент в заштрихованной части матрицы.

Найти наибольший и наименьший элементы в заштрихованной части матрицы
Найти наибольший и наименьший элементы в заштрихованной части матрицы

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

Найти наименьший и наибольший элемент в заштрихованной части матрицы
Составить блок-схему. Дано натуральное число n . Сформировать произвольную матрицу размерностью...

наибольший и наименьший элемент заштрихованной части
Дано натуральное число N. Сформировать произвольную матрицу размерности n*n. Даны натуральные числа...

Найти наибольший элемент в заштрихованной части матрицы
heeelp здравствуйте, у меня такая задача: нужно найти наибольший элемент в заштрихованной части...

Двумерные массивы: Найти наибольший элемент заштрихованной части матрицы
Найти наибольший элемент заштрихованной части массива (11 рисунок). И потом повернуть эту часть на...

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