Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 16.05.2011
Сообщений: 13
1

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

18.12.2013, 22:57. Просмотров 964. Ответов 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
18.12.2013, 22:57
Ответы с готовыми решениями:

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

Одномерные массивы. Переписать задачу с Pascal на Basic
Доброго времени. Помогите, пожалуйста, решить задачу: Дан вектор X(n), вычислить среднюю...

Перепишите пожалуйста код с языка С++ на Visual Basic
Вот кусок кода который нужно переписать на Visual Basic int A=12.83, B=0.863,P=3.14; double o;...

Перепишите пожалуйста код программы с языка Visual Basic в C++
Вот код на языке Visual Basic Randomize Timer Dim A(19) As integer For i=0 to 19...

1
1045 / 315 / 74
Регистрация: 13.07.2013
Сообщений: 1,270
18.12.2013, 23:22 2
Лучший ответ Сообщение было отмечено vlad gadalov как решение

Решение

Я думаю, что-то вроде того:
QBasic/QuickBASIC
1
2
3
4
5
6
7
OPEN "input.txt" FOR INPUT AS #1
INPUT #1, n   'к сожалению, я уже забыл этот оператор - может, он и какой-то другой...
CLOSE #1
IF n>=1 THEN p=n-1 ELSE p=n+1
OPEN "output.txt" FOR OUTPUT AS #1
PRINT #1, p
CLOSE #1
Попробуйте. По идее, должно работать, но я почему-то не уверен.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2013, 23:22

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

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

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

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

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


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

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

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