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

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

10.09.2017, 11:16. Просмотров 155. Ответов 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 значений ввести в одну строку?
http://www.cyberforum.ru/turbo-pascal/thread890701.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.09.2017, 11:16
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Массив с заданным числом элементов (Turbo Pascal):

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

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

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

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

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

2
Puporev
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,299
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
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
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
Привет! Вот еще темы с решениями:

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

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

Разработка циклических программ с заданным числом по-вторений
задача в документе

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


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

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

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