Практическая работа №7 «Мастер функций в MS Excel» Цель. Приобрести и закрепить практические навыки по применению функций категории Математические с использованием Мастера функций.
Задание 1.
Создать и заполнить таблицу алгебраических функций, показанную на рисунке.
Алгоритм выполнения задания.
1. В ячейках А1:Н1 записать шапочки таблицы с предварительным форматированием ячеек, для этого:
Выделить диапазон ячеек А1:Н1.
Выполнить команду Правой кнопкой мыши/Формат Ячеек/Выравнивание.
Установит переключатель «переносит по словам».
В поле «по горизонтали» выбрать «по центру».
В поле «по вертикали» выбрать «по центру».
Набрать тексты шапочек, подбирая по необходимости ширину столбцов вручную.
2. Записать в графу Число ряд чисел, начиная с 0:
В ячейки А2 и А3 записать 0 и 1.
Выполнить операцию Автозаполнение до числа 15.
3. Заполнить графу Десятичный логарифм следующим образом:
program Slova; var s: string; r,i:integer; begin writeln('Введите ваше предложение'); readln(s); s:=s+' '; for i:=1 to length(s)-1 do if (s<>' ') and (s[i+1]=' ') then r:=r+1; writeln('В предложении ',r, ' слов. '); readln; end.
Какая буква встречается чаще
Program Bykv; Var s:String; i,k1,k2:byte; Begin write('Введите строку: ');readln(s); For i:=2 to Length(s)-1 do if s[i]=s[1] then inc(k1) else if s[i]=s[Length(s)] then inc(k2); writeln('Первая буква встречается ',k1); writeln('Последняя буква встречается ',k2); writeln('Вывод:'); if k1>k2 then writeln('Первая буква встречается чаще') else if k1<k2 then writeln('Последняя буква чаще') else writeln('Одинаково'); readln; End.
Изменить слово петя на иван в строке
program test; var s,t,z,p:string;j:integer; begin writeln('Введите ваше предложение'); readln(s); write('Введите слово которое хотите заменить: '); readln(t); write('Введите замену слову: ', t, ' <> '); readln(z); if pos(t,s)<>0 then j:=pos(t,s); p:=copy(s,1,j-1); p:=p+z; p:=p+copy(s,j+length(t),length(s)); writeln(p); readln; end.
1. Що може містити формула?
а) числа
б)діаграма
в)функції
г)команди
2. Які типи посилань на адреси клітинок може містити формула?
А)одномірні; б)нумеровані ; в)абсолютні; г)змішані
3. Виберіть правильно записані формули:
А)=А1:D1 Б)=А1/D1 В)А1+D1 Г)=А1+D1$
4. Якою буде формула А2 * B2 з клітинки C2 пісня її копіювання в С3?
А)=А2*В2 Г)=А3*В3 В)=В2*С2 Г)=В3*С3
5. Якою буде формула =А2*$В$2 клітинки С2 після її копіювання в C3?
А)=А2*$В$2 Б)=А3*$В$2 В)=А3*$В$3 Г)=В2*$В$2
6. Як записати формулу для знаходження 5% від числа 45 клітинці A2?
А)=А2*5 Б)=А2*0,5 В)=А2*5% Г)=5%А2
7. вкажіть правильні абсолютні посилання на клітинку таблиці?
А)В$4 Б)$Т56 В)$В$33 Г)$АВ$561
8. Яку формулу Треба записати у клітинку С5 для обчислення суми чисел в клітинках від С1 до С4?
А)=С1+С2+С3+С4 Б)СУММ(С1:С4) В)=С1:С4 Г)С5=С1+С2+С3+С4
9. Чи можна ввести дані в комірку за до рядка формул?
А)ні Б) так,але тільки формули в)так г)так,але тільки текст
10. Що відображається в комірці після введення до неї формули і натиснення клавіші Enter?
А) адреса клітинки Б) результат обчислення по формулі В)формула Г)формула і результат обчислення по формулі
11. Встановіть відповідність між форматом клітинок і виглядом даних у клітинці?
А) фінансовий Б) дата В)текстовий Г)числовий
1)12.02.2011 2)функція 3)2.25 4)2.25 грн
1.а
2.б
3.в
4.г
5.А
6.Б
7.в
8.г
9.а
10.а
11в
program Slova;
var
s: string;
r,i:integer;
begin
writeln('Введите ваше предложение');
readln(s);
s:=s+' ';
for i:=1 to length(s)-1 do
if (s<>' ') and (s[i+1]=' ') then
r:=r+1;
writeln('В предложении ',r, ' слов. ');
readln;
end.
Какая буква встречается чаще
Program Bykv;
Var s:String;
i,k1,k2:byte;
Begin
write('Введите строку: ');readln(s);
For i:=2 to Length(s)-1 do
if s[i]=s[1] then inc(k1)
else if s[i]=s[Length(s)] then inc(k2);
writeln('Первая буква встречается ',k1);
writeln('Последняя буква встречается ',k2);
writeln('Вывод:');
if k1>k2 then writeln('Первая буква встречается чаще')
else if k1<k2 then
writeln('Последняя буква чаще')
else writeln('Одинаково');
readln;
End.
Изменить слово петя на иван в строке
program test;
var s,t,z,p:string;j:integer;
begin
writeln('Введите ваше предложение');
readln(s);
write('Введите слово которое хотите заменить: ');
readln(t);
write('Введите замену слову: ', t, ' <> ');
readln(z);
if pos(t,s)<>0 then
j:=pos(t,s);
p:=copy(s,1,j-1);
p:=p+z;
p:=p+copy(s,j+length(t),length(s));
writeln(p);
readln;
end.