М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
leloneltt
leloneltt
25.09.2020 02:51 •  Информатика

Нужна : надо решить по информатике.(язык - раscal abc) 1. дан ряд чисел от 1 до 100, найти корень квадратный из суммы всех четных чисел. 2.дан массив, найти произведение квадратов всех элементов массива . 3.дан массив, найти сумму элементов стоящих на нечетных местах. заранее

👇
Ответ:
lobodapo
lobodapo
25.09.2020
//задача 1program _sqrt;var ar:array[1..100] of integer;i:integer;Res:real;beginfor i:=1 to 100 do ar[i]:=i;for i:=1 to 100 do if ar[i] mod 2=0 then res:=res+ar[i];res:=sqrt(res);write(res);end.
//задача 2. 100 элементов слишком много для произведенияprogram _sqrt;var ar:array[1..10] of integer;i:integer;res:int64;beginres:=1;for i:=1 to 10 dobeginar[i]:=i;res:=res*sqr(ar[i]);end;write(res);end.
//задача 3program _sqrt;var ar:array[1..100] of integer;i:integer;res:int64;beginfor i:=1 to 100 dobeginar[i]:=i;if ar[i] mod 2=1 then res:=res+ar[i];end;write(res);end.
4,7(45 оценок)
Открыть все ответы
Ответ:
kadri1
kadri1
25.09.2020
Современные версии программного обеспечения (и в том числе, для языка Паскаль) позволяют в короткие сроки создавать очень короткие, наглядные и эффективные решения.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a.Where(x->x<0).Concat(a.Where(x->x>=0)).Println
end.

Тестовое решение
88 94 55 -38 43 -72 3 -26 -1 -23 84 93 40 -8 -25 77 4 39 -50 3
-38 -72 -26 -1 -23 -8 -25 -50 88 94 55 43 3 84 93 40 77 4 39 3

Замечание:
Если стоит задача получить именно массив, а потом его вывести, можно написать так:
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
  var a:=ArrRandom(20,-99,99); a.Println;
  a:=a.Where(x->x<0).Concat(a.Where(x->x>=0)).ToArray;
  a.Println
end.
4,6(13 оценок)
Ответ:
2727472927у
2727472927у
25.09.2020

1 Виндовс Линукс Мак  OS

2 да можно

3.4. По сути, виртуальная машина – это программа, которая эмулирует на вашем компьютере ещё один компьютер, с теми параметрами, которые вы ему зададите. То есть это компьютер в компьютере :) Для чего это нужно? Причин для использования виртуальной машины на вашем компьютере может быть несколько:

Тестирование дополнительной операционной системы, с целью посмотреть, как она работает, насколько она удобна и каковы её особенности и возможности. Но при этом вы не хотите удалять ту операционную систему, которая уже стоит на вашем компьютере. Передо мной такая задача встала, когда я несколько лет назад решал для себя, стоит ли переходить с Windows XP на Window Я установил на виртуальной машине Windows 7, посмотрел тогда ещё сырую версию этой операционной системы, и в то время принял решение оставить на своём компьютере Windows XP. На Windows 7 я перешёл только после того, как в ней были произведены существенные доработки, протестированы уязвимости и исправлены некоторые ошибки. То же самое сейчас происходит и с Windows 8 – я пока окончательно не перешёл на эту систему и пользуюсь Windows 7, а Windows 8 обитает у меня на виртуальной машине. По сути, благодаря виртуальной машине на моём компьютере может быть одновременно запущено сразу несколько операционных систем, и на мой взгляд, это самая основная цель использования различных виртуальных машин.

Тестирование различных программ, которые по той или иной причине вы не хотите сразу устанавливать на ваш компьютер. Либо вы хотите выбрать из нескольких программ, у которых одинаковый функционал (например, аудио или видео проигрыватели), ту, которая вам больше понравится, но при этом вы не будете захламлять ваш компьютер лишними программами, а всего лишь испытаете их на виртуальной машине.

Запуск потенциально опасных программ. Например, при скачивании какой-либо программы ваш антивирус предположил, что она может быть потенциально вредоносна. Вы можете запустить её сначала на виртуальной машине, чтобы посмотреть, как она работает, и уже затем, если никаких подозрений она у вас не вызовет, можно будет установить её уже непосредственно на вашем компьютере.

Запуск программ, несовместимых с установленной на вашем компьютере операционной системой. Например, какая-то программа может не поддерживаться новыми версиями Windows, а вы уже привыкли работать в ней и она вам очень нужна. Предположим, программа не поддерживается версиями Windows 7 и выше, а работает только в Windows XP. Можно, конечно, в этом случае попробовать использовать режим эмуляции предыдущих версий Windows, но это не всегда срабатывает. Поэтому проще установить Windows XP на виртуальной машине и использовать вашу программу в ней. Ещё сложнее обстоят дела, если программа у вас создана для Linux. В этом случае также наличие виртуальной машины с установленной операционной системой Linux.

5.Parallels Desktop 14. VMware. VirtualBox.

4,7(68 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ