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

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

18.12.2013, 22:57. Просмотров 862. Ответов 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)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.12.2013, 22:57
Ответы с готовыми решениями:

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

BASIC и Pascal ?
Скажите языки BASIC и Pascal пахожи ? или написание чемто отличаеца ?

Перевод из Pascal в Basic
Переведите пожалуйста из Pascal в Basic! Задание 1: Заполнить файл f N целых...

Перевести программу на Pascal в Basic
Доброго времени суток, уважаемые форумчане. Возникла такая проблема, девушка...

Перевести программу на Pascal в Basic
Само задание выглядит так Числа Фибоначчи F определяются по формулам F0=F1=1,...

1
Good-Morning
1042 / 313 / 73
Регистрация: 13.07.2013
Сообщений: 1,269
Завершенные тесты: 2
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
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2013, 23:22

Работа с массивами. Перевод программы с C++ и Pascal на Basic
Готовые программы на C++ и Pascal. Не знакома с синтаксисом Basic, переведите...

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

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


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

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

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