Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
WotS
0 / 0 / 2
Регистрация: 15.12.2012
Сообщений: 45
#1

Вывод значений в одну строку в цикле - Turbo Pascal

19.12.2012, 04:55. Просмотров 971. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
var n: integer;      
 begin
  for n:=5 downto 1 do
  writeln(n);
  readln;
 end.
Если просто нажать на F9, то паскаль выдаст в столбик значения 5 4 3 2 1. Это круто, но Мне нужно, что бы паскаль выдал их в строчку, или в массив. Что бы Я потом смог из этих цифр сделать string с помощью str.

Добавлено через 6 минут
блин, проблему решил. Вместо writeln нужно было write писать. Но теперь такой вопрос:
Pascal
1
2
3
4
5
6
7
var n,i: integer;       
 begin
  for n:=5 downto 1 do
  i:=ord(n);
  write(i);
  readln;
 end.
Что Я делаю не так? По идее он должен был выдавать код АСКИ этих цифр (54321) а он выдаёт просто 1.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.12.2012, 04:55
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывод значений в одну строку в цикле (Turbo Pascal):

Ввод значений элементов массива в одну строку
Получен ответ на тему: Ввод значений элементов массива в одну строку. Вот...

Вывод данных на экран в одну строку
uses crt; var a,b,c,d:integer; begin clrscr; writeln('Выберите чем...

Ввод и вывод данных в одну строку
можно ли в pascal ввести цифру и затем вывести ее в одну строку чтобы...

Вывод в одну строку
Уважаемые посетители форума. Мне нужна ваша помощь. Задча прстая ,как два...

Первую упорядоченную по возрастанию строку матрицы поставить на первое место, все остальные сдвинуть вниз на одну строку
Дана целочисленная прямоугольная матрица. Первую ее строку, элементы которой...

Файлы. В цикле while…do расширьте файл за счет добавления новых значений
1. Составьте программу, которая создает файл из пяти значений типа real. Тип...

1
Paster Fob
293 / 271 / 194
Регистрация: 03.05.2012
Сообщений: 566
19.12.2012, 05:56 #2
Цитата Сообщение от WotS Посмотреть сообщение
Что Я делаю не так?
после do цикл действует только на следующий оператор,что бы их было несколько в цикле нужно ставить операторные скобки begin end
Pascal
1
2
3
4
5
6
var i:integer;
begin
  for i:=5 downto 1 do 
    write(ord(i),' ');
  readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.12.2012, 05:56
Привет! Вот еще темы с решениями:

Универсальный перевод в одну строку
Помогите, кто может! Необходимо написать некое уравнение в одну строчку которое...

Записать массив в одну строку
Допустим у нас есть массив из 10 чисел. a:=1; a:=2; a:=34; ... a:=42; его...

Осуществить вывод значений аргумента и функции, сопровождая вывод наименованиями переменных
Вычислить значение функции, заданной в таблице. Осуществить вывод значений...

Осуществить вывод значений аргумента и функции, сопровождая вывод наименованиями переменных
вычислить значение функции, заданной в таблице. Осуществить вывод значений...


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

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

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