- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад решения олимпиадных задач по программированию. Олимпиадная Задача ‘’Забавная игра.
Содержание
- 1. Презентация решения олимпиадных задач по программированию. Олимпиадная Задача ‘’Забавная игра.
- 2. Забавная играИмя входного файла: d.inИмя выходного файла: d.outМакс. время работы: 3 секундыМакс. объем памяти: 8 мегабайт
- 3. 1910=1·2^4+0·2^3+0·2^2+1·2^1+1·2^0= =1001121001111001111000111000111100111·2^4+1·2^3+1·2^2+0·2^1+0·2^0=2810
- 4. Дано: Num:Integer;Требуется: Max:Integer;Связь: перевести исходное число в двоичную систему счисления,
- 5. Перевод в двоичную системуNumDigits:=0;While Num>0 Do Begin Inc(NumDigits); Digits[NumDigits]:=Num Mod 2; Num:=Num Div 2; End;
- 6. Получение циклических сдвиговDigit:=Digits[1]; For J:=2 To NumDigits Do Digits[J-1]:=Digits[J]; Digits[NumDigits]:=Digit;
- 7. Перевод в десятичную систему и нахождение максимальногоMax:=Num;…Num:=0;
- 8. Program bir;Var I,J,Max,Num,NumDigits,Digit:Integer; Digits:Array[1..20] Of Integer; Inp,Out:Text;Begin Assign(Inp,’d.in’); Reset(Inp); Read(Inp,Num); Close(Inp); Max:=Num; NumDigits:=0;
- 9. {перевод в двоичную систему} While Num>0
- 10. Digits[NumDigits]:=Digit; {перевод в десятичную систему} Num:=0;
Забавная играИмя входного файла: d.inИмя выходного файла: d.outМакс. время работы: 3 секундыМакс. объем памяти: 8 мегабайт
Слайд 2Забавная игра
Имя входного файла: d.in
Имя выходного файла: d.out
Макс. время работы: 3 секунды
Макс. объем памяти: 8
мегабайт
Слайд 31910=1·2^4+0·2^3+0·2^2+1·2^1+1·2^0=
=100112
10011
11001
11100
01110
00111
10011
1·2^4+1·2^3+1·2^2+0·2^1+0·2^0=2810
Слайд 4Дано: Num:Integer;
Требуется: Max:Integer;
Связь: перевести исходное число в двоичную систему счисления, получить все его циклические
сдвиги, перевести их в десятичную систему и выбрать максимальное из них
Постановка задачи
Слайд 5Перевод в двоичную систему
NumDigits:=0;
While Num>0 Do
Begin
Inc(NumDigits);
Digits[NumDigits]:=Num Mod 2;
Num:=Num Div 2;
End;
End;
![Перевод в двоичную системуNumDigits:=0;While Num>0 Do Begin Inc(NumDigits); Digits[NumDigits]:=Num Mod 2; Num:=Num Div 2; End;](/img/thumbs/d3ee087148cbbca92f8fdabb07ac4ece-800x.jpg "Презентация решения олимпиадных задач по программированию. Олимпиадная Задача ‘’Забавная игра. Перевод в двоичную системуNumDigits:=0;While Num>0 Do Begin Inc(NumDigits); Digits[NumDigits]:=Num Mod 2; Num:=Num Div 2; End;")
Слайд 6Получение циклических сдвигов
Digit:=Digits[1];
For J:=2 To NumDigits Do
Digits[J-1]:=Digits[J];
Digits[NumDigits]:=Digit;
![Получение циклических сдвиговDigit:=Digits[1]; For J:=2 To NumDigits Do Digits[J-1]:=Digits[J]; Digits[NumDigits]:=Digit;](/img/thumbs/9f64e5d83b96d028671b7b7aff21dce4-800x.jpg "Презентация решения олимпиадных задач по программированию. Олимпиадная Задача ‘’Забавная игра. Получение циклических сдвиговDigit:=Digits[1]; For J:=2 To NumDigits Do Digits[J-1]:=Digits[J]; Digits[NumDigits]:=Digit;")
Слайд 7Перевод в десятичную систему
и нахождение максимального
Max:=Num;
…
Num:=0;
For J:=NumDigits DownTo 1 Do
Num:=Num*2+Digits[J];
If Num>Max
Then
Max:=Num;
If Num>Max
Then
Max:=Num;
![Перевод в десятичную систему и нахождение максимальногоMax:=Num;…Num:=0; For J:=NumDigits DownTo 1 Do Num:=Num*2+Digits[J]; If Num>Max](/img/thumbs/516679ec69a4567d46d9f654076c0152-800x.jpg "Презентация решения олимпиадных задач по программированию. Олимпиадная Задача ‘’Забавная игра. Перевод в десятичную систему и нахождение максимальногоMax:=Num;…Num:=0; For J:=NumDigits DownTo 1")
Слайд 8Program bir;
Var
I,J,Max,Num,NumDigits,Digit:Integer;
Digits:Array[1..20] Of Integer;
Inp,Out:Text;
Begin
Assign(Inp,’d.in’);
Reset(Inp);
Read(Inp,Num);
Close(Inp);
Max:=Num;
NumDigits:=0;
NumDigits:=0;
![Program bir;Var I,J,Max,Num,NumDigits,Digit:Integer; Digits:Array[1..20] Of Integer; Inp,Out:Text;Begin Assign(Inp,’d.in’); Reset(Inp); Read(Inp,Num); Close(Inp); Max:=Num; NumDigits:=0;](/img/thumbs/3909cf61af81df48def5a43ce9b540cf-800x.jpg "Презентация решения олимпиадных задач по программированию. Олимпиадная Задача ‘’Забавная игра. Program bir;Var I,J,Max,Num,NumDigits,Digit:Integer; Digits:Array[1..20] Of Integer; Inp,Out:Text;Begin Assign(Inp,’d.in’); Reset(Inp); Read(Inp,Num); Close(Inp); Max:=Num; NumDigits:=0;")
Слайд 9 {перевод в двоичную систему}
While Num>0 Do
Begin
Inc(NumDigits);
Digits[NumDigits]:=Num
Mod 2;
Num:=Num Div 2;
End;
For I:=1 To NumDigits-1 Do
Begin
{сдвиг}
Digit:=Digits[1];
For J:=2 To NumDigits Do
Digits[J-1]:=Digits[J];
Num:=Num Div 2;
End;
For I:=1 To NumDigits-1 Do
Begin
{сдвиг}
Digit:=Digits[1];
For J:=2 To NumDigits Do
Digits[J-1]:=Digits[J];
![{перевод в двоичную систему} While Num>0 Do Begin Inc(NumDigits); Digits[NumDigits]:=Num Mod 2; Num:=Num Div 2; End;](/img/thumbs/50717e511c72d09035f463cb56552cb5-800x.jpg "Презентация решения олимпиадных задач по программированию. Олимпиадная Задача ‘’Забавная игра. {перевод в двоичную систему} While Num>0 Do Begin Inc(NumDigits); Digits[NumDigits]:=Num")
Слайд 10 Digits[NumDigits]:=Digit;
{перевод в десятичную систему}
Num:=0;
For J:=NumDigits DownTo 1
Do
Num:=Num*2+Digits[J];
If Num>Max
Then
Max:=Num;
End;
Assign(out,’d.out’);
Rewrite(out);
Write(out,Max);
Close(out);
End.
Num:=Num*2+Digits[J];
If Num>Max
Then
Max:=Num;
End;
Assign(out,’d.out’);
Rewrite(out);
Write(out,Max);
Close(out);
End.
![Digits[NumDigits]:=Digit; {перевод в десятичную систему} Num:=0; For J:=NumDigits DownTo 1 Do Num:=Num*2+Digits[J]; If Num>Max](/img/thumbs/43f3aefcca66ab9c6952e1ead98efc94-800x.jpg "Презентация решения олимпиадных задач по программированию. Олимпиадная Задача ‘’Забавная игра. Digits[NumDigits]:=Digit; {перевод в десятичную систему} Num:=0; For J:=NumDigits DownTo 1")
