Валя, Юра, Костя, Марина и Света пошли в магазин за фруктами. Валя
купила 2 кг яблок, 3 кг бананов, 1 кг апельсинов и 4 кг груш. Юра купил 1 кг
яблок, 2 кг бананов, 4 кг апельсинов и 2 кг груш. Костя купил 3 кг яблок, 5 кг
бананов, 2 кг апельсинов, 1 кг груш. Марина купила 3 кг яблок, 2 кг бананов,
2 кг апельсинов и 1 кг груш. Света купила всех фруктов по 2 кг.
1 кг яблок стоит 3 монеты, 1 кг бананов — 5 монет, 1 кг апельсинов — 4
монеты и 1 кг груш — 4,5 монеты.
1. Построить на основе вышеперечисленных данных электронную
таблицу (продумайте, как разместить данные).
2. Добавить к таблице столбец, в котором будет вычисляться общая
сумма, которую заплатил каждый из ребят (Важно! формула для вычислений
должна вводиться только в одну ячейку, а в остальные — копироваться).
3. Вычислить общую сумму покупок всех ребят.
4. Определить максимальную и минимальную стоимости покупок.
5. Вычислить среднее арифметическое суммы покупок ребят.
6. Отсортировать таблицу по убыванию суммы покупок (Выделять надо
не только этот столбец и не всю таблицу. Выделите строки,
содержащие имена детей).
7. Изменить стоимость бананов на 4 монеты и выделить другим цветом
ячейки, в которых произошли изменения.
8. Построить круговую диаграмму соотношения суммы покупок ребят
(Для этого, выделите столбец, содержащий суммы покупок ребят. Затем
выберите Вставка – круговая, выберите вид диаграммы. Выделите
диаграмму, нажмите правую кнопку мыши, выбрать данные, подписи
горизонтальной оси, изменить, выбрать диапазон, выделите мышью имена
детей, нажмите ОК. Получится примерно так:Валя, Юра, Костя, Марина и Света пошли в магазин за фруктами. Валя
купила 2 кг яблок, 3 кг бананов, 1 кг апельсинов и 4 кг груш. Юра купил 1 кг
яблок, 2 кг бананов, 4 кг апельсинов и 2 кг груш. Костя купил 3 кг яблок, 5 кг
бананов, 2 кг апельсинов, 1 кг груш. Марина купила 3 кг яблок, 2 кг бананов,
2 кг апельсинов и 1 кг груш. Света купила всех фруктов по 2 кг.
1 кг яблок стоит 3 монеты, 1 кг бананов — 5 монет, 1 кг апельсинов — 4
монеты и 1 кг груш — 4,5 монеты.
1. Построить на основе вышеперечисленных данных электронную
таблицу (продумайте, как разместить данные).
2. Добавить к таблице столбец, в котором будет вычисляться общая
сумма, которую заплатил каждый из ребят (Важно! формула для вычислений
должна вводиться только в одну ячейку, а в остальные — копироваться).
3. Вычислить общую сумму покупок всех ребят.
4. Определить максимальную и минимальную стоимости покупок.
5. Вычислить среднее арифметическое суммы покупок ребят.
6. Отсортировать таблицу по убыванию суммы покупок (Выделять надо
не только этот столбец и не всю таблицу. Выделите строки,
содержащие имена детей).
7. Изменить стоимость бананов на 4 монеты и выделить другим цветом
ячейки, в которых произошли изменения.
8. Построить круговую диаграмму соотношения суммы покупок ребят
(Для этого, выделите столбец, содержащий суммы покупок ребят. Затем
выберите Вставка – круговая, выберите вид диаграммы. Выделите
диаграмму, нажмите правую кнопку мыши, выбрать данные, подписи
горизонтальной оси, изменить, выбрать диапазон, выделите мышью имена
детей, нажмите ОК.
var
t:boolean;
d:integer;
begin
t := true;
d := 2;
while t and (d*d <= x) do
begin
if x mod d = 0 then
t := false;
d := d + 1
end;
prime := t
end;
function order(x:integer):boolean;
var
t:boolean;
d:integer;
begin
d := -1;
repeat
t := x mod 10 > d;
d := x mod 10;
x := x div 10
until not t or (x = 0);
order := t
end;
var
t:boolean;
i,k,n:integer;
begin
t := false;
read(k,n);
for i := k to n do
if prime(i) then
if order(i) then
begin
write(i,' ');
t := true
end;
if not t then
write(0)
end.
var s,v,t,a:real;
begin
writeln('Введите скорость, ускорение и время соотвественно');
read(v,a,t);
s:=v*t+(a*sqr(t))/2;
writeln('Расстояние S = ',s);
end.
Задание №2
var a,b,c,d,m,n:integer;
begin
writeln('Введите ширину и высоту комнаты');
read(a,b);
writeln('Введите размеры окна');
read(c,d);
writeln('Введите размеры двери');
read(m,n);
writeln('Площадь стен для оклеивания обоями = ',a*b-c*d-m*n);
end.
Задание №3
var a,b:real;
begin
writeln('Введите два числа');
read(a,b);
writeln('Среднее арифметическое кубов этих чисел = ',(power(a,3)+power(b,3))/2);
writeln('Среднее геометрическое модулей этих чисел = ',sqrt(abs(a*b)));
end.
Задание №4
var x:real;
begin
writeln('Введите ребро куба');
read(x);
writeln('Площадь грани = ',sqr(x));
writeln('Площадь полной поверхности = ',6*sqr(x));
writeln('Объем куба = ',power(x,3));
end.
Задание №5
var r1,r2:real;
begin
writeln('Введите внешний и внутренний радиус');
read(r1,r2);
if r1<r2 then writeln('Внешний радиус должен быть больше внутреннего') else
writeln('Площадь кольца = ', Pi*sqr(r1)-Pi*sqr(r2));
end.