Действия по изменению структуры таблицы:Действие Содержание действия Выделение всей таблицы, столбца, строки или ячейки Установите курсор в любую ячейку и выполните команду Таблица → Выделить→ Таблица, Столбец, Строка или Ячейка Вставка столбцов Установить курсор в место вставки и выполнить команду Таблица→ Добавить→ Столбцы слева или Столбцы справа Вставка строк Установить курсор в место вставки и выполнить команду Таблица→ Добавить→ Строки ниже или Строки выше Объединение ячеек Выделить смежные ячейки и выполнить команду Таблица→ Объединить ячейки Разбиение ячеек Выделить смежные ячейки и выполнить команду Таблица→ Разбить ячейки Удаление таблицы Установить курсор в любую ячейку и выполнить команду Таблица→ Удалить→ Таблица Удаление столбцов или строк Установить курсор в любую ячейку и выполнить команду Таблица→ Удалить→ Столбцы или строки
Действия по форматированию таблицы:Действия Содержание действий Перемещение таблицы Перетащить таблицу за маркер в левом верхнем углу таблицы или выполнить команду Таблица→ Свойства таблицы→ Выравнивание Изменение размера таблицы Использовать маркер в правом нижнем углу таблицы методом протягивания или выполнить команду Таблица→ Свойства таблицы→ Таблица→ Размер Изменение размеров столбцов или строк Использовать маркеры изменения размера, появляющиеся при наведении указателя мыши на рамки таблицы, или выполнить команду Таблица→ Автоподбор→ Выровнять ширину столбцов или Выровнять высоту строк для предварительно выделенных столбцов или строк Оформление рамок таблицы и ячеек Выполнить команду Таблица→ Свойства таблицы→ Таблица→ Границы заливки
Romanf romanf отличник 2013-01-10t16: 13: 22+00: 00 1. подумать над алгоритмом 2. вот сам алгоритм: а. спросить у пользователя значения б. расчитать ответ в. выдать ответ на экран 3. написать код в паскале 4. исправить ошибки компиляции 5. протестировать, вводить разные числа 6. обнаружила, что если вводить числа наугад ответ получается отрицательным иногда 7. вставить код проверки введенных пользователем значений 8. убрать ошибки компиляции 9. протестировать 10. готово а вот и сама программа: program aerobus; uses crt; const totalplace = 160; var businessplaces, economyplaces: integer; businessprice, economyprice: real; totalcharge: real; a,b: integer; correctinput: boolean; begin clrscr; businessplaces: =totalplace div 4; economyplaces: = totalplace - businessplaces; writeln('business places count: ', businessplaces); writeln('economy places count: ', economyplaces); correctinput: =false; while not correctinput do begin write('please input business class ticket price: '); readln(businessprice); if(businessprice> 0) then begin correctinput: =true; end else begin writeln('the price should be a positive number, please try again'); end; end; economyprice: =businessprice/2; writeln('economy ticket price is: ', economyprice: 0: 2); correctinput: =false; while not correctinput do begin write('how many business tickets are left? : '); readln(a); if(a> =0) and (a< =businessplaces)then correctinput: =true; if(a< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(a> businessplaces) then begin writeln('please input a number which is less or equal to the tolal business place count, please try again'); end; end; correctinput: =false; while not correctinput do begin write('how many economy tickets are left? : '); readln(b); if(b> =0) and (b< =economyplaces)then correctinput: =true; if(b< 0) then begin writeln('please input a positive number or 0, please try again'); end; if(b> economyplaces) then begin writeln('please input a number which is less or equal to the tolal economy place count, please try again'); end; end; totalcharge: =(businessplaces-a)*businessprice; totalcharge: =totalcharge+(economyplaces-b)*economyprice; writeln('the total charge is: ', totalcharge: 0: 2); writeln; writeln('press enter to exit'); readln; end.
Это задача совсем не "за ". Количество чисел k2, которые делятся на два, равно целой части от n/2. Аналогично, k3=n/3 и k5/n/5. Вычтем все эти количества из общего количества чисел, равного n: k=n-(k2+k3+k5) и это даст примерное количество чисел, которые не делятся на 2, 3 и 5. Примерно оно потому, что мы не учли числа, которые одновременно делятся на 2 и 3, на 2 и 5, на 3 и 5. Т.е. числа, которые делятся на 6, 10 и 15 мы вычли дважды. Поэтому надо найти количество этих чисел и отнять их. k6=n/6, k10=n/10, k15=n/15 - по-прежнему делим нацело. И теперь за исправленное значение k принимаем k+(k6+k10+k15). И последнее. Есть еще числа, которые делятся одновременно на 2, 3 и 5, т.е. на 2*3*5=30. Таких чисел k30=n/30. И мы их дважды прибавили. Теперь делаем последнюю коррекцию k, получая : k-k30.
Окончательно формула расчета: k=n-(k/2+k/3+k/5)+(k/6+k/10+k/15)-k/30 при условии целочисленного деления.
То что мы проделали выше, носит название операции включения-исключения множеств. Программа получается совсем простой.
Sub abc() Dim n As Long n = InputBox("Введите натуральное N") If n < 0 Then n = Abs(n) 'Защита от дурака MsgBox n - (n \ 2 + n \ 3 + n \ 5) + (n \ 6 + n \ 10 + n \ 15) - n \ 30 End Sub
Действия по изменению структуры таблицы:Действие Содержание действия
Выделение всей таблицы, столбца, строки или ячейки Установите курсор в любую ячейку и выполните команду Таблица → Выделить→ Таблица, Столбец, Строка или Ячейка
Вставка столбцов Установить курсор в место вставки и выполнить команду Таблица→ Добавить→ Столбцы слева или Столбцы справа
Вставка строк Установить курсор в место вставки и выполнить команду Таблица→ Добавить→ Строки ниже или Строки выше
Объединение ячеек Выделить смежные ячейки и выполнить команду Таблица→ Объединить ячейки
Разбиение ячеек Выделить смежные ячейки и выполнить команду Таблица→ Разбить ячейки
Удаление таблицы Установить курсор в любую ячейку и выполнить команду Таблица→ Удалить→ Таблица
Удаление столбцов или строк Установить курсор в любую ячейку и выполнить команду Таблица→ Удалить→ Столбцы или строки
Действия по форматированию таблицы:Действия Содержание действий
Перемещение таблицы Перетащить таблицу за маркер в левом верхнем углу таблицы или выполнить команду Таблица→ Свойства таблицы→ Выравнивание
Изменение размера таблицы Использовать маркер в правом нижнем углу таблицы методом протягивания или выполнить команду Таблица→ Свойства таблицы→ Таблица→ Размер
Изменение размеров столбцов или строк Использовать маркеры изменения размера, появляющиеся при наведении указателя мыши на рамки таблицы, или выполнить команду Таблица→ Автоподбор→ Выровнять ширину столбцов или Выровнять высоту строк для предварительно выделенных столбцов или строк
Оформление рамок таблицы и ячеек Выполнить команду Таблица→ Свойства таблицы→ Таблица→ Границы заливки