Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / перевод из c++ в паскаль / 3 сообщений из 3, страница 1 из 1
28.10.2018, 16:53
    #39724109
Diret
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перевод из c++ в паскаль
помогите перевести из с++ в паскаль пожалйста
Код: plaintext
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.
#include <iostream>
#include <cstdlib>
#include <cmath>
#include <ctime>
using namespace std;
int main()
{
    setlocale(LC_ALL, "Rus");
    srand(time(NULL));
    int N, K, qual;
    cout << "Введите количество учеников : ";
    cin >> N;
    cout << "Введите количество предметов : ";
    cin >> K;
    int **Arr = new int*[N];
    for (int i = 0; i < 10; i++){
        Arr[i] = new int[K];
    }
    for (int i = 0; i < N; i++){
        cout << "Ученик " << i + 1 << " : ";
        for (int j = 0; j < K; j++){
            Arr[i][j] = 2 + rand() % 4;
            cout << Arr[i][j] << "\t";
        }
        cout << endl;
    }
    qual = 0;
    for (int i = 0; i < N; i++){
        for (int j = 0; j < K; j++){
            if (Arr[i][j] == 5){
                qual++;
                break;
            }
        }
    }
    qual = N - qual;
    cout << "Количество учеников , не получивших ни одной 5 : " << qual << endl;
    for (int i = 0; i < 10; i++){
        delete[] Arr[i];
    }
    delete[] Arr;
    system("Pause");
    return 0;
}



Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
28.10.2018, 17:23
    #39724115
Dimitry Sibiryakov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перевод из c++ в паскаль
Фигурные скобки заменяются на begin-end. cout = Writeln. Остальное тоже мелочь. В чём
проблема-то?
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
28.10.2018, 22:58
    #39724187
Siemargl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
перевод из c++ в паскаль
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / перевод из c++ в паскаль / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]