Упражнение 4. Построение экспериментального графика 1. Запустите программу Excel (Пуск ► Программы ► Microsoft Excel) и откройте рабочую книгу book.xls, созданную ранее. 2. Выберите щелчком на ярлычке неиспользуемый рабочий лист или создайте новый (Вставка ► Лист). Дважды щелкните на ярлычке листа и переименуйте его как Обработка эксперимента. 3. В столбец А, начиная с ячейки А1, введите произвольный набор значений незави¬симой переменной. 4. В столбец В, начиная с ячейки В1, введите произвольный набор значений функции. 5. Методом протягивания выделите все заполненные ячейки столбцов А и В. 6. Щелкните на значке Мастер диаграмм на стандартной панели инструментов. 7. В списке Тип выберите пункт Точечная (для отображения графика, заданного парами значений). В палитре Вид выберите средний пункт в первом столбце (маркеры, соединенные гладкими кривыми). Щелкните на кнопке Далее. 8. Так как диапазон ячеек был выделен заранее, мастер диаграмм автоматически определяет расположение рядов данных. Убедитесь, что данные на диаграмме выбраны правильно. На вкладке Ряд в поле Имя укажите: Результаты измерений. Щелкните на кнопке Далее. 9. Выберите вкладку Заголовки. Убедитесь, что заданное название ряда данных автоматически использовано как заголовок диаграммы. Замените его, введя в поле Название диаграммы заголовок Экспериментальные точки. Щелкните на кнопке Далее. 10. Установите переключатель Отдельном. По желанию, задайте произвольное имя добавляемого рабочего листа. Щелкните на кнопке Готово. 11. Убедитесь, что диаграмма построена и внедрена в новый рабочий лист. Рассмотрите ее и щелкните на построенной кривой, чтобы выделить ряд данных. 12. Дайте команду формат ► Выделенный ряд. Откройте вкладку Вид. 13. На панели Линия откройте палитру Цвет и выберите красный цвет. В списке Тип линии выберите пунктир. 14. На панели Маркер выберите в списке Тип маркера треугольный маркер. В палит¬рах Цвет и Фон выберите зеленый цвет. 15. Щелкните на кнопке ОК, снимите выделение с ряда данных и посмотрите, как изменился вид графика. 16. Сохраните рабочую книгу.
var n,m:integer;
rost,nine_a,nine_b:real;
begin
write('Введите количество учинеков 9а класса: ');
readln(n);
write('Введите количество учинеков 9б класса: ');
readln(m);
writeln('Вводите рост каждого из учинеков 9а по очереди');
for i:integer :=1 to n do begin
write(i,': ');
read(rost);
nine_a:=nine_a+rost;
end;
nine_a:=nine_a/n; // средний рост 9а
writeln('Вводите рост каждого из учинеков 9б по очереди');
for i:integer :=1 to m do begin
write(i,': ');
read(rost);
nine_b:=nine_b+rost;end;
nine_b:=nine_b/n; // средний рост 9б
if nine_a > nine_b then write('Средний рост учеников 9а больше.') else if nine_a < nine_b then write('Средний рост учеников 9б больше.') else write('Средний рост учеников 9а равен среднему росту учеников 9б.');
end.
как-то так, будут вопросы пиши)
Всего-то 30 мин