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

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

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

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

14.12.2013, 14:04. Просмотров 228. Ответов 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++ (Есть условие)
Посмотрите здесь:

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

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

Есть код программы на вычисление количества слов, как изменить условие? - C++
Есть код программы, как изменить условие, чтобы вычисляло только количество слов, которые заканчиваются на букву а? #include <iostream> ...

Скажите есть ли в с++ альтернатива оператору case в pascal - C++
Скажите есть ли в с++ альтернатива case как в паскале

Перевести код с Pascal в С++(и там одна ошибка есть) - C++
Program lab; var s,p,q,n,i: integer; begin s:=1; p:=0; q:=0; for i:=1 to n do begin p:=p+cos(i:real);

Дана строка. Определить, сколько в ней символов *, ;, : [Есть код на Pascal] - C++
Нужно перевести этот код на С++ Uses crt; Var s: String; i,k1,k2,k3: Integer; BEGIN Clrscr; Writeln('Введите строку: ');...

Есть ли в C++ условие типа "Если моё окно неактивно"? - C++
День всем добрый. Хотел апгрейдить программу и решил, что лучше будет, если программа запустит функцию только тогда, когда окно...

Перепишите с С на С++ - C++
#include<conio.h> #include<stdio.h> const int N = 10; main(){ int A, i, b; for(i=0; i<N; i++){ ...

Как правильно записать условие "пока в массиве есть элемент, равный 2"? - C++
условие такое: пока в МАССИВЕ есть число 2, делать: ... ... while (2 in mas) - есть что-то типа этого?

Перепишите код - C++
Здраствуйте, помогите пожалуйста переписать код так что бы не через указатель temp, а через вызов функции с тела программы. #include...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Doksim
57 / 57 / 8
Регистрация: 08.12.2013
Сообщений: 257
14.12.2013, 14:33     Перепишите задачу из Pascal на C++ (Есть условие) #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;
}
Yandex
Объявления
14.12.2013, 14:33     Перепишите задачу из Pascal на C++ (Есть условие)
Ответ Создать тему
Опции темы

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