Ввод с клавиатуры и вывод на экран массива из 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-приложения.
И не следует прививать им неправильный навык завершения программы. Код должен быть осмысленным.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	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 Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	04.07.2014, 17:00
	В Паскаль АВС писать в конце readln не нужно. 0

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

Решение