0 / 0 / 0
Регистрация: 12.04.2022
Сообщений: 4
1

Перевести с Pascal на с++

13.04.2022, 17:28. Показов 139. Ответов 0

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
const n=8;
type TMatrix=array [1..n,1..n] of Integer;
 
procedure ShowEqRC(const a: TMatrix);
var i, k: Integer;
begin
  Write('Совпадающие строки/столбцы:');
  for k:=1 to n do begin
    i:=n; while (i>0) and (a[k,i]=a[i,k]) do Dec(i);
    if i=0 then Write(' ',k);
  end; WriteLn;
end;
 
procedure SumRN(const a: TMatrix);
var i, j, m, s: Integer;
begin
  WriteLn('Суммы строк с отрицительным элементом:');
  for i:=1 to n do begin
    m:=0; s:=0;
    for j:=1 to n do begin
      if m>a[i,j] then m:=a[i,j];
      s:=s+a[i,j];
    end;
    if m<0 then WriteLn(i,': ',s);
  end;
end;
 
var
  i, j: Integer;
  a: TMatrix;
begin
  WriteLn('Введите матрицу ',n,'x',n,':');
  for i:=1 to n do for j:=1 to n do Read(a[i,j]);
  WriteLn('A =');
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:6); WriteLn;
  end;
  ShowEqRC(a);
  SumRN(a);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.04.2022, 17:28
Ответы с готовыми решениями:

Нужно перевести код из Turbo Pascal в Pascal ABC.NET
Доброго времени суток. На форуме находил похожие темы, но к сожалению так и не смог разобраться....

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.NET Program...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record ...

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of...

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

Нужно перевести код из Turbo Pascal в Pascal ABC
Program n5; { Задача. Описать функцию less(f) от непустого файла f ...

Необходимо перевести программу с Pascal ABC на free pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k,...

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл...

Необходимо перевести программу с Pascal ABC на free pascal
program vozrostan; type Mass=array of longint; func= function(a,b:Longint): boolean; var...

Перевести из Pascal в C++ и наоборот просто перевести обьясните
Перевести c c++ на Pascal #include &lt;stdio.h&gt; main () { char s; float а=86.531; ...

Перевести с Turbo-Pascal на Pascal.ABC.NET
program analize_methods; uses dos; const amax=10000; type ar=array of integer; ar3=array of ar;...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru