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

Перепишите задачу из Pascal на C++ (Есть условие)

14.12.2013, 14:04. Просмотров 968. Ответов 1
Метки нет (Все метки)

Здравствуйте, прошу о помощи. Решите задачу:

В начальной школе Будущего изучали целые числа типа Longint, который они взяли из языка Pascal. Для наглядности, ученики нарисовали прямую, отмерили единичный отрезок, сделали на ней насечки и ставили точки, которые соответствовали этим числам. На прямой “основной“ точкой является единица, и все измерения производятся от неё. Следует определить расстояние от нарисованной целочисленной точки А до этой центральной точки.

Входные данные (файл input.txt):
В одной и единственной строке число А – нарисованная точка.
Выходные данные (файл output.txt):
Выведите число – расстояние до нарисованной точки А.

Пример 1:

Входные данные (файл input.txt):
5
Выходные данные (файл output.txt):
4

Пример 2:
Входные данные (файл input.txt):
1
Выходные данные (файл output.txt):
0

Вот решение на Pascal:

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
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2013, 14:04
Ответы с готовыми решениями:

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

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

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

Надо исправить задачу (ошибка пишет в while) или перепишите вместо while, в for
var a:array of integer; st:array of integer; rez:array of integer; sum,i,j,k,x,s,n:integer;...

1
57 / 57 / 10
Регистрация: 08.12.2013
Сообщений: 257
14.12.2013, 14:33 2
Лучший ответ Сообщение было отмечено gadalov21 как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#include <fstream>
using namespace std;
 
int main()
{
 fstream f;
 int n;
 f.open( "input.txt", ios::in );
 f >> n;
 f.close();
 
 fstream f1;
 f1.open( "output.txt", ios::out );
 if( n >= 1 )
 f1 << n - 1;
 else f1 << abs( n ) + 1;
 
 f1.close();
 
 return 0;
}
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.12.2013, 14:33

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

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

Есть ли аналог модуля tpdate.tpu (Turbo Pascal) для Free Pascal
Внимание! Нужно срочно узнать название юнита для freepascal, который выполняет функции tpdate.tpu...

Нужно дорешать задачу. Необходимое и достаточное условие
В равнобедренный треугольник с основанием 60 см и боковой стороной 50 см вписан прямоугольник...

Перевести из Pascal задачу
Пусть элементами прямоугольного равнобедренного треугольника являются: 1) катет а; 2) гипотенуза...


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

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

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