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

С++ для начинающих

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

вопрос по интерпретации - C++

23.05.2010, 09:25. Просмотров 228. Ответов 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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
uses crt;
const n=6;
      m=5;
function Prost(z:integer):boolean;{функция логического типа, определяет простое или нет}
var i:integer;
begin
for i:=2 to round(sqrt(z))do{делим число по порядку от 2 до корня из числа, дальше нет смысла}
if z mod i=0 then {если на что-то делится}
   begin
     Prost:=false; {то не простое}
     break;
   end;
end;
 
var a:array[1..n,1..m]of integer;
    b:array[1..m]of integer;
    i,j,l,sm,x,y:integer;
begin
clrscr;
randomize;
writeln('Ishodnaia matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
           begin
       a[i,j]:=random(40)+1;
             write(a[i,j]:4);
           end;
          writeln;
  end;
for j:=1 to m do {идем по столбцам вправо}
   begin
      sm:=0;
      for i:=1 to n do {идем по столбцу вниз}
        begin
          if Prost(a[i,j]) then {если простое}
          sm:=sm+a[i,j];{суммируем}
          b[j]:=sm;  {заносим в массив}
        end;
   end;
for i:=1 to m-1 do
for j:=i+1 to m do
if b[i]<b[j] then {по убыванию сумм}
   begin
    x:=b[i]; {сортируем массив сумм}
    b[i]:=b[j];
    b[j]:=x;
    for l:=1 to n do
     begin
       y:=a[l,i]; {сортируем в строках, переставляем столбцы}
       a[l,i]:=a[l,j];
       a[l,j]:=y;
     end;
   end;
Writeln('Rrzultat:');
for i:=1 to n do
   begin
     for j:=1 to m do
     write(a[i,j]:4);
     writeln;
   end;
writeln('Harakteristiki stolbcov:');
for i:=1 to m do
write(b[i]:4);
readln
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2010, 09:25
Здравствуйте! Я подобрал для вас темы с ответами на вопрос вопрос по интерпретации (C++):

прога для интерпретации #define - C++
надо реализовать простой препроцессор языка С, способный выполнять замены в тексте, заданные с помощью директивы #define (в том числе...

Технологии синтаксического анализа и интерпретации команд - C++
Составить программу, которая проверяет корректность арифметических выражений, в которых могуть быть скобки трех типов &quot;()&quot;, &quot;&quot;, &quot;{}&quot; и...

Вопрос по массивав, "институтский" вопрос. - C++
Готовлюсь к летней сессии по программированию. С++ Есть такая вот задачка (привожу как есть) В документации подобного не...

Скорость интерпретации - PHP
Доброго времени суток! Дело в том что по сложившимся обстоятельствам мне приходится переходить на PHP. Раньше я писал исключительно на...

интерпретации арифметического выражения - Prolog
Спасите Меня! Есть задачка, надо написать в пролог и лисп, сама разобраться не успею, а сдавать экзамен очень уж не хочется!!! Заранее...

Формула логики предикатов в интерпретации фи - Логика и множества
Помогите, пожалуйста, дайте хотя бы идею как это решать. Найти значение формулы логики предикатов по данной интерпретации \varphi. ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2010, 09:25
Привет! Вот еще темы с ответами:

Особенности выделения памяти при интерпретации - Assembler
Windows XP В среде Borland Delphi 7 отключена оптимизация при генерации кода. Создано консольное приложение. Написана примитивная...

Как вызвать метод в окне интерпретации - C#
Как вызвать метод в окне интерпретации в #? Я ввожу метод ReadMatrix(ReadMatrix()) и мне выдается сообщение: Требуется идентификатор что...

тест цветовых выборов Люшера(алгоритм интерпретации) - Алгоритмы
добрый день суток. помогите понят и напасти алгоритм интерпретации тест Люшера. или может у кого нибудь уже есть готовый решения. тут...

По графической интерпретации задачи определите, какое значение примет целевая функция - Методы оптимизации
Изучил весь раздел по симплекс методу учебника Таха 'Введение в исследование операций', но так и не понял условие этого задания,: По...


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

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

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