Ввод с клавиатуры и вывод на экран массива из 7 вещественных чисел

@Петюха · Регистрация: 30.06.2014

Студворк — интернет-сервис помощи студентам

Задание такое: Составьте программу ввода с клавиатуры и вывода на экран массива из 7 вещественных чисел.
Я написал программу:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program xxx;
Var a: array [1..7] of real;
    i: integer;
Begin
For i:=1 to 7 do
Begin
WriteLN('Введите элемент массива');
ReadLN(a[i]);
End;
WriteLN('Массив a:');
For i:=1 to 7 do
Write(a[i], ' ');
End.

Правильно ли я написал? Есть какие-либо недочёты?

@Don_Omare · 04.07.2014, 14:58

Все сделали верно. Просто можно немного оформить красивее так сказать.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program xxx;
 
uses
  crt;
 
var
  a: array [1..7] of real;
  i: integer;
 
begin
  writeln('Введите элементы массива ');
  for i := 1 to 7 do
  begin
    Write('a[', i, '] -> ');
    ReadLN(a[i]);
  end;
  WriteLN('Массив a: ');
  for i := 1 to 7 do
    Write(a[i], ' ');
  ReadLN;
end.

@Puporev · 04.07.2014, 15:09

Сообщение от Don_Omare

оформить красивее

Тогда уж так

Pascal
1
Write(a[i]:0:2,' ');

@Don_Omare · 04.07.2014, 15:14

Сообщение от Puporev

Тогда так

Pascal
1
Writeln('a[',i,']= ',a[i]);

В Вашей строчке дробная часть урезается. Это не всегда полезно

@Puporev · 04.07.2014, 15:20

Но Вы же написали вывод в строку

Pascal
1
2
for i := 1 to 7 do
    Write(a[i], ' ');

Выведите и посмотрите.

@Don_Omare · 04.07.2014, 15:26

Сообщение от Puporev

Выведите и посмотрите.

Ввывел значения так же как и вводил, в чем ошибка-то?
Можно дописать еще и 'ln" чтобы было понятнее, как я сделал во 2 коде.
Фактически одно и тоже, только оформление различалтся. Ну это как-бы на вкус. Кому как нравится выводить массив.

Pascal
1
Write(a[i], ' ');

Pascal
1
Writeln('a[',i,']= ',a[i]);

@Puporev · 04.07.2014, 15:28

Извини, я не врубился что ввод с клавы, думал random

@Петюха · 04.07.2014, 15:48 **[ТС]**

Хорошее оформление, но мне кажется, что последний "ReadLN" лишний. А так всё хорошо. Можно ведь сказать, что моя и ваша программа правильные на 100%?

@Cyborg Drone · 04.07.2014, 15:58

Сообщение от Петюха

последний "ReadLN" лишний

Петюха, во многих других версиях паскаля без этого readln программа закроется сразу после последнего write, и результата увидеть не удастся. Здесь форум, и есть поиск по форуму.

Нашёл программу, запустил... А она что-то там моргнула, и всё... Вывод: нерабочая программа. И, с точки зрения необученного студиозуса получится, что Don_Omare программы писать не умеет. Правда, здорово?

@Don_Omare · 04.07.2014, 16:04

Не по теме:

что-то там моргнула :D

@Петюха · 04.07.2014, 16:16 **[ТС]**

Мы сейчас рассматриваем данную программу и у меня вопросы именно к этой программе. Я не сморю, что команда "ReadLN" очень важна, но в этой программе она не много лишняя.

Добавлено через 37 секунд
Да и у меня был вопрос к Don_Omare!

@Cyborg Drone · 04.07.2014, 16:31

Не по теме:

Я модератор. Этим определяется моё поведение на форуме. В том числе и в плане уточнения разночтений. И ещё я должен форум в целом ставить выше отдельных Ваших вопросов, поймите меня правильно.

@Петюха · 04.07.2014, 16:38 **[ТС]**

Я понимаю. Я просто хотел услышать ответ на мой вопрос.

@Cyborg Drone · 04.07.2014, 16:41

Сообщение от Петюха

Можно ведь сказать, что моя и ваша программа правильные на 100%?

Да, это так.

@Петюха · 04.07.2014, 16:45 **[ТС]**

Спасибо. А в программе, которую написал Don_Omare ведь не обязательно писать команду "ReadLN"? Это 2 сообщение. Хочу услышать ваше мнение.

@Puporev · 04.07.2014, 17:00

В Паскаль АВС писать в конце readln не нужно.

@Iriini · 04.07.2014, 17:46

В Паскаль АВС писать в конце readln не нужно.

По правде, нигде это писать не нужно. В Turbo Pascal можно всегда воспользоваться Alt F5, а тестирующие системы не примут ни одну программу с подобным окончанием (readln)

@Cyborg Drone · 04.07.2014, 18:55

Сообщение от Iriini

По правде, нигде это писать не нужно. В Turbo Pascal можно всегда воспользоваться Alt F5

Неверно. К примеру, есть файл 1.pas, скомпилировали, получили 1.exe. Да, Ваш 1.pas будет запускаться из среды турбо паскаль, как Вы планировали, а готовая программа 1.exe (собственно, ради чего и программировали - ради готовой программы) закроется сразу после исполнения. Получается, моргнёт, и всё. Ну и как Вы её рассчитываете запускать на компьютере, где не будет среды турбо паскаль? Зачем эта программа нужна?

Сообщение от Iriini

а тестирующие системы не примут ни одну программу с подобным окончанием (readln)

Мой Вам совет. Людей должны учить люди, а не роботы. И все эти сайты типа "юный программист" ничему хорошему научить не смогут. И судя по Вашему этому посту Вы, наверное, даже и не знали, что программа, в конечном счёте, должна работать без никакого турбо паскаля.

@Iriini · 04.07.2014, 21:43

Вы, наверное, даже и не знали, что программа, в конечном счёте, должна работать без никакого турбо паскаля

Вы наивно полагаете, что только Вы и знаете. Да, особенно в режиме MS DOS подобная программа актуальна сегодня. И на ACM олимпиадах пусть напишут readln!

ради чего и программировали - ради готовой программы

Здесь люди, как правило, учатся программировать и пишут учебные программы, а не exe-приложения.
И не следует прививать им неправильный навык завершения программы. Код должен быть осмысленным.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	04.07.2014, 15:28
	Извини, я не врубился что ввод с клавы, думал random 0

@Петюха 0 / 0 / 0 Регистрация: 30.06.2014 Сообщений: 11
	04.07.2014, 15:48 [ТС]
	Хорошее оформление, но мне кажется, что последний "ReadLN" лишний. А так всё хорошо. Можно ведь сказать, что моя и ваша программа правильные на 100%? 0

@Don_Omare
	04.07.2014, 16:04
	Не по теме: что-то там моргнула :D 0

@Петюха 0 / 0 / 0 Регистрация: 30.06.2014 Сообщений: 11
	04.07.2014, 16:16 [ТС]
	Мы сейчас рассматриваем данную программу и у меня вопросы именно к этой программе. Я не сморю, что команда "ReadLN" очень важна, но в этой программе она не много лишняя. Добавлено через 37 секунд Да и у меня был вопрос к Don_Omare! 0

@Cyborg Drone
	04.07.2014, 16:31
	Не по теме: Я модератор. Этим определяется моё поведение на форуме. В том числе и в плане уточнения разночтений. И ещё я должен форум в целом ставить выше отдельных Ваших вопросов, поймите меня правильно. 0

@Петюха 0 / 0 / 0 Регистрация: 30.06.2014 Сообщений: 11
	04.07.2014, 16:38 [ТС]
	Я понимаю. Я просто хотел услышать ответ на мой вопрос. 0

@Петюха 0 / 0 / 0 Регистрация: 30.06.2014 Сообщений: 11
	04.07.2014, 16:45 [ТС]
	Спасибо. А в программе, которую написал Don_Omare ведь не обязательно писать команду "ReadLN"? Это 2 сообщение. Хочу услышать ваше мнение. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	04.07.2014, 17:00
	В Паскаль АВС писать в конце readln не нужно. 0

Ввод с клавиатуры и вывод на экран массива из 7 вещественных чисел

Решение