Методические указания предназначены для студентов очного отделения направления 031600 «Реклама и связи с общественностью» по дисциплине «Компьютерные технологии и информатика». Практический цикл посвящен изучению популярнейшего тестового редактора фирмы Microsoft Office Word 2007 (краткое название редактора Word). В настоящее время существует несколько версий этого программного продукта. Однако пользовательский интерфейс и приемы работы в среде Word последних версий практически не отличаются друг от друга, поэтому в методических указаниях нет конкретной привязки к определенной версии редактора. Целью практической работы является самостоятельное обучение основным технологическим операциям и приемам при создании разнообразных документов в среде Word. Практические работы предполагают последовательное изучение краткой теории и выполнение практических заданий. Причем, в основном, теория изучается в процессе выполнения заданий. Такой метод позволяет немедленно закрепить теоретические знания на практике и является достаточно эффективным. Выполнение всех 30 заданий позволит в достаточной степени овладеть основными навыками создания документов в среде Word и подготовит пользователя к самостоятельной работе. Методические указания подготовлены на кафедре «Информационные системы и технологии».
Границы печатаемой зоны (поля) можно задать и с мыши. <...> Кроме вышеуказанного границы абзаца можно установить и с маркеров на горизонтальной линейке <...> Чтобы это сделать необходимо выбрать вкладку «Главная» команду «Границы и заливка». <...> В появившемся окне диалога нужно выбрать закладку «Граница». <...> Чтобы границы ячеек таблицы были видны при печати необходимо указать их обрамление.
1. Для цикла For есть решение выложенное выше от Srzontmp.
2. Почти ничего не меня получим код для цикла while: var i, n, k: integer; begin i := 2; readln(n); while i <= n div 2 do begin if (n mod i) = 0 then k := i; i:=i+1; end; writeln('наибольший делитель ', n, ' = ', k); end.
3. Аналогично для цикла Repeat: var i, n, k: integer; begin i := 2; readln(n); repeat if (n mod i) = 0 then k := i; i:=i+1; until i> n div 2; writeln('наибольший делитель ', n, ' = ', k); end.
Методические указания предназначены для студентов очного отделения направления 031600 «Реклама и связи с общественностью» по дисциплине «Компьютерные технологии и информатика». Практический цикл посвящен изучению популярнейшего тестового редактора фирмы Microsoft Office Word 2007 (краткое название редактора Word). В настоящее время существует несколько версий этого программного продукта. Однако пользовательский интерфейс и приемы работы в среде Word последних версий практически не отличаются друг от друга, поэтому в методических указаниях нет конкретной привязки к определенной версии редактора. Целью практической работы является самостоятельное обучение основным технологическим операциям и приемам при создании разнообразных документов в среде Word. Практические работы предполагают последовательное изучение краткой теории и выполнение практических заданий. Причем, в основном, теория изучается в процессе выполнения заданий. Такой метод позволяет немедленно закрепить теоретические знания на практике и является достаточно эффективным. Выполнение всех 30 заданий позволит в достаточной степени овладеть основными навыками создания документов в среде Word и подготовит пользователя к самостоятельной работе. Методические указания подготовлены на кафедре «Информационные системы и технологии».
Границы печатаемой зоны (поля) можно задать и с мыши. <...> Кроме вышеуказанного границы абзаца можно установить и с маркеров на горизонтальной линейке <...> Чтобы это сделать необходимо выбрать вкладку «Главная» команду «Границы и заливка». <...> В появившемся окне диалога нужно выбрать закладку «Граница». <...> Чтобы границы ячеек таблицы были видны при печати необходимо указать их обрамление.
Объяснение:
2. Почти ничего не меня получим код для цикла while:
var
i, n, k: integer;
begin
i := 2;
readln(n);
while i <= n div 2 do begin
if (n mod i) = 0 then k := i;
i:=i+1;
end;
writeln('наибольший делитель ', n, ' = ', k);
end.
3. Аналогично для цикла Repeat:
var
i, n, k: integer;
begin
i := 2;
readln(n);
repeat
if (n mod i) = 0 then k := i;
i:=i+1;
until i> n div 2;
writeln('наибольший делитель ', n, ' = ', k);
end.