Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Gabdra
1 / 1 / 2
Регистрация: 23.12.2013
Сообщений: 112
#1

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

26.12.2013, 19:09. Просмотров 830. Ответов 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
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2013, 19:09
Ответы с готовыми решениями:

Нужно переписать задачу с с (c++) на паскаль
int ans = a + b + c; ans = max(ans, (a + b) * c); ans = max(ans, a * (b +...

Нужно с C++ переписать программу на паскаль с пояснением
#include&lt;string.h&gt; #include&lt;stdio.h&gt; #include&lt;iostream&gt; using namespace std;...

Нужно с C++ переписать программу на паскаль с пояснением
Буду очень признателен) #include &lt;iostream&gt; using namespace std; int...

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

Перевод с делфи на паскаль
Помогите пожалуста перевести коды с делфи на паскаль :wall: Буду очень...

1
El41
For i:=0 to 150 do
197 / 88 / 97
Регистрация: 05.01.2012
Сообщений: 252
26.12.2013, 20:13 #2
Лучший ответ Сообщение было отмечено Gabdra как решение

Решение

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

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

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

Перевести программу из делфи в паскаль
unit Unit1; interface uses Winapi.Windows, Winapi.Messages,...


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

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

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