с таким простым, но все же сложным заданием буду очень благодарен 1. Создайте документ программы MS Excel (2007).
2. Импортируйте на первый лист таблицу из файла «Кинетическая энергия сердечного выброса» в ячейки, начиная с А1.
3. Залейте заголовок таблицы красным цветом. Установите внешнюю границу заголовка таблицы толстой пунктирной линией красного цвета.
4. Внизу таблицы объедините ячейки А23:Е23 одну. Напишите в ней: «SV – ударный объём», объедините А24:Е24, напишите: «DA – диаметр аорты»; объедините А25:Е25, напишите: «ET – период изгнания», объедините А26:Е26, напишите: «CE – кинетическая энергия сердечного выброса».
5. Рассчитайте кинетическую энергию сердечного выброса по формуле:
Установите для ячеек этого столбца числовой формат с числом десятичных знаков равным 6.
6. Добавьте столбец «Группа». В этом столбце произведите вычисления с функции Если: если кинетическая энергия сердечного выброса < 0,00002 - то 1 группа, от 0,00002 до 0,0001 – 2 группа, если выше 0,0001 – 3 группа.
7. С автофильтра сформируйте 3 группы пациентов относительно их группы. Поместите данные по каждой группе на отдельный лист. Ярлычки листов закрасьте красным цветом, полученным листам дайте название, соответствующее данным, которые он содержит.
8. Рассчитайте для каждой группы средние значения ударного объёма, периода изгнания, диаметра аорты, кинетической энергии сердечного выброса. Скопируйте полученные значения на новый лист (дайте название листу «Гистограмма 1»)
9. Постройте гистограмму для полученных параметров. По оси - средние значения параметров, по оси - группа пациентов. Назовите диаграмму «Кинетическая энергия сердечного выброса», введите подписи, легенду. Примените заливки столбцов текстуру (на ваш выбор).
ФИО пациента SV (мл) DA (мм) ET (сек) CE (Дж)
Мухин А. К. 84,19 180,53 0,24
Архипов Д. Ю. 74,50 199,52 0,31
Трофимов П. В. 59,94 231,57 0,23
Мартынов Е. В. 73,64 264,88 0,34
Емельянов О. М. 64,85 215,10 0,33
Горшков О. Н. 65,53 252,11 0,21
Чернов Н. В. 45,36 206,21 0,18
Овчинников О. Г. 41,68 254,89 0,28
Селезнев Л. М. 53,42 265,74 0,35
Панфилов Н. И. 87,29 209,86 0,27
Копылов М. Б. 62,42 202,54 0,31
Михеев Р. У. 82,54 248,31 0,27
Галкин М. Р. 76,38 217,06 0,27
Назаров Е. И. 70,09 254,89 0,19
Лобанов Н. Н. 66,29 196,88 0,28
Лукин С. Т. 78,17 221,25 0,39
Беляков А. А. 64,79 187,62 0,38
Потапов В. А. 41,24 220,05 0,44
Некрасов М. Ф. 69,00 248,48 0,42
Хохлов С. В. 33,87 259,84 0,18
CE (Дж)
0,000084
0,000040
0,000024
0,000023
0,000021
0,000019
0,000017
0,000014
0,000014
0,000013
0,000013
0,000012
0,000011
0,000010
0,000006
0,000004
0,000002
0,000002
0,000002
0,000001
Дорогие друзья, Я Приц своё планеты и хочу пожелать вам только лучшего. Пусть вся планета будет цвести как розы...Я не житель вашей планеты, но все же Знайте без войны и разрушений ваша планета становиться лучше. Друзья это самое лучшее что есть у вас и думаю не каждый правильно знает это слово... Будьте добрее к другим, не засоряйте планету и цените жизнь.
Ну и на конец все что вас окружает создавали потомки целыми годами и веками, а я от лица другой планеты надеюсь что вы не испортит труды...( что то из этого можешь использовать... Хотя не особо по теме.)
Спочатку потрібно викликати процедуру randomize.
Потрібно створити ціле число, що належить інтервалу [1, 4]. Для цього будемо використовувати формулу X:=Random(B-A+1)+A, де A=1,B=4.
Перевіримо створене число.
Якщо воно дорівнює 1, то надрукуємо слово 'піка'.
Якщо воно дорівнює 2, то надрукуємо слово 'треф'.
Якщо воно дорівнює 3, то надрукуємо слово 'бубна'.
Якщо воно дорівнює 4, то надрукуємо слово 'чирва'.
Програма
var x:byte;
begin
randomize;x:=random(4)+1;
if x=1 then writeln('пики');
if x=2 then writeln('трефи');
if x=3 then writeln('бубни');
if x=4 then writeln('черви');
end.
Приклад 2
Одержати у програмі 10 випадкових цілих чисел у діапазоні від 0 до 10 включно та знайти їх суму.
Змінні:
Вхідних даних немає.
Вихідні:
x – число, що має значення від 0 до 10 (ціле число)
s – сума всіх чисел x
Проміжні:
i – параметр циклу (ціле число)