Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Gabdra
1 / 1 / 0
Регистрация: 23.12.2013
Сообщений: 112
#1

Нужно код делфи переписать на паскаль - Pascal ABC

26.12.2013, 19:09. Просмотров 221. Ответов 1
Метки нет (Все метки)

Дан двухмерный массив размером nxn, заполненный целыми числами
а) все его отрицательные элементы записать в одномерный массив
б) все его четные элементы записать в один одномерный массив, а нечетные -в другой


Delphi
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
var
n, k, i, j : integer;
s1, s2, s3 : integer;
begin
n := StrToInt (Edit1.Text);
s1 := 1; s2 := 1; s3 := 1;
StringGrid2.ColCount := 1;
StringGrid3.ColCount := 1;
StringGrid4.ColCount := 1;
for i := 1 to n do begin
for j := 1 to n do begin
 
k := StrToInt (StringGrid1.Cells [i-1, j-1]);
if k < 0 then begin
StringGrid2.Cells [s1 - 1, 0] := IntToStr (k);
s1 := s1 + 1;
StringGrid2.ColCount := StringGrid2.ColCount + 1;
end;
if ((k > 0) and (k mod 2 = 0)) then begin
StringGrid3.Cells [s2 - 1, 0] := IntToStr (k);
s2 := s2 + 1;
StringGrid3.ColCount := StringGrid3.ColCount + 1;
end;
if ((k >0) and (k mod 2 <> 0)) then begin
StringGrid4.Cells [s3 - 1, 0] := IntToStr (k);
s3 := s3 + 1;
StringGrid4.ColCount := StringGrid4.ColCount + 1;
end;
end;
end;
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2013, 19:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужно код делфи переписать на паскаль (Pascal ABC):

Нужно с C++ переписать программу на паскаль с пояснением - Pascal
#include&lt;string.h&gt; #include&lt;stdio.h&gt; #include&lt;iostream&gt; using namespace std; const int nUspev = 5; struct Student ...

Нужно с C++ переписать программу на паскаль с пояснением - Pascal
Буду очень признателен) #include &lt;iostream&gt; using namespace std; int main() { setlocale(0,&quot;&quot;); // Чтобы корректно...

Нужно перевести код из С++ в Паскаль - Pascal
Язык С++ совершенно не знаю, а времени чтобы понять его -нет. Завтра уже нужно сдавать программу. Помогите, пожалуйста! #include...

Перевод с делфи на паскаль - Pascal
Помогите пожалуста перевести коды с делфи на паскаль :wall: Буду очень благодарен const n=10; var a:arrayof integer; ...

Переписать с СИ++ на Паскаль - Pascal
Нужно переписать код программы на Паскаль (кто умеет, можно на КуМИР) ...

Переписать на Паскаль - Pascal
Доброго дня, уважаемые форумчане. Тут такое дело: попросили написать простую прогу, сам я паскаль не знаю, но написал ее на Си. Вот код:...

1
El41
For i:=0 to 150 do
197 / 88 / 38
Регистрация: 05.01.2012
Сообщений: 252
26.12.2013, 20:13 #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
57
var
a:array[1..5,1..5] of integer;
otr:array[1..25] of integer;//отрицательные
cht:array[1..25] of integer;//четные
ncht:array[1..25] of integer;//не четные
i,j,n,n1,n2:byte;
begin
writeLn('Исходный массив');
for i:=1 to 5 do
  begin
    for j:=1 to 5 do
      begin
      a[i,j]:=5-random(10);
      write(a[i,j],' ');
      end;
  writeln();
  end;
 n:=1;n1:=1;n2:=1; 
for i:=1 to 5 do
  begin
    for j:=1 to 5 do
      begin
      if a[i,j]<0 
        then 
          begin
            otr[n]:=a[i,j];
            inc(n);
          end;
      
      if a[i,j] mod 2=0 
        then 
          begin
            cht[n1]:=a[i,j];
            inc(n1);
          end
        else 
          begin
            ncht[n2]:=a[i,j];
            inc(n2);
          end;
      end;
      
  end;
  writeln('Отрциательные элементы');
  for i:=1 to n-1 do
  write(otr[i],' ');
  WriteLn;
  writeln('Четные элементы');
  for i:=1 to n1-1 do
  write(cht[i],' ');
  writeln;
  writeln('Нечетные элементы');
  for i:=1 to n2-1 do
  write(ncht[i],' ');
Readln;
 
end.
Мб кривовато, но работает.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.12.2013, 20:13
Привет! Вот еще темы с ответами:

Перевести программу из делфи в паскаль - Pascal
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, ...

Программма с матрицей, Паскаль/Делфи - Pascal
Сижу на зачете. Короче, препод задал такое задание: Зашифровать например свое имя с помощью матрицы в паскале. Ну в моем случае имя...

нужно переделать с С++ на паскаль - Pascal
#include &quot;stdafx.h&quot; #include &lt;iostream&gt; #include &quot;windows.h&quot; #include &lt;iomanip&gt; #include &lt;cassert&gt; using namespace std; ...

Решити нужно перевести из паскаля в делфи - Pascal
1) var a,b:array of integer; i,j,min,n,k:integer; begin repeat Write('n='); Readln(n); until n in ; for i:=1 to n do ...


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

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

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