Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Оператор scanf не считывает с клавиатуры русский символ 'а' http://www.cyberforum.ru/cpp-beginners/thread1040981.html
#include "stdafx.h" #include <locale> #include <Windows.h> #include <WinUser.h> #include <conio.h> #define MAX_STR_LEN 300 void cp866_cp1251(char* s) {
C++ Метод Шелла Помогите пожалуйста, я пока плохо знаю метод Шелла. Разработать программу для расчета времени, необходимого для выполнения сортировки массива методом Шелла. Сортируемую последовательность... http://www.cyberforum.ru/cpp-beginners/thread1040980.html
C++ Перепишите программу из Pascal в C++
Здравствуйте. Прошу вас о помощи. Есть программа на Pascal. Нужно переписать её на C++, чтобы она выполняла такие же операции. Вот код: Program t1; var n: longint; p : int64; begin...
Постройте таблицу значений функции y=f(x) для x[a, b] с шагом h C++
#include"conio.h" #include"stdlib.h" #include"stdio.h" #include"math.h" int main() { float x,y,r,q; do {
C++ Классы, исключения и совершенные числа http://www.cyberforum.ru/cpp-beginners/thread1040964.html
Здраствуйте! Нужно описать класс Magicflower. Для создания объектов этого класса необходимо задать число лепестков цветка, которое должно быть совершенным числом, т.е. если оно равно сумме всех своих...
C++ Как преобразовать String в HWND Можно как то преобразовать String в HWND ? как сделать обратное преобразование то есть из HWND в String разобрался, а вот из String в HWND немогу найти способ. Тип HWND нужен для хранения хендла... подробнее

Показать сообщение отдельно
gadalov21
0 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 3

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

14.12.2013, 14:04. Просмотров 247. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.