Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 12.10.2010
Сообщений: 18

с паскаля на с++

29.11.2011, 22:12. Показов 1131. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
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
Program z1; 
uses crt; 
const 
n=10; 
type 
matr = array[1..n,1..n] of integer; 
 
var 
i,j,ks1,ks2,min:integer; 
a:matr; 
summb:boolean; 
 
procedure summd(m1:matr; var m:integer); 
var i,j,k:integer; 
s:array[1..n*2] of integer; 
begin 
k:=0; 
for i:=1 to n do begin 
for j:=1 to n do begin 
s[j+k]:=s[j+k]+abs(a[i,j]); 
end; 
k:=k+1; 
end; 
m:=s[1]; 
for i:=1 to n*2-1 do 
if s<m>; 
end; 
function sum(j:integer):integer; 
var i,s:integer; 
begin 
for i:=1 to n do s:=s+a[i,j]; 
sum:=s; 
end; 
begin 
clrscr; 
randomize; 
for i:=1 to n do begin 
for j:=1 to n do begin 
a[i,j]:=random(50)-25; 
write(a[i,j]:3); 
end; 
writeln; 
end; 
writeln; 
for j:=1 to n do begin 
summb:=true; 
for i:=1 to n do begin 
if a[i,j]<0 then summb:=false; 
 
end; 
if summb then begin 
writeln('Summa ',j,' stolbca = ',sum(j)); 
ks1:=ks1+1; 
end; 
 
end; 
if ks1=0 then writeln('Net stolbcov ne soderj otric el-v!'); 
summd(a,min); 
writeln('Minimalnaya summa diagonalei paral gl diag: = ',min); 
readkey; 
end.
помогите плиз
перевести в с++
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
29.11.2011, 22:12
Ответы с готовыми решениями:

Закрыть вкладки Паскаля при исполнении Паскаля
В Паскаль АВС.Нет открыто несколько вкладок. Запускается следующая программа (вкладка). Как в нее...

Построить треугольник Паскаля. Используя треугольник Паскаля, вычислить 𝑘−ое число Фиббоначчи. Нумерация чисел Фиббона
#include &lt;iostream&gt; using namespace std; int main() { setlocale(LC_ALL, &quot;Russian&quot;); ...

с паскаля на Си++
uses crt; var a:array of integer; i,n,max,min:integer; c:char; begin ClrScr; repeat...

1
 Аватар для HighPredator
6045 / 2160 / 753
Регистрация: 10.12.2010
Сообщений: 6,005
Записей в блоге: 3
30.11.2011, 21:13
Лучший ответ Сообщение было отмечено love.coffee как решение

Решение

Цитата Сообщение от love.coffee Посмотреть сообщение
Pascal
1
if s<m>;
Что это?

Добавлено через 20 минут
C++
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
67
68
69
70
71
72
73
#include<iostream>
#include<time.h>
 
using namespace std;
 
#define n 10
 
typedef int matr[n][n];
 
int i,j,ks1,ks2,_min;
matr a;
bool summb;
 
void summd(matr m1,int m)
{
    int i,j,k;
    int s[n*2];
    k=0;
    for(i=0;i<n;i++)
    {
        for(j=0;j<n;j++)
        {
            s[j+k]=s[j+k]+abs(a[i][j]);
        }
        k++;
    }
    m=s[1];
    for(i=0;i<n*2;i++)
    {
        //тут ваш страшный if
    }
}
 
int sum(int j)
{
    int i,s;
    for(i=0;i<n;i++) s=s+a[i][j];
    return s;
}
 
int main()
{
    system("cls");
    srand(time(0));
    for(i=0;i<n;i++)
    {
        for(j=0;j<n;j++)
        {
            a[i][j]=rand()%50-25;
            cout<<a[i][j];
        }
        cout<<endl;
    }
    cout<<endl;
    for(j=0;j<n;j++)
    {
        summb=true;
        for(i=0;i<n;i++)
        {
            if(a[i][j]<0) summb=false;
        }
        if(summb) 
        {
            cout<<"Summa "<<j<<" stolbca = "<<sum(j);
            ks1++;
        }
    }
    if(ks1==0) cout<<"Net stolbcov ne soderj otric el-v!"<<endl;
    summd(a,_min);
    cout<<"Minimalnaya summa diagonalei paral gl diag: = "<<_min<<endl;
    getchar();
    return 0;
}
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.11.2011, 21:13
Помогаю со студенческими работами здесь

С паскаля на С++
Всем добрый вечер!! Вот сама задача.....Дана квадратная матрица порядка M. Обнулить элементы...

С паскаля на С#
Здравствуйте ! Есть программа на паскале. Суть: удаление в каждом слове, написанном через пробел,...

с паскаля в с++
помогите перевести с код паскаля в с++ program MYstring; var len1, len2:byte; s1, s2:...

Из Паскаля на СИ
const c = 9; var a, b, x, y: real; begin write('Введите x: '); readln(x); b := x +...

Из Паскаля на С++
Здравствуйте. Помогите переписать это решение на C++. uses crt; var a:integer; function...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru