Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 30.12.2019
Сообщений: 6
1

Переделать программу

14.01.2020, 12:25. Просмотров 862. Ответов 2
Метки нет (Все метки)

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


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
Program laba4;
const n=3; m=4;
type str=array[1..n,1..m] of real;
Var a:str; R:real;
    i,j,k:integer;
    f:text;
Begin
assign(f,'laba4.dat'); rewrite(f);
writeln('Введите элементы массива А(',n:1,',',m:1,')');  
For i:=1 to n do
For j:=1 to m do
read(a[i,j]);
writeln;
writeln('':10, 'Исходный массив');
writeln(f);
writeln(f,'':10, 'Исходный массив');
For i:=1 to n do
begin
For j:=1 to m do
   begin
   write(' A[',i:1,',',j:1,']=',a[i,j]:6:2);
   write(f,' A[',i:1,',',j:1,']=',a[i,j]:6:2);
   end;
   writeln;
   writeln(f);
   end;
repeat 
K:=0;
For j:=1 to m-1 do
If a[1,j]>a[1,j+1] then
   begin
   for i:=1 to n do 
      begin
      R:=a[i,j];
      a[i,j]:=a[i,j+1];
      a[i,j+1]:=R;
      end;
   k:=k+1;
   end;
until k=0;
 writeln;
writeln('':10, 'Массив после перестановки');
writeln(f);
writeln(f,'':10, 'Массив после перестановки');
For i:=1 to n do
begin
For j:=1 to m do
   begin
   write(' A[',i:1,',',j:1,']=',a[i,j]:6:2);
   write(f,' A[',i:1,',',j:1,']=',a[i,j]:6:2);
   end;
   writeln;
   writeln(f);
   end;  
close(f);
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.01.2020, 12:25
Ответы с готовыми решениями:

Слегка переделать программу
Вот прога uses crt; var a: string; i, k: integer; Begin clrscr; a:='Л И П А'; k:=0;...

Переделать программу из функции в процедуру
Написал программу для расчета НОК для трёх натуральных чисел с помощью функции. Но надо ещё с...

Переделать программу с оператором case
добрый день, можете прогу переделать на оператор case Program task1; var num: integer; x,...

Переделать программу из процедуры в функцию
program v7; uses crt; var a1,b1,c1,a2,b2,c2,S1,S2:real; procedure pl( a,b,c:real; var S:real);...

2
Модератор
60525 / 45538 / 31423
Регистрация: 18.05.2008
Сообщений: 109,447
14.01.2020, 13:34 2
Лучший ответ Сообщение было отмечено DxDiAg как решение

Решение

Pascal
1
If a[1,j]<a[1,j+1] then
1
0 / 0 / 0
Регистрация: 30.12.2019
Сообщений: 6
14.01.2020, 13:50  [ТС] 3
Думал, что придется менять большую часть кода, поэтому даже не проверил
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.01.2020, 13:50

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Переделать программу без until/repeat
var n,m,i,j,k,l,r:longint; begin repeat write('n,m='); readln(n,m); until...

Переделать программу, чтобы выводился ромб из нулей
uses crt; var d,t,p:integer; begin Write('Сколько строк? '); ReadLn(d); WriteLn(); for...

Нужно переделать программу под неполный условный оператор
program z3; var x,y,w,t:real; begin Writeln('Введите значение w,t'); readln(w,t); if...

Переделать программу, чтобы вместо цифр можно было вводить буквы
Народ нужно переделать программу чтобы в месте цифр (1-10) вводить букву program tra; uses CRT;...

Переделать программу, чтобы можно было найти разность максимального и минимального из четырех чисел
Изменить программу так, чтобы с ее помощью можно было найти разность максимального и минимального...

Нужно переделать программу,написанную на Turbo Pascal в ту,чтобы работала на Pascal ABC.NET пожалуйста
program lab2; uses Crt; const Nmax = 15; { MAX element mnozestva A } type T =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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