Вопрос по информатике:
Как сделать теперь без массива (паскале)?
var nm:array of integer;
j,l:integer;
begin
nm:= new integer[3](random(20),random(20),random(20));
writeln('nm[0] = ', nm[0]);
writeln('nm[1] = ', nm[1]);
writeln('nm[2] = ', nm[2]);
writeln();
if nm[0] < nm[1] then begin j:=1 end;
if nm[1] < nm[2] then begin j:=2 end;
if nm[0] = nm[1] then l:= 1;
if nm[0] = nm[2] then if l = 0 then l:= 2 else l:= 4;
if (l <> 4)and (nm[1] = nm[2]) then l:= 3;
case l of
1:writeln('nm[0] = nm[1]');
2:writeln('nm[0] = nm[2]');
3:writeln('nm[1] = nm[2]');
4:writeln('Все числа равны!');
end;
writeln('большее число - nm[',j,'] = ', nm[j]);
end.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.07.2016 16:30
- Информатика
- remove_red_eye 19090
- thumb_up 9
Ответы и объяснения 1
nm:= new integer[3](random(20),random(20),random(20));
так:
nm0:=random(20);
nm1:=random(20);
nm2:=random(20);
Опишите эти три переменные, а в коде просто замените
nm0 вместо nm[0]
nm1 вместо nm[1]
nm2 вместо nm[2]
Так как в программе цикл не используется, можно легко обойтись этими тремя переменными)
- 17.07.2016 01:18
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.