Вопрос по информатике:
Как сделать так чтобы все значения массива считывались из одной строки. паскаль
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.11.2017 12:00
- Информатика
- remove_red_eye 2096
- thumb_up 14
Ответы и объяснения 1
var
str, str1: string;
arr: array [1..256] of byte;
i, i2: byte;
err: integer;
begin
readln(str);
str := concat(str, ' ');
for i := 1 to length(str) do
begin
if (str[i] = ' ') then
begin
i2 := i2 + 1;
val(str1, arr[i2], err);
str1 := '';
end
else
str1 := concat(str1, str[i]);
end;
for i := 1 to length(str) do
write(arr[i]:4);
end.
- 05.11.2017 00:26
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.