В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
9276
9276
09.06.2020 01:36 •  Информатика

Составьте блок-схему и программу вычисления значения функции (Paskal):

Показать ответ
Ответ:
nikitazaharov28
nikitazaharov28
30.12.2020 08:01

  Шартты форматтау түрлері

Ойлан

Күнделікті керекті әрі маңызды ақпараттарды әртүрлі дереккөздерден пайдалану үшін ерекшелеудің қандай түрлерін қолданасыңдар?

Кестедегі санды мәндерді (ең үлкен, ең кіші мәнін, ең көп және ең аз кездесетінін) көзмөлшерімен қалай ажыратады?

  Жаңа білім

  Excel программасында кестелерді шартты түрде форматтауға болады. Форматтаудың бұл әдісі деректерді талдауда, пішіндеуде өте қолайлы әдіс. Шартты форматтау – ұяшықтардағы деректерді белгілі шарттар бойынша форматтау. Қабылдауға оңтайлы болу үшін санды деректерді гистограмма, таңбалар және әртүрлі түстер арқылы беру тиімді. Бұл әдіс арқылы проблемалық жерлерге бірден визуалды түрде баға беруге болады. Шартты форматтауды іске қосу үшін «Бас» (Главная) құралдар тақтасында орналасқан «Мәнерлер» (Стили) бөліміндегі «Шартты форматтау (Условное форматирование) пәрмендерін (команда) орындасақ, «Шартты форматтау» диалогтік терезесі ашылады. «Шартты форматтау терезесінің» құрылғысымен!

0,0(0 оценок)
Ответ:
TheSniper
TheSniper
30.01.2021 08:38
//Pascal ABC.NET v3.0 сборка 1111

var
 i,a,b:integer;
 ar:array[1..10] of integer;

 procedure oddDec(var a,b:integer);  //подпрограмме переданы аргументы a и b
//процедура для вычитания в нечётном элементе
begin;
a:=a-b;
end;

procedure NotoddInc(var a,b:integer); //подпрограмме переданы аргументы a и b
//процедура для сложения в чётном элементе
begin;
a:=a+b;
end;

begin
randomize;
readln(a); //ввод a
readln(b); //ввод b
writeln('Array:');
for i:=1 to 10 do //весь массив
 begin;
  ar[i]:=random(-20,80); //случайные числа от -20 до 80 включительно
  write(ar[i]:4); //вывод
  if odd(i) then oddDec(ar[i],b) else NotoddInc(ar[i],a);
  {если нечётное, то первая процедура, иначе вторая. Обращаю внимания на то, что элементы меняются сразу после вывода}
 end;
writeln;
writeln('Final array:'); //вывод получившегося массива
for i:=1 to 10 do
write(ar[i]:4);
end.

Пример ввода:
20
10
Пример вывода:
Array:
  10  16   0  60  23   4  22 -20   4  55
Final array:
   0  36 -10  80  13  24  12   0  -6  75  
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота