Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
gadalov21
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 3
#1

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

14.12.2013, 14:04. Просмотров 234. Ответов 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.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.12.2013, 14:04
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перепишите задачу из Pascal на C++ (Есть условие) (C++):

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

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

Есть метод класса внутри , есть проверка. Если условие сходится то метод должен выдать указатель, иначе булевую переменную - C++
Есть метод класса внутри которого, посередине, есть проверка. Если условие сходится то метод должен выдать указатель на вектор, а если нет...

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

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

дан код на С++ перепишите на Pascal - Pascal
#include <iostream.h> #include <conio.h> #include <math.h> void main() { clrscr(); int n,i,z=-1,min,s=0; cout<<" ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Doksim
57 / 57 / 8
Регистрация: 08.12.2013
Сообщений: 257
14.12.2013, 14:33 #2
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;
}
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.12.2013, 14:33
Привет! Вот еще темы с ответами:

Перевести задачу с C++ на Pascal - Pascal
Помогите перевести задачу с C++ на Pascal #include &lt;fstream&gt; using namespace std; void culc (int, int, int); struct rec { ...

Переписать задачу на Pascal - Turbo Pascal
Товарищи, пожалуйста помогите переписать задачи с С++ на Pascal. Хотя бы чуть-чуть, я буду очень Вам благодарен. 1.#include...

Переделать задачу с с++ на pascal - Pascal ABC
#include &lt;stdio.h&gt; #define len 10 // количество чисел в массиве ////////// MAIN /////////// int main(){ int massiv = {...

Объединить две задачи в одну, либо дописать второе условие в задачу - PascalABC.NET
.блок-схему Добрый день , некак не могу сдать задачу , у него 2 условия , есть решеные условия, но отдельно друг от друга , и нужно бы их...


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

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

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