Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Найти сумму бесконечного ряда https://www.cyberforum.ru/ pascal/ thread1292281.html Ребят, помогите пожалуйста, начинающим программисту с Паскалем... Как осуществить подобное в паскале? Найти сумму бесконечного ряда \sum_{n=1}^{\infty}(-1)^n\,\frac{2n+1}{\begin{matrix}\\\\\\n\end{matrix}^2(n+1)(n+2)} с точностью до ε.	Придумайте выражение, которое с mod, div, сложения, вычитания и умножения Pascal Придумайте выражение, которое с помощью mod, div, сложения, вычитания и умножения:переводит число от 1 до (5^4) -1 в пятеричную систему счисления.
Pascal Нужно, чтобы он запускал видео на ютубе и через 18 секунд проводить смену ip любым способом https://www.cyberforum.ru/ pascal/ thread1292121.html Помогите со скриптом: нужно, чтобы он запускал видео на ютубе и через 18 секунд проводить смену ip любым способом. После смены ip сайт ютуба должеен перезапускатся и видио должно воспроизводится снова. И так дол бесконечности. Важно, чтобы новый просмотр видео был уже под другим ip!!!	Pascal Определить сколько всего раз в слове встречается его первая буква https://www.cyberforum.ru/ pascal/ thread1292089.html Помогите, пожалуйста, решить две задачи. 1) Дано слово. Определить сколько всего раз в нем встречаетсч его первая буква. 2)Дано слово. Получить и вывести на экран подстроку, образованную последними N буквами слова.
Произвести интерполяцию для вольт-амперной характеристики транзистора методом Ньютона(полином Ньютона) Pascal Напряжение на стоке, В\|0\|10\|20\|30\|40\|50 Ток стока, А\|0,00\|2,95\|4,00\|4,45\|4,50\|4,70 Текст программы и результаты расчетов. Графики характеристик. Помогите пожалуйста!!!!	Pascal Найти касательные к окружностям Помогите пожалуйста, с выводом всех окружностей по типу (координата центра и радиус) и найти касательные к этим окружностям если есть,и почему то больше 59 точек не берет uses crt; const nmax=59;//больше точек при переборе не потянет e=0.01;//точность вычислений type Point=record//тип точка с координатами x,y:real; end; Okruz=record//тип окружность, координаты центра и... https://www.cyberforum.ru/ pascal/ thread1292042.html
Pascal Вычислить и напечатать значение выражения Нужна программа, помогите Пожалуйста, очень нужно Решить с помощью или процедур, или функций Вычислить и напечатать значение выражения: W=\frac{ax+dy}{bx+cy} где https://www.cyberforum.ru/ pascal/ thread1292008.html	Pascal Найти первый член последовательности, удовлетворяющий заданному условию Помогите решить пожалуйста (...буду очень благодарен Даны действительные числа a, b, ε (a > b > 0, ε > 0). Последовательности x1, x2, ..., y1, y2, ... образованы по закону: x_1=a,\ \ y_1=b,\ \ x_k=\frac{1}{2}\left(x_{k-1}+y_{k-1} \right),\ \ y_k=\sqrt{x_{k-1}y_{k-1}} Найти первое xn такое, что \|xn-yn\| < ε.
Pascal Ввести строку символов. Если символ в данной строке встречается один раз, в конце строки добавлять ещё раз его Ввести строку символов. Если символ в данной строке встречается один раз, в конце строки добавлять ещё раз этот символ. Pезультат вывести на экран. https://www.cyberforum.ru/ pascal/ thread1291700.html	Pascal Вычисление функции и вывод результатов в массивы Помогите пожалуйста не могу разобраться как заполнять в массив. Вычислить значения функций F1(x) и F2 (x) таким образом, чтобы результаты были сформированы в виде трех одномерных массивов (x, F1(x)=\| x+10\|^5 и F2 (x)=e^(-(x+5)). Вывести полученные массивы в виде таблицы вида: есть код который решает без массива. program variant4; uses CRT; Label L1; const a=-2;b=5;n=14; var i:integer; https://www.cyberforum.ru/ pascal/ thread1291696.html
Pascal Найти долю вывоза каждого вида продукции По 18 видам продукции даны объемы (в тыс.руб) вывоза каждого вида из Казахстана. Требуется найти: А) суммарный объем вывоза; Б) количество видом продукции, вывоз которого превышает 100 тыс.руб; В)долю каждого вывоза( в процентах) в общем объеме вывоза продукции; Добавлено через 24 секунды помогите решить ребят пожалуйста	Pascal Преобразование из числа в символ https://www.cyberforum.ru/ pascal/ thread1291503.html Пользователь вводит число, которое преобразуется в символ, соответствующий этому числу по таблице ascii. Кое-что набросал. var p: ^pointer; ch:^char; w:^word; i: ^integer; Begin new (i); new (w); Write ('Введите число:');

ermolay

3451 / 2389 / 2135

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

Сообщений: 3,966

05.11.2014, 09:50

Через процедуру поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы - Pascal - Ответ 6809332

05.11.2014, 09:50. Показов 741. Ответов 1

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

Ответ

Не по теме:

смешались в кучу кони, люди :)

Не смог найти конца процедуры. =) Процедурное программирование предполагает разделение отдельных действий на отдельные подпрограммы. Вот разбил вашу программу на процедуры init() - инициализация матрицы, output_arr() - вывод матрицы на экран, change() - изменение исходной матрицы:

Pascal

uses
  crt;
 
const
  n = 5;
 
type
  matrix = array[1..n, 1..n] of char;
 
procedure init(var a: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := chr(97 + random(26));
end;
 
procedure output_arr(a: matrix);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    writeln;
  end;
end;
 
procedure change(var a: matrix);
var
  i, j, jmin: integer;
  k: char;
begin
  for i := 1 to n do
  begin
    jmin := 1;
    for j := 2 to n do
      if a[i, j] < a[i, jmin] then jmin := j;
    k := a[1, i];
    a[1, i] := a[i, jmin];
    a[i, jmin] := k;
  end;
end;
 
var
  b: matrix;
 
begin
  init(b);
  writeln('Matrix');
  output_arr(b);
  change(b);
  writeln('New Matrix');
  output_arr(b);
  readln;
end.

Добавлено через 58 секунд
p.s.: в алгоритм изменения матрицы не вникал - взял ваш, а матрицу создал рандомно, можете изменить при необходимости

Вернуться к обсуждению:
Через процедуру поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

05.11.2014, 09:50

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

Поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы
uses crt; const n = 4; m = 5; var matrix: array of integer; max, min, i, j, k:...

поменять первые элементы столбцов матрицы с минимальными элементами строк
собственно сабж. вот, что я наделал, но не робит... const n=3; m=3; type mas1=array of...

Заменить диагональные элементы матрицы минимальными элементами соответствующих столбцов
Заданная матрица. Заменить диагональные элементы матрицы минимальными элементами соответствующих...

Сформировать вектор, элементы которого являются минимальными элементами строк матрицы
Помогите пожалуйста исправить программу. Нужно сформировать вектор В, элементы которого являются...

	05.11.2014, 09:50

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

05.11.2014, 09:50

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

Сформировать вектор В, элементы которого являются минимальными элементами строк матрицы А
Помогите решить пожалуйста)) Сформировать вектор В, элементы которого являются минимальными...

Поменять первые элементы каждого столбца матрицы с элементами главной диагонали
Дана целочисленная квадратная матрица. Определить : 1) произведение элементов в тех строках,...

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

Поменять местами строки с минимальными и максимальными элементами матрицы
ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ, ПОЖАЛУЙСТА! В заданной матрице размерность которой указывает пользователь,...

Наверх