1 / 1 / 0
Регистрация: 26.03.2021
Сообщений: 31
1

Перевести код с Паскаля на С++

30.03.2021, 21:52. Показов 2602. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
const n=45;
var a,ko,kn,i:integer;
begin
clrscr;
writeln('Введите ',n,' целых чисел:');
ko:=0;
kn:=0;
for i:=1 to n do
 begin
  write('a=',i:2);
  readln(a);
  if(a<0)and(i<=35)then ko:=ko+1;
  if a=0 then kn:=kn+1;
 end;
writeln('Количество отрицательных в первых 35=',ko);
write('Количество нолей всей последовательности=',kn);
readln
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2021, 21:52
Ответы с готовыми решениями:

Каким образом можно перевести код Паскаля в код Фортран?
Здравствуйте уважаемые программисты! Может быть банальная, но довольно сложная проблема - перевод...

Как перевести код с паскаля на Java. Пытался сам но код не хочет работать переведенный
А сам код на паскале работает. Вот код на паскале var i,j,m,c,d: integer; A:array of...

Перевести код паскаля на c#
var c,alpha,a,h,s:real; begin write('Введите длину основания c='); readln(c); write('Введите...

Перевести код с Паскаля на С++
uses crt; type kod=set of char; var N, T: kod; type a=array of string; var...

1
427 / 310 / 129
Регистрация: 09.02.2021
Сообщений: 1,096
Записей в блоге: 1
30.03.2021, 22:01 2
Вроде так (и на будущие домашнее задание лучше не копировать с других языков, если есть задание которой не знаете, задаете вопрос по нему, а не ето):
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include<iostream>
 
using namespace std;
int main()
{
    system("chcp 1251>nul");
    const int n = 45;
    int a, ko, kn, i;
    cout << "Введите " << n << "целих чисел" << endl;
    ko = 0;
    kn= 0;
    for (i = 1; i < n; i++) {
        cin >> a;
        if ((a < 0) && (i <= 35)) ko = ko + 1;
        else if (a == 0) kn = kn + 1;
    }
    cout<<"Количество отрицательных в первых 35="<<ko << endl;
    cout<<"Количество нолей всей последовательности="<<kn;
    system("pause");
    return 0;
}
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2021, 22:01
Помогаю со студенческими работами здесь

Перевести код с Паскаля на C
var f,g: text; s: string; begin assign(f,'F:\text1.txt'); assign(g,'F:\text2.txt');...

Перевести код с паскаля на C++
//Помогите пожалуйста перевести с паскаля на С++ uses crt; type PList=^TList; ...

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

Перевести код с Паскаля на С++
Помогите пожалуйста решить задачу или перевести код с Паскаля на С++ File13. Дан файл целых...

Перевести код из паскаля в с#
Кто сможет перевести кож ниже из паскаля в с#: const cruch=10; ckar=5; clas=2; ...

перевести код с паскаля на си
program pr; const Csize = 10; type Tgranary = record district: string; number:...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru