Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Список. https://www.cyberforum.ru/ pascal/ thread166436.html
Помогите пожалуйста решить задачу.... В поле каждого элемнта списка записываются данные о товаре: название, страна-изготовитель, стоимость. выведите на экран весь список и стоимость товаров...
перевод и разбиение строки в массив Pascal
имеется l2 : String; s1:array of integer; и переменные строка l2 содержит двоичную запись числа. (Это лишь фрагмент моей программы в котором я нуждаюсь) допустим число 100101. его надо...
Составить программу, выводящую на экран данную матрицу Pascal
Добрый вечер. Нужно помочь с двумя программками до завтра. 1.Дан двумерный массив NxN, заполненный целыми случайными числами. Определить, есть ли в данном массиве столбец, в котором есть одинаковые...
Pascal Возвести в степень отриц. число Задано число n=10; Надо возвести в 10 степень число (1-корень из 5). Я делала через exp(n*ln((1-sqrt(5)) Но у меня вылетает. https://www.cyberforum.ru/ pascal/ thread166365.html
Pascal Найти площадь и периметр прямоугольного треугольника https://www.cyberforum.ru/ pascal/ thread166341.html
Всем доброго времени суток!! У меня такая проблема нужнно в Borland Pascal 7.0 решить задачку, я с паскалем вообще не дружу кто может помагите плз, задача такова: Найдите площадь и периметр...
Преобразования массива. Pascal
Здравствуйте. Мне нужно помочь с паскалям... Сделал задачу, в которой нужно найти элементы <1 и >5, а остальные элементы перевести в массив D с указанием количества элементов в нем. Начало я...
матрицей в паскале. С рисунком Pascal
Составить программу, которая в матрице A(N,N) произвольной размерности разместит в порядке убывания все элементы в направлении указанном на рисунке. Первоначально матрица заполнена случайными целыми...
Pascal Составить список L Составить программу, которая формируют список L, включив в него по одному разу элементы, которые входят в список L1, но не входят в список L2. https://www.cyberforum.ru/ pascal/ thread166277.html
Pascal получить матрицу https://www.cyberforum.ru/ pascal/ thread166268.html
получить матрицу 1 2 3 ... 9 10 0 1 2 ... 8 9 0 0 1 ... 7 8 . . . ... . . . . . ... . . 0 0 0 ... 0 1
Pascal соствить программу помогите срочно нужно составить программу,которая вставляет в список L новый элемент F перед первым вхождением элемента E, если Е входит в L! https://www.cyberforum.ru/ pascal/ thread166264.html
393 / 279 / 38
Регистрация: 06.08.2010
Сообщений: 834
16.09.2010, 22:06 0

Массивы

16.09.2010, 22:06. Показов 617. Ответов 10
Метки (Все метки)

Ответ

эх,ладно
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Uses
   CRT;
const
  M = 3; N = 4;
 
type
  matritsa = array[1..M, 1..N] of integer;
 
const
  a: matritsa =   ((2, 6, 4, 2),
                                   (9, 1, 8, 3),
                (5, 7, 3, 8));
 
var
  i, j: integer;
  kl:matritsa;
 
procedure puziryok_2(mass: matritsa; M, N: integer; Var rez:matritsa);
var
  i, j, i1, j1, k: integer;
  c: Integer;
label   metka;
begin
  i1 := M;
  j1 := N;
  for k := 1 to M * N - 1 do
  begin
    for i := 1 to M do
      for j := 1 to N do
      begin
        if not ((i < i1) OR (i = i1) AND (j < j1)) then
          goto metka;
        if j <> N then
          if mass[i, j] < mass[i, j + 1] then
          begin
            c := mass[i, j];
            mass[i, j] := mass[i, j + 1];
            mass[i, j + 1] := c
          end{if};
        if (j = N) AND (i <> M) then
          if mass[i, j] < mass[i + 1, 1] then
          begin
            c := mass[i, j];
            mass[i, j] := mass[i + 1, 1];
            mass[i + 1, 1] := c
          end
      end;
    metka: if j1 > 1 then
      j1 := j1 - 1
    else
    begin
      j1 := N;
      i1 := i1 - 1
    end
  end;;
  rez:=mass;
end;
 
begin
 
  puziryok_2(a, M, N, kl);
 
  for i := 1 to M do
  begin
    for j := 1 to N do
      Write(kl[i, j],   '    '   );
    WriteLn
  end;
 
end.
Добавлено через 2 минуты
Это сортировка

Вернуться к обсуждению:
Массивы
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.09.2010, 22:06
Готовые ответы и решения:

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы...

Массивы
Дана матрица, состоящая из n строк и n столбцов или одномерные массивы из n элементов каждый....

Массивы
Помогите пожалуйста справится с это задачей . не получается . задача: даны два массива А и B...

Массивы
Даны натуральные числа a1, a2, ..., an. Указать те, у которых остаток от деления на М равен L (0...

__________________
10
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.