перевод из pascal и basic в C++

@danyafrolovvv · Регистрация: 12.10.2022

Студворк — интернет-сервис помощи студентам

На плоскости задан N-угольник координатами своих вершин.
Определить, сколько его вершин принадлежат осям координат.

Решение на Бейсике:
10 INPUT "Введите количество углов ";N
20 K=0 'Счетчик вершин, принадлежащих осям
30 FOR I=1 TO N 'Цикл на N повторов
40 PRINT "Введите координаты";I;"-ой вершины";
50 INPUT X, Y
60 IF Y*X=0 THEN K=K+1 'Если произведение координат
62 'равно 0, то K увеличить на 1
70 NEXT I
80 PRINT K;"вершин" 'Вывод результата

Решение на Паскале:
Var
N: Word;
k: Word;
i: Word; {Счетчик вершин, принадлежащих осям}
x, y: Real;
Begin
Write('Введите количество углов ');
Readln(N);
k:=0;
For i:=1 to N do {Цикл на N повторов}
begin
Write('Введите координаты ',i,'-ой вершины ');
Readln(x,y);
if x*y=0 then inc(k); {Если произведение координат
равно 0, то k увеличить на 1}
31
end;
Writeln(k,' вершин') {Вывод результата}
End.

@Volga_ · 12.10.2022, 14:56

Сообщение от danyafrolovvv

Решение на Бейсике:

Вот только перевожу ваш код на Си++:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <iostream>
int main()
{
    int N;
    std::cout << "Введите количество углов "; std::cin >> N;
    int K = 0; // Счетчик вершин, принадлежащих осям
    for (int I = 1; I <= N; I++) // Цикл на N повторов
    {
        std::cout << "Введите координаты " << I << "-ой вершины";
        int X, Y;
        std::cin >> X >> Y;
        if (Y * X == 0) K++; // Если произведение координат
                             //равно 0, то K увеличить на 1
    }
    std::cout << K << " вершин"; // Вывод результата
    return 0;
}

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@danyafrolovvv 0 / 0 / 0 Регистрация: 12.10.2022 Сообщений: 2

	перевод из pascal и basic в C++ 12.10.2022, 14:26. Показов 617. Ответов 1 Метки basic, c++, Pascal (Паскаль) (Все метки) На плоскости задан N-угольник координатами своих вершин. Определить, сколько его вершин принадлежат осям координат. Решение на Бейсике: 10 INPUT "Введите количество углов ";N 20 K=0 'Счетчик вершин, принадлежащих осям 30 FOR I=1 TO N 'Цикл на N повторов 40 PRINT "Введите координаты";I;"-ой вершины"; 50 INPUT X, Y 60 IF YX=0 THEN K=K+1 'Если произведение координат 62 'равно 0, то K увеличить на 1 70 NEXT I 80 PRINT K;"вершин" 'Вывод результата Решение на Паскале: Var N: Word; k: Word; i: Word; {Счетчик вершин, принадлежащих осям} x, y: Real; Begin Write('Введите количество углов '); Readln(N); k:=0; For i:=1 to N do {Цикл на N повторов} begin Write('Введите координаты ',i,'-ой вершины '); Readln(x,y); if xy=0 then inc(k); {Если произведение координат равно 0, то k увеличить на 1} 31 end; Writeln(k,' вершин') {Вывод результата} End. 0