Синфой 1. запишите оператор вывода целого числа 3583, при выводе данное число должно занимать на экране 7 позиций (пример см. в таблице выше). 2. запишите оператор вывода вещественного числа 11,49, при выводе данное число должно занимать на экране всего 10 позиций и 4 позиции в дробной части (пример см. в таблице выше). 3. в данном операторе вывода определите сколько всего позиций выводимая величина занимает на экране и сколько позиций отведено для дробной части числа: на язык паскаля
Презентация является отличным представления информации. Цель самой презентации - донести до аудитории, для которой она разработана, полноценную и легко усваиваемую информацию о представляемом объекте. Она создается на основе слайдов, которые непрерывно идут в определенной заданной последовательности. Человек, использующий такой вид представления информации, может сам контролировать ход презентации. Этот вид подачи информации называется интерактивным. Также есть возможность дать презентации идти своим ходом, когда она выполняется непрерывно, независимо от исполнителя.
Презентации могут нести различный смысл показа. Это могут быть обучающие презентации, с которых проще понять и запомнить аспекты изучаемой темы. С этого представления информации можно сопровождать научный доклад. Ну и конечно такие презентации широко рас в различных рекламных компаниях, которые используют их для представления рекламируемого товара и быстрого заключения сделки. И это неудивительно, ведь легче один раз показать, чем несколько раз объяснять, пока слушающий наконец-таки поймет, о чем идет речь.
Чем же так удобен данный представления информации? И почему он так эффективен? Дело в том, что готовить доклад в устной форме достаточно сложно. Во время рассказа можно забыть текст, волноваться и таким образом загубить свою работу. Оформив же свой доклад в форме презентации, рассказчик может объяснять тему, опираясь на слайды, показываемые во время презентации. А эффективна презентация благодаря своему легкому усвоению.
Слушатель, одновременно смотря слайды и слушая доклад, может запомнить и понять гораздо больше, чем при обычном повествовании. Происходит это, потому что человек около 80% информации усваивает за счет зрительного обучения и только 15% - от информационного потока. Из этого следует, что презентация понять смысл доводимой до слушающей аудитории информации на максимальном уровне.
В том, что презентация один из лучших подачи информации нет никаких сомнений. Она эффективна, как для докладчика, так и для слушателя. Ее можно использовать в разных направлениях сферы деятельности, будь то учеба или деловые переговоры. Презентация доступна для всех, и с ней легко работать как начинающему, так и уже знакомому с данным методом представления информации. Используя однажды данный в следующий раз без каких-либо сомнений вы выберете именно его.
const
nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
type
Date=record
Day,Month,Year:integer
end;
function DOW(Dat:Date):integer;
// день недели по дате. 0-Вс. 1-Пн, 7-Сб
var
a,y,m:integer;
begin
With Dat do begin
a:=(14 - month) div 12;
y:=Year-a;
m:=month+12*a-2;
DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7
end
end;
procedure DMY2Date(d,m,y:integer; var data:Date);
// Преобразует к дате заданные день, месяц и год
begin
data.Day:=d; data.Month:=m; data.Year:=y
end;
procedure LastDays(month,year:integer; var Wd,Fr:Date);
// даты последней среды (Wd) и пятницы (Fr) для месяца в году }
var
LastDay:Date;
n:integer;
begin
n:=nDay[month];
if (month=2) and (year mod 4 = 0) then Inc(n);
DMY2Date(n,month,year,LastDay);
n:=DOW(LastDay); // номер последнего дня недели
Wd.Month:=month; Wd.Year:=year;
if n<3 then Wd.Day:=LastDay.Day-(n+4)
else
if n=3 then Wd.Day:=LastDay.Day
else Wd.Day:=LastDay.Day+3-n;
Fr.Month:=month; Fr.Year:=year;
if n<5 then Fr.Day:=LastDay.Day-(n+2)
else
if n=3 then Fr.Day:=LastDay.Day
else Fr.Day:=LastDay.Day-1
end;
var
Wd,Fr:Date;
ff,mf:Text;
m:integer;
begin
Assign(ff,'father.txt'); Rewrite(ff);
Assign(mf,'mother.txt'); Rewrite(mf);
// Сентябрь-декабрь 2015 года
for m:=9 to 12 do begin
LastDays(m,2015,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс')
end;
// Январь - май 2016 года
for m:=1 to 5 do begin
LastDays(m,2016,Wd,Fr);
if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс')
else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс');
if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс')
else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс')
end;
Close(ff); Close(mf)
end.
Содержимое выходных файлов:
father.txt
30.9.2015 - 1 класс
28.10.2015 - 1 класс
30.10.2015 - 5 класс
30.12.2015 - 1 класс
24.2.2016 - 1 класс
26.2.2016 - 5 класс
30.3.2016 - 1 класс
mother.txt
25.9.2015 - 5 класс
25.11.2015 - 1 класс
27.11.2015 - 5 класс
25.12.2015 - 5 класс
27.1.2016 - 1 класс
29.1.2016 - 5 класс
25.3.2016 - 5 класс
27.4.2016 - 1 класс
29.4.2016 - 5 класс
25.5.2016 - 1 класс
27.5.2016 - 5 класс