Форум программистов, компьютерный форум, киберфорум
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 3
1

Перепишите программу из Pascal в C++

14.12.2013, 13:50. Просмотров 365. Ответов 2
Метки нет (Все метки)

Здравствуйте. Прошу вас о помощи. Есть программа на Pascal. Нужно переписать её на C++, чтобы она выполняла такие же операции. Вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program t1;
var   n: longint;
      p : int64;
begin
assign(input,'input.txt');
reset(input);
readln(n);
close(input);
if n>=1 then p:=n-1 else p:=abs(int64(n))+1;
assign(output,'output.txt');
rewrite(output);
write(p);
close(output);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2013, 13:50
Ответы с готовыми решениями:

Перепишите, пожалуйста, программу с pascal на с++
Var a, b, c, m, n, d: integer; L: boolean; begin writeln('a'); read(a); writeln('b');...

Перепишите с Pascal на C++
uses crt; const nmax = 30; type TInfo = record M : real; V : real; end;

Перепишите задачу из Pascal на C++ (Есть условие)
Здравствуйте, прошу о помощи. Решите задачу: В начальной школе Будущего изучали целые числа типа...

дан код на С++ перепишите на Pascal
#include <iostream.h> #include <conio.h> #include <math.h> void main() { clrscr(); int...

2
57 / 57 / 10
Регистрация: 08.12.2013
Сообщений: 257
14.12.2013, 13:58 2
Цитата Сообщение от gadalov21 Посмотреть сообщение
Здравствуйте. Прошу вас о помощи. Есть программа на Pascal. Нужно переписать её на C++, чтобы она выполняла такие же операции. Вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program t1;
var   n: longint;
      p : int64;
begin
assign(input,'input.txt');
reset(input);
readln(n);
close(input);
if n>=1 then p:=n-1 else p:=abs(int64(n))+1;
assign(output,'output.txt');
rewrite(output);
write(p);
close(output);
end.
врятли вам кто нибудь ответит, лучше создайте другую тему с условием задачи.
0
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 3
14.12.2013, 14:18  [ТС] 3
Перепишите задачу из Pascal на C++ (Есть условие) Так и сделал!

Добавлено через 13 минут
Doksim, Перепишите задачу из Pascal на C++ (Есть условие) Так и сделал!

Добавлено через 24 секунды
Doksim, Перепишите задачу из Pascal на C++ (Есть условие)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2013, 14:18

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перепишите задачу из Pascal на Basic (Есть условие)
Здравствуйте, прошу о помощи. Решите задачу: В начальной школе Будущего изучали целые числа...

Перепишите программу с операторами DO LOOP WHILE
перепишите пожалуйста с операторами DO LOOP WHILE программу 10 INPUT N, X 20 S = 1 / X 30 FOR I...

Перепишите, пожалуйста, программу, используя цикл for
#include "stdafx.h" #include <iostream> #include <math.h> using namespace std; int main() {...

Перепишите правильно программу, нахождения последнего слова из строки
Нужно вывести последнее слово из строки, перепишите программу, запуталась #include <stdio.h>...


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

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

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