Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal строки и массивы открытого типа https://www.cyberforum.ru/ turbo-pascal/ thread1107075.html
преобразовать матрицу целых чисел в вектор и наоборот 		Вычислить сумму элементов, расположенных на главной и побочной диагоналях - решить с использованием процедуры Turbo Pascal
помогите сделать задачу через процедуру: const n = 6; var a : array of integer; j, i, sg, sp : integer; begin randomize; sg := 0; sp := 0; for i := 1 to n do
Turbo Pascal Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над матрицами https://www.cyberforum.ru/ turbo-pascal/ thread1107039.html
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над матрицами: 1. Определить число элементов равных 1 в каждой строке матрицы Аnxn. 2. Определить строку с минимальным числом единиц и вывести ее номер на экран. 3. Найти наименьшее из значений элементов, расположенных в заштрихованной части. 		Turbo Pascal Метод Симпсона https://www.cyberforum.ru/ turbo-pascal/ thread1107013.html
метод симсона находит площадь данного графика для графика находится по формуле h/3( f0 +fn+4(f1 + f3+ f5+..+ fn-1)+2(f2 + f4+ f6+..+ fn-2)) где h - единичный отрезок написать программа которая будет использовать даную формулу и выводить площадь графика
Составьте программу, которая обеспечивает ввод данных Turbo Pascal
Составьте программу, которая обеспечивает ввод данных, вывод данных, поиск по любому критерию. Каждая компонента записи должна содержать следующие сведения: номер измерения (тип integer); название (тип string); значение (тип real). 		Turbo Pascal Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы. https://www.cyberforum.ru/ turbo-pascal/ thread1107004.html
Turbo Pascal Переделать программу через процедуры. Записи https://www.cyberforum.ru/ turbo-pascal/ thread1106969.html
uses crt; type doc=record nom:integer; name:string; tex:string; end; var f:file of doc; z:doc; n,i,k,np,j:integer; t:string; 		Переделать программу через процедуры. Поиск количества слов с тремя заданными буквами Turbo Pascal
uses crt; var s,sl,sn: string; i,j,k,ks: integer; begin write('s='); readln(s); s:=s+' '; sl:=''; for i:=1 to length(s) do if s<>' ' then sl:=sl+s else begin k:=0;
Turbo Pascal Два цилиндра заданы радиусами основаниями и высотами. Вычислить суммарную площадь полных поверхностей этих цилиндров два цилиндра заданы радиусами основаниями и высотами .Вычислить суммарную площадь полных поверхностей этих цилиндров. https://www.cyberforum.ru/ turbo-pascal/ thread1106948.html Turbo Pascal Дан файл из действительных чисел. Переписать файл таким образом чтобы числа располагались в обратном порядке Дан файл из действительных чисел. Переписать файл таким образом чтобы числа располагались в обратном порядке. https://www.cyberforum.ru/ turbo-pascal/ thread1106906.html
Turbo Pascal Вывести на экран квадрат из звездочек
Задание: напишите процедуру,которая принимает параметр-натуральное число N и выводит на экран квадрат из звездочек со стороной N. Вроде делала по заданию, а ошибку не могу понять procedure wr( ch: char; c: integer ); var i: integer; begin for i := 1 to c do write(ch); end; procedure square( n: integer ); var i: integer; begin wr( '*', n ); writeln; for i := 2 to n-1 do begin write( '*' );... 		Turbo Pascal Двумерный массив. Как написать его через процедуру? ) https://www.cyberforum.ru/ turbo-pascal/ thread1106903.html
Uses Crt; var a,b: array of real; i,j,x,y:integer; min:real; begin WriteLn('vvedite razmer massiva: '); Write('strok: '); ReadLn(x); Write('stolbcbI: '); ReadLn(y); for i:=1 to x do for j:=1 to y do readln(a);
79 / 53 / 65
Регистрация: 18.06.2013
Сообщений: 99
28.02.2014, 10:23 0

Упорядочить строки массива по не возрастанию значений первых элементов строк - Turbo Pascal - Ответ 5840341

28.02.2014, 10:23. Показов 1533. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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

const
    nmax=100;
  var
    a: array[1..nmax,1..nmax] of integer;
    i,j,n,m,k,c: integer;
begin
  writeln('Kol-vo strok n:');
  readln(n);
  writeln('Kol-vo stolbcov m:');
  readln(m);
  writeln('massiv:');
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
 
   for i:=1 to n-1 do
   for j:=2 to n do
   if a[i,1]<a[j,1] then
   for k:=1 to m do
   begin
      c:=a[i,k];
      a[i,k]:=a[j,k];
      a[j,k]:=c;
   end;
 
  writeln('resultat:');
  for i:=1 to n do
  begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
  end;
  
end.


Вернуться к обсуждению:
Упорядочить строки массива по не возрастанию значений первых элементов строк Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 28.02.2014, 10:23
Готовые ответы и решения:

Упорядочить строки матрицы по возрастанию первых элементов
Данная матрица размера М × N. Упорядочить ее строки так, чтобы их первые элементы образовывали...

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

Матрица. Упорядочить строки по неубыванию первых элементов строк
Помогите пожалуйста с алгоритмом решения задачи Пусть дана вещ.матрица размером 20на30....

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

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

Упорядочить (переставить) столбцы массива, по не возрастанию значений последних элементов столбцов
Составить программу обработки матрицы размерности NxM. Выполнить программу для N=3, M=4. В...

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

Определить сумму отрицательных элементов в каждой строке матрицы и упорядочить номера строк по возрастанию значений найденных сумм
Дана прямоугольная матрица размером N x M, содержащая целые числа. Определить сумму отрицательных...

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

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