Цель урока: обобщение изученного материала, применение его в новых условиях, обучение поиску новой информации с помощью сети Интернет, разработка компьютерных программ, создание презентаций.
Lehrer: Die Berufswahl ist nicht immer leicht.
In unserer heutigen Deutschstunde sprechen wir zu diesem aktuellen Thema. Was
ist eurer Meinung nach für die Berufswahl wichtig? Warum?
(Die Schüler beantworten die
Fragen).
- Traumberuf
- Stellenwert in der Gesellschaft
- Anforderungen
- Berufsausbildung
Lehrer: (Bild Nr. 1) Auf der Leinwand sehen Sie sechs verschiedene Bilder. Das sind alles unterschiedliche Berufe. Nennt mir bitte die Berufe. (1 Schüler nennt die Berufe)
Lehrer: (Bild Nr. 2) Ordnet die Berufe. (1 Schüler ordnet die Berufe)
Lehrer: Vor dieser
Stunde hat jeder einen Fragebogen bekommen und ausgefüllt. Daraus ist ein
Diagramm entstanden. Die meisten, 41,6 % möchten Programmierer werden. 16,6 %
möchten Tourismus-Manager oder Rechtsanwälte werden. 8,3 % möchten
Musiker, Sportler oder Logistikerin werden.
(Bild Nr. 3)
Lehrer: Weil fast die Hälfte der Schüler Programmierer werden wollen, ist auch der Informatiklehrer anwesend.
Wer kann mir sagen, was der Beruf des Programmierers bedeutet?
Schüler: Ich möchte Programmierer werden, da mir die Arbeit am Computer viel Spaβ macht. Neue Programme zu entwickeln würde mir Freude bereiten.
Lehrer: Wer kann mir sagen, was der Beruf des Rechtsanwaltes bedeutet?
Schülerin: Ich möchte Rechtsanwältin werden, weil ich die Rechte der Menschen vor Gericht vertreten will. Auβerdem ist mein Vater Rechtsanwalt und dadurch habe ich einen guten Einblick in diesen Beruf bekommen.
Lehrer: Wer kann mir sagen, was der Beruf des Tourismus-Managers bedeutet?
Schülerin: Ich möchte Tourismus-Managerin werden, da ich Spaβ am Reisen habe und gerne mit Menschen zusammenarbeite. Ich möchte möglichst viele Länder und Kulturen kennenlernen.
Lehrer: Wer kann mir sagen, was der Beruf des Musikers bedeutet?
Schüler: Ich möchte Musiker werden, da mir Musik viel Freude bereitet. Ich spiele Bass-Gitarre, was mir Spaβ macht und ich möchte mein Hobby zum Beruf machen.
Lehrer: Wer kann mir sagen, was der Beruf des Sportlers bedeutet?
Schüler: Ich möchte Sportler werden, da ich in meiner Freizeit viel Sport mache. Ich spiele Basketball, Fuβball und mache Leichtathletik. Es wäre schön, wenn mein Hobby zum Beruf wird.
Lehrer: Wer kann mir sagen, was der Beruf des Logistikers bedeutet?
Schülerin: Ich möchte Logistikerin werden, damit ich ein Unternehmen bei einem sparsamen und wirtschaftlichen Einsatz des Fuhrparks unterstützen kann.
Lehrer: Kann mir jemand sagen, was bei dem künftigen Beruf wichtig ist? (2,3 Schüler antworten) Schaut euch das Bild an. (Bild Nr. 4)
Lehrer: (Es wird eine Diskussion geführt.) Jetzt sprechen wir über eure Berufswünsche. Haben die deutschen Jungen und Mädchen die gleichen Berufswünsche? Welche Berufe bevorzugen die Mädchen und welche die Jungen? Welche Berufe bevorzugen die russischen Jugendlichen? Haben sie die gleichen Berufswünsche? Welche Berufswünsche habt ihr?
Lehrer: (Bild Nr. 5) Sie sehen berühmte und bekannte Leute. Wen würden sie interviewen wollen? Warum? (2-3 Schüler antworten).
Die Schüler zeigen ihre Präsentation vor (verschiedene Berufe).
Lehrer: (Bild Nr. 6) Welchen Beruf sehen Sie auf diesem Bild? (1 Schüler antwortet).
Lehrer: Niemand von euch möchte Lehrer werden. Begründet, warum nicht. Wie soll Ihrer Meinung nach ein Lehrer sein? (Schüler antworten)
Lehrer: (Bild Nr. 7) Ihre Meinung stimmt mit meiner Meinung überein.
Lehrer: Und jetzt ein bisschen Grammatik-Training: klickt auf: программы, учебные курсы, тестирование-deutsch-11-ф.и.
1. Das duale System der Berufsausbildung sieht vor, dass die Schüler ein Berufspraktikum in einem Betrieb haben und gleichzeitig eine Berufsschule besuchen, … dort fach-theoretischen Unterricht … bekommen.
A: statt … zu
B: ohne … zu
*C: um … zu
D: damit
2. Es gibt an deutschen Schulen 2 Berufspraktika, … die Schüler ihrer Wunschberufe besser ausprobieren können.
A: statt ... zu
B: ohne … zu
C: um … zu
*D: damit
3. Manche Schüler besuchen die Sekundarstufe eines Gymnasiums, … sie konkrete Gedanken über ihren Beruf … machen.
A: statt … zu
*B: ohne … zu
C: um … zu
D: damit
4. … berufsorientierte Fächer … wählen, wählen sie die Fächer, die für sie leichter sind.
*A: statt … zu
B: ohne … zu
C: um … zu
D: damit
Lehrer: Ergebnisse des Tests. Klickt auf “Ergebnisse”, bekommt eure Noten.
Informatiklehrer:
Aufgabe Nr.1
(Программа DecToHex.pas)
Написать программу, реализующую перевод введенного с клавиатуры десятеричного числа в шестнадцатеричное и восьмеричное его представления. При написании программы использовать структуры подпрограмм (функции), массивов.
Program DecToHex;
Uses Crt;
Var n : LongInt;
Function IntToHex(N : LongInt) : String;
{ Данная функция преобразует введенное число в строку, содержащую шестнадцатеричное представление этого числа }
Const
{Объявление символьного массива шестнадцатеричной системы счисления}
Hex : Array [0..15] Of Char = '0123456789ABCDEF';
Var
i, j, k : LongInt;
Result, s : String;
Begin
Result := ''; {начальное значение}
k := n;
Repeat {цикл определения значения цифры в 16-ричной системе счисления}
j := k div 16; {целая часть от деления на 16}
i := k mod 16; { остаток от деления на 16}
Result := Result + Hex[i];
k := j;Until j = 0; {остановка, если больше нечего делить}
S := Result;
For i := 1 To Length(Result) Do
S[Length(S)-i+1] := Result[i];
IntToHex := S; {передача полученного результата в основное тело программы}
End;
Function DecToOct(N : LongInt):String;
{ Данная функция преобразует введенное число в строку, содержащую восьмеричное представление этого числа}
Const
{Объявление массива цифр восьмеричной системы счисления}
Oct : Array [0..7] Of Char = '01234567';
Var
i, j, k : LongInt;
Result, s : String;
Begin
Result := ''; {начальное значение}
k := n;
Repeat { цикл определения значения цифры в 8-ричной системе счисления }
j := k div 8; { целая часть от деления на 16}
i := k mod 8; { остаток от деления на 16}
Result := Result + Oct[i];
k := j;Until j = 0; { остановка, если больше нечего делить }
S := Result;
For i := 1 To Length(Result) Do
S[Length(S)-i+1] := Result[i];
DecToOct := S; { передача полученного результата в основное тело программы }
End;
{ОСНОВНОЕ ТЕЛО ПРОГРАММЫ}
Begin
ClrScr; { Процедура очистки экрана }
Write('Введите целое десятеричное число: '); { Приглашение пользователя ко вводу данных}
ReadLn(n); { Ввод числа в пямять программы}
{вывод результата, здесь –h означает что число представлено в 16-ричном виде }
WriteLn('Ваше число в шестнадцатеричном виде: ', IntToHex(n), '-h');
{вывод результата, здесь –o означает что число представлено в 16-ричном виде }
WriteLn('Ваше число в восьмеричном виде: ', DecToOct(n), '-o');
ReadLn; {Ожидание нажатия клавиши Enter}
End. {КОНЕЦ ПРОГРАММЫ}
Aufgabe Nr.2
(Программа Massiv.pas)
Написать программу, генерирующую двумерный массив целых чисел из диапазона [0..9]. Подсчитать, сколько раз в полученном массиве встречается каждый элемент. Полученные результаты вывести на экран. В случае нулевого значения – результат на экран не выводить. Ограничения: дополнительных массивов не создавать.
Program ElementsOfMatrix;
Uses Crt;
Const
MaxSize = 10; { Максимальная размерность матрицы}
MaxEl = 9; { Максимальный элемент матрицы}
Type
Matrix = Array [0..MaxSize, 0..MaxSize] Of Byte; {Объявление двумерного массива}
Var Mass : Matrix; {Имя массива}
i, j : Byte; {параметры циклов для обработки массива}
k, l : Byte; { количество строк и столбцов в массиве}
m, n : Byte; {m – переменная для цикла по возможным вариантам элементов, n – переменная для подсчета количества одинаковых элементов}
{ОСНОВНОЕ ТЕЛО ПРОГРАММЫ}
Begin
ClrScr;
Repeat {проверка корректности ввода количества строк в массиве}
Write('Введите количество строк в массиве: ');
ReadLn(k);Until k<=MaxSize;
Repeat {проверка корректности ввода количества столбцов в массиве}
Write(' Введите количество столбцов в массиве: ');
ReadLn(l);Until l<=MaxSize;
{ генерирование элементов матрицы и вывод матрицы на экран}
Randomize;
WriteLn;
WriteLn('Сгенерированная матрица :');
For i:=1 To k Do Begin
For j:=1 To l Do Begin
Mass[i,j]:=Random(MaxEl+1);
Write(Mass[i,j]:2);End;
WriteLn;
End;
{Подсчет количества одинаковых элементов в массиве и вывод результатов на экран}
WriteLn;
For m:=0 To MaxEl Do Begin { запускаем цикл на перебор возможных вариантов}
n:=0; {обнуление начального количества одинаковых элементов}
For i:=1 To k Do Begin { запуск цикла по строкам}
For j:=1 To l Do Begin { запуск цикла по столбцам}
If Mass[i,j]=m Then Inc(n) { сравнение элемента массива с возможным вариантом}
End;
End;
{Вывод количества одинаковых элементов}
If n<>0 Then WriteLn('Количество элементов ', m, ' : ', n);
End;
GoToXY(1,25); { Перемещение курсора вниз экрана}
Write('Нажмите пожалуйста клавишу Enter...'); { Информационное сообщение}
ReadLn; { Ожидание нажатия клавиши Enter}
End.
Aufgabe Nr.3
(Программа Sneginka.pas)
Написать программу, выводящую на экран изображение снежинки по следующей рекурсивной формуле: из центра снежинки “вырастает” N (задается константой) лучей длины k (задается константой). Концы каждого луча являются центрами новых снежинок. Длины лучей уменьшаются в 3 раза с каждым шагом. Для реализации программы использовать рекурсию функции построения снежинки.
Program Sneginka;
Uses CRT, Graph;
const
k = 150; { Длина первоначального луча }
n = 6; { Количество лучей снежинки }
m = 5; { Длина рекурсии – сколько раз вызвать функцию,рисующую снежинку }
var gd, gm: integer;
procedure Sneginka_v_zh (x, y: word; r, c: byte);
{ Данная процедура высчитывает процесс построения снежинки и рисует ее изображение согласно условию }
var
alpha : real; { Переменная для вычисления угла между лучами при построении снежинки }
i : byte; { Параметр цикла }
xd, yd : integer; { переменные для вычисления координат концов лучей снежинки}
begin { тело процедуры}
if c < 1 then exit; { Если длина рекурсии <1 то ничего не рисуем }
for i := 1 to n do begin { Запуск цикла для построения n лучей снежинки}
alpha := 2 * Pi * i / n; { Вычисление угла между лучами }
xd := round(x + r * cos(alpha)); { вычисление координаты конца луча по оси х }
yd := round(y + r * sin(alpha)); { вычисление координаты конца луча по оси y }
moveto(x, y); { установка курсора в центр снежинки }
lineto(xd, yd); { рисуем луч}
Sneginka_v_zh(xd, yd, r div 3, c - 1); { Рекурсивный вызов процедуры – процедура вызывает сама себя указанное количество раз (m) }end;
end;
BEGIN { ОСНОВНОЕ ТЕЛО ПРОГРАММЫ}
initgraph(gd, gm, 'x:\bp'); { Инициализация графического режима}
setcolor(LightBlue); { Устанавливаем цвет снежинки }
sneshinka_v_zh(320, 240, k, m); { Вызов процедуры построения снежинки }
readkey; { Задержка перед выходом – ожидание нажатия клавиши Enter}
closegraph; { Закрытие графического режима}
END. { КОНЕЦ ПРОГРАММЫ}
Beide Lehrer:
Wie hat euch der Unterricht heute gefallen? Was haben Sie neues erfahren und dazugelernt und was wussten Sie vorher schon? Welches Computerprogramm hat Ihnen am besten gefallen?
Die Schüler bekommen ihre Noten und Hausaufgaben.
Hausaufgabe: Versuchen Sie zu Hause ein Programm, das Sie heute gelernt haben anzuwenden.
Wir bedanken uns für Ihre Aufmerksamkeit und Mitarbeit.