rubanvladimir374
?>

С какой клавиши можно редактировать значение в ячейке таблицы, не стирая его

Информатика

Ответы

vardartem876

1)

var

 ar: array of integer;

 n, min, max: integer;

begin

 write('Введите размер массива:');

 read(n);

 setlength(ar, n);

 if (n > 0) then  

 begin

   ar[0] := random(-10, 10);

   min := ar[0];

   max := ar[0];

   write(ar[0]:4);

 end;

 for var i := 1 to n - 1 do

 begin

   ar[i] := random(-10, 10);

   if (ar[i] < min) then min := ar[i]

   else if (ar[i] > max) then max := ar[i];

   write(ar[i]:4);

 end;

 writeln(#13#10 + 'Среднее геометрическое модулей минимального и максимального значений = ',  

         sqrt(abs(max) * abs(min)):5:5);

end.

2)

function minOrMax(ar: array of integer; size: integer; findMin: boolean): integer;

var

 index: integer;

begin

 index := 0;

 for var i := 1 to size - 1 do

   if (findMin) and (ar[i] < ar[index]) then index := i

   else if (not findMin) and (ar[i] > ar[index]) then index := i;

 result := index;

end;

3)

function minOrMax(ar: array of integer; size: integer; findMin: boolean): integer;

var

 index: integer;

begin

 index := 0;

 for var i := 1 to size - 1 do

   if (findMin) and (ar[i] < ar[index]) then index := i

   else if (not findMin) and (ar[i] > ar[index]) then index := i;

 result := index;

end;

var

 ar: array of integer;

 n: integer;

begin

 write('Введите размер массива:');

 read(n);

 setlength(ar, n);

 if (n > 0) then  

 begin

   ar[0] := random(-10, 10);

   write(ar[0]:4);

 end;

 for var i := 1 to n - 1 do

 begin

   ar[i] := random(-10, 10);

   write(ar[i]:4);

 end;

 writeln(#13#10 + 'Среднее геометрическое модулей минимального и максимального значений = ',  

         sqrt(abs(ar[minOrMax(ar, n, true)]) * abs(ar[minOrMax(ar, n, false)])):5:5);

end.

studiojanara

1. В ячейке введена скорость 250 километров в час. Создать

пользовательский формат, чтобы число 250 выводилось как 250 км/час.

2. Создать пользовательский формат, который дописывает к дате краткое

название месяца (3 буквы)

В ходе аттестации студентов факультета «Кредит» получены

следующие результаты (см. рис.6).

Предусмотреть заливку соответствующим цветом: если студент

получил баллы от 51 до 70, то – синим, если от 71 до 85, то – желтым, если от

86 и выше, то красным цветом. В противном случае (если количество баллов

от 0 до 51) цвет оставить без изменения.

Торговый склад производит уценку хранящейся продукции. Если

продукция хранится на складе дольше 10 месяцев, то она уценивается в 2 раза, а

если срок хранения превышает 6 месяцев, но не достигает 10 месяцев, то в 1,5

раза. Получить ведомость уценки товара, которая должна включать следующую

информацию: наименование товара, срок хранения, цена товара до уценки, цена

товара после уценки

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

С какой клавиши можно редактировать значение в ячейке таблицы, не стирая его
Ваше имя (никнейм)*
Email*
Комментарий*