Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Petro29
8 / 8 / 3
Регистрация: 30.04.2016
Сообщений: 355
1

Массив с заданным числом элементов

10.09.2017, 11:16. Просмотров 165. Ответов 2
Метки нет (Все метки)

Массив с заданным числом элементов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program Mass;
uses Crt;
const N = 10;
var A: array [1..10] of integer;
           i: integer;
begin
ClrScr;
        writeln(' Введённый массив:');
    Randomize;  {Randomize не обязателен.
for i:= 1 to N do begin
A[i]:= Random(50);
   write(A[i]:4);
     readln
end.
На выходе имеем:
Pascal
1
2
Введённый массив:
36   14   29   30   15   43   32   5   9   6
Здесь ввод случайных чисел. А как ввести свои числа массива в одну строку,
да так, чтобы для вывода использовать один цикл.
В QBasic и в Java ввод чисел массива можно делать в одну строку.
А как в Паскале это сделать?

Вот программа в Паскале, в которой ввод чисел массива делается
множеством строк (в ней 5 строк).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Program Massiv;
uses Crt;
const N = 5;
var A: array [1..N[ of integer;
           i: integer;
begin
ClrScr;
     for i:= 1 to N do begin
write(' Ввести эл-т с индексом ',i,': ');
  readln(A[i]);
end;
      writeln;
  writeln(' Введённый массив:');
for i:= 1 to N do
  write(A[i]:4);
   readln
end.
На выходе имеем:
Pascal
1
2
3
4
5
Ввести эл-т с индексом 1: 6
    Ввести эл-т с индексом 2: 8
    Ввести эл-т с индексом 3: 9
    Ввести эл-т с индексом 4: 12
    Ввести эл-т с индексом 5: 7
Здесь 5строк ввода. А как 5 значений ввести в одну строку?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.09.2017, 11:16
Ответы с готовыми решениями:

Заполнить массив из пятнадцати элементов заданным образом
Заполнить массив из пятнадцати элементов таким образом, чтобы значения...

Массив. Найти количество элементов массива, удовлетворяющих заданным условиям
кто поможет спс заранее)))) Задать одномерный массив из 10 элементов случайным...

Заполнить массив из N элементов с начальном значением заданным А[0]≠0,по принципу A[I]=A[I DIV 2]+A[I-1]
Ребят, очень срочно надо. Помогите, пожалуйста решить программу с одномерными...

Построение идеально сбалансированного двоичного дерева с заданным числом вершин
Построение и обход идеально сбалансированных двоичных деревьев. Реализовать...

Разработать программу для вычисления суммы с заданным числом членов
Разработать программу для вычисления суммы с заданным числом членов

2
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,429
10.09.2017, 11:23 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
const n=5;
var a:array [1..n] of integer;
    i:integer;
begin
clrscr;
writeln('Введите ',n,' целых чисел в строку через пробел');
for i:=1 to n do
read(a[i]);{вводим число, пробел}
readln;{закончили ввод, Enter}
readln
end.
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3906 / 2563 / 2085
Регистрация: 22.11.2013
Сообщений: 7,178
10.09.2017, 11:54 3
На самом деле Read(числовая_переменная) считает разделителями чисел любые пробельные символы: пробелы, табуляции, переводы строк, переводы страниц и т.п. Ввод буферизован, т.е. до нажатия Enter новые числа во входной поток не попадают, иллюстрация:
Pascal
1
2
3
4
5
6
7
var n: Integer;
begin n:=-1;
  while n<>0 do begin
    Read(n); Write(n);
  end; ReadLn;
  Write('Press Enter...'); ReadLn;
end.
Запустите, введите несколько чисел через пробел. Раньше нажатия Enter никакого вывода не случится. Окончание ввода -- число 0.

Добавлено через 3 минуты
ReadLn в строке 5 извлечёт оставшийся там после нажатия Enter перевод строки и тут же завершится, а ReadLn в строке 6 будет вновь ждать нажатия Enter.

Добавлено через 3 минуты
Считайте, что входной поток -- это текстовый файл. Оно на самом деле так и есть, Read/ReadLn, когда первым параметром не указана файловая переменная, читают из файла input типа Text, т.е. такие вызовы эквивалентны Read(input, ...), ReadLn(input, ...).
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.09.2017, 11:54

Операции с файлами. Создайте файл из чисел, после чего заменить значение 8-го элемента файла заданным числом
2. Создайте файл из чисел от &quot;11&quot; до &quot;24&quot;, после чего заменить значение 8-го...

Из элементов массива А сформировать массив В заданным образом
Помогите пожалуйста с решением массива : Дан массив А(К). Из элементов массива...

Построить правильный многоугольник с заданным числом сторон.
Построить правильный многоугольник с заданным числом сторон.


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

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

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