«Орындайық» Жаңа сабақты бекіту тапсырмалары: А) «Табиғат және адам сұлулығы» тақырыбындағы презентациядан бірнеше слайд көшірмесін алып, жаңа слайд - фильмдер жасау.
Ә) MS Word құжатында сақталған «Лондон олимпиадасының чемпиондары» тақырыбындағы құжаттан суреттер алып, сол тақырыпты қойып, жаңа слайд - фильмдер жасау. 1. Суретті слайдқа кірістіру, анимация қою. 2. Чемпион атын және спорт түрін көрсетіп Word Art объектісімен жазу, оның мүмкіндіктерін қолдану және анимация қою. Б) Жарнама жасау. Мысалы: Компьютер, шаңсорғыш, қысқа толқынды пештер, ұялы телефондар, интернет туралы.
В неделе семь дней, поэтому решение выполняется на основе нахождения остатка целочисленного деления от номера дня на 7. Такой остаток находится в пределах от 0 до 6, а для нашей нумерации нужны значения от 1 до 7, поэтому полученный остаток будем увеличивать на единицу. Если 1 января вторник, то есть день недели с номером 2, то первым понедельником будет 7 января, вторым 14 января и т.д. 1 января (k=1) при делении на 7 даст в остатке 1 и при сдвиге остатка на 1 (см. выше), получим 2 (вторник). 7 января даст остаток 0 и после сдвига получим 1 (понедельник), что и требовалось.
1. Современное короткое, эффективное, но требующее определенных знаний решение
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
begin var d:='Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье'.ToWords; Writeln(d[ReadInteger('Введите номер дня') mod 7]) end.
Примеры Введите номер дня 215 Суббота
Введите номер дня 14 Понедельник
2. Более близкое к приведенному выше алгоритму решение
begin var n:=ReadInteger('Введите номер дня'); n:=n mod 7+1; case n of 0:Writeln('Воскресенье'); 1:Writeln('Понедельник'); 2:Writeln('Вторник'); 3:Writeln('Среда'); 4:Writeln('Четверг'); 5:Writeln('Пятница'); 6:Writeln('Суббота') end end.
3. Типовое школьное решение
var n:integer; begin Write('Введите номер дня'); Read(n); n:=n mod 7+1; case n of 0:Writeln('Воскресенье'); 1:Writeln('Понедельник'); 2:Writeln('Вторник'); 3:Writeln('Среда'); 4:Writeln('Четверг'); 5:Writeln('Пятница'); 6:Writeln('Суббота') end end.
Var a:integer; begin write('Введите время='); readln(a); if a=0 then begin write('Ночь'); end; if a=1 then begin write('Ночь'); end; if a=2 then begin write('Ночь'); end; if a=3 then begin write('Ночь'); end; if a=4 then begin write('Ночь'); end; if a=5 then begin write('Утро'); end; if a=6 then begin write('Утро'); end; if a=7 then begin write('Утро'); end; if a=8 then begin write('Утро'); end; if a=9 then begin write('Утро'); end; if a=10 then begin write('Утро'); end; if a=11 then begin write('День'); end; if a=12 then begin write('День'); end; if a=13 then begin write('День'); end; if a=14 then begin write('День'); end; if a=15 then begin write('День'); end; if a=16 then begin write('День'); end; if a=17 then begin write('Вечер'); end; if a=18 then begin write('Вечер'); end; if a=19 then begin write('Вечер'); end; if a=20 then begin write('Вечер'); end; if a=21 then begin write('Вечер'); end; if a=22 then begin write('Ночь'); end; if a=23 then begin write('Ночь'); end; if a=24 then begin write('Ночь'); end; end.
1. Современное короткое, эффективное, но требующее определенных знаний решение
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var d:='Понедельник Вторник Среда Четверг Пятница Суббота Воскресенье'.ToWords;
Writeln(d[ReadInteger('Введите номер дня') mod 7])
end.
Примеры
Введите номер дня 215
Суббота
Введите номер дня 14
Понедельник
2. Более близкое к приведенному выше алгоритму решение
begin
var n:=ReadInteger('Введите номер дня');
n:=n mod 7+1;
case n of
0:Writeln('Воскресенье');
1:Writeln('Понедельник');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.
3. Типовое школьное решение
var
n:integer;
begin
Write('Введите номер дня');
Read(n);
n:=n mod 7+1;
case n of
0:Writeln('Воскресенье');
1:Writeln('Понедельник');
2:Writeln('Вторник');
3:Writeln('Среда');
4:Writeln('Четверг');
5:Writeln('Пятница');
6:Writeln('Суббота')
end
end.
a:integer;
begin
write('Введите время=');
readln(a);
if a=0 then begin
write('Ночь');
end;
if a=1 then begin
write('Ночь');
end;
if a=2 then begin
write('Ночь');
end;
if a=3 then begin
write('Ночь');
end;
if a=4 then begin
write('Ночь');
end;
if a=5 then begin
write('Утро');
end;
if a=6 then begin
write('Утро');
end;
if a=7 then begin
write('Утро');
end;
if a=8 then begin
write('Утро');
end;
if a=9 then begin
write('Утро');
end;
if a=10 then begin
write('Утро');
end;
if a=11 then begin
write('День');
end;
if a=12 then begin
write('День');
end;
if a=13 then begin
write('День');
end;
if a=14 then begin
write('День');
end;
if a=15 then begin
write('День');
end;
if a=16 then begin
write('День');
end;
if a=17 then begin
write('Вечер');
end;
if a=18 then begin
write('Вечер');
end;
if a=19 then begin
write('Вечер');
end;
if a=20 then begin
write('Вечер');
end;
if a=21 then begin
write('Вечер');
end;
if a=22 then begin
write('Ночь');
end;
if a=23 then begin
write('Ночь');
end;
if a=24 then begin
write('Ночь');
end;
end.