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

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

19.12.2012, 04:55. Просмотров 1049. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

1
Paster Fob
293 / 271 / 194
Регистрация: 03.05.2012
Сообщений: 567
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

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

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

Записать массив в одну строку
Допустим у нас есть массив из 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