Методическое и дидактическое обеспечение преподавания раздела «Алгоритмы и программы» в 5-11 кл. Исполнитель
| Вид материала | Реферат |
- Дидактическое обеспечение образовательной программы, 134.88kb.
- Методическое и дидактическое обеспечение программы. Педагогическое обеспечение. Работа, 462.32kb.
- Методическое и дидактическое обеспечение, 101.36kb.
- Методическое и дидактическое обеспечение программы № п/п Наименование предмета (курса,, 201.07kb.
- Образовательной программы Дороновой Т. Н. «Радуга» № п/п Наименование объектов и средств, 208.35kb.
- Методика преподавания дисциплины «Аудит», 41.52kb.
- Использование программы Power Point для создания учебного проекта «История развития, 85.11kb.
- Отчет по проекту №38: Разработка рекомендаций по реализации Болонского процесса в российской, 1485.06kb.
- «Причастие», 422.68kb.
- Лекция 4 Обеспечивающие подсистемы асу. Математическое, программное, лингвистическое,, 59.3kb.
LINE(350, 200 - n3 * 10)-(350 + n1 * 10, 200), 5
LINE(350, 200)-(350 + n1 * 10, 200 + n1 * 10), 6, BF
LINE(350, 200)-(350 - n3 * 10, 200 - n3 * 10), 8, BF
LINE(350, 200 - n3 * 10)-(350 + n3 * 10, (200 - n3 * 10) - n1 * 10), 5
LINE(350 + n1 * 10, 200)-(350 + n1 * 10 + n3 * 10, 200 - n1 * 10), 5
LINE(350+n1*10 + n3*10, 200-n1*10)-(350 + n3 * 10, (200 - n3 * 10) - n1 * 10), 5
PAINT (350 + n1 * 10, 200 - 5), 5, 5
END SUB
10. Код программы "Треугольник". Язык Turbo Pascal. (Структурная)
program treugolnik;
uses crt;
var r: array[1..5] of integer;
i, f, x0, y0, n1, n2, n3,q:integer;
Procedure init (n1, n2, n3:integer);
label 10;
begin
10:write('Сторона a=> '); readln(r[1]);n1:=r[1];
write('Сторона b=> '); readln(r[2]);n2:=r[2];
write('Сторона c=> '); readln(r[3]);n3:=r[3];
r[4] := r[1]; r[5]:= r[2];
for i:= 1 to 3 do
if r[i] >= r[i + 1] + r[i + 2] then begin
textcolor(5); writeln('Это не треугольник!');
textcolor(7); goto 10;
end;
end;
Procedure process;
begin
f := 0;
for i:= 1 to 3 do
if sqr(r[i]) = sqr(r[i + 1]) + sqr(r[i + 2]) then f:= 1;
end;
Procedure result;
begin clrscr;
if f = 0 then begin;
writeln('В треугольнике нет прямого угла'); exit;
end
else begin
textcolor(4); writeln('Это прямоугольный треугольник!');
textcolor(15); writeln('Его гипотенуза - ',r[i]);
end;
end;
begin clrscr; {Основная программа}
init(n1, n2, n3);
process;
result;
readln
end.
12. Один из вариантов самостоятельной работы по строковым. Язык Turbo Pascal.
program Stroka6; {строковые}
uses crt;
type digits = set of '0'..'9';
var cifry: digits;
s : string ;
I, C ,l,k: byte ;
begin clrscr;
cifry:=['0','1','2','3','4','5','6','7','9'];
{Write('Введите предложение -');Readln(S);}{После отладки убираем скобки}
S:='22; коровы; и; 3; быка; - вот; откуда; 100; телят;'; {и эту строку}
textcolor(2); writeln(s);
C:=0;l:=Length (s);
for I:=1 to l do begin
if s [I] in cifry then c:=c+1;
end;
textcolor(13);
Writeln ('В предложении - ',c,' цифирок');i:=2;
while i<=l do begin
if (s[i]=';') and (s[i-1]='т') then k:=k+1;
i:=i+1;
end;
textcolor(13);
Writeln ('В предложении - ',k,' слов, заканчивающихся буквой "т"');
readln
end.
13. Заполнение матриц по правилу_1.doc
| 1) Заполнить массив по следующему правилу: | 2) Заполнить массив по следующему правилу: |
| 0 1 1 1 0 1 0 1 0 1 1 1 0 1 1 1 0 1 0 1 0 1 1 1 0 | 0 2 2 2 1 2 0 2 1 2 2 2 1 2 2 2 1 2 0 2 1 2 2 2 0 |
| 3) Заполнить массив по следующему правилу: | 4) Заполнить массив по следующему правилу: |
| 0 2 2 2 2 0 1 0 2 2 0 1 1 1 0 0 1 1 1 1 0 0 1 1 1 0 2 2 0 1 0 2 2 2 2 0 | 0 2 2 2 2 0 3 0 2 2 0 1 3 3 0 0 1 1 3 3 0 0 1 1 3 0 2 2 0 1 0 2 2 2 2 0 |
| 5) Заполнить массив по следующему правилу: | 6) Заполнить массив по следующему правилу: |
| 0 2 2 2 2 0 1 0 2 2 0 1 1 1 0 0 1 1 1 1 0 0 1 1 1 0 2 2 0 1 0 2 2 2 2 0 | 0 2 2 2 2 0 3 0 2 2 0 1 3 3 0 0 1 1 3 3 0 0 1 1 3 0 2 2 0 1 0 2 2 2 2 0 |
| 7) Заполнить массив по следующему правилу: | 8) Заполнить массив по следующему правилу: |
| 1 2 2 2 2 0 2 1 2 2 0 2 2 2 1 0 2 2 2 2 0 1 2 2 2 0 2 2 1 2 0 2 2 2 2 1 | 0 2 2 2 2 1 3 0 2 2 1 4 3 3 0 1 4 4 3 3 1 0 4 4 3 1 4 2 0 4 1 4 4 4 2 0 |
| 9) Заполнить массив по следующему правилу: | 10) Заполнить массив по следующему правилу: |
| 1 2 2 2 2 0 4 1 2 2 0 4 4 4 1 0 4 4 4 4 0 1 4 4 4 0 2 2 1 4 0 2 2 2 2 1 | 0 2 2 2 2 1 3 0 2 2 1 5 3 3 0 1 5 5 3 3 1 0 5 5 3 1 4 2 0 5 1 4 4 4 2 0 |
| 11) Заполнить массив по следующему правилу: | 12) Заполнить массив по следующему правилу: |
| 0 1 1 1 0 1 0 1 0 1 1 1 0 1 1 1 0 1 0 1 0 1 1 1 0 | 0 2 2 2 1 2 0 2 1 2 2 2 1 2 2 2 1 2 0 2 1 2 2 2 0 |
Дополнительные задания
| 13) Заполнить массив по следующему правилу: | 14) Заполнить массив по следующему правилу: |
| 0 2 2 2 2 0 1 0 2 2 0 1 1 1 0 0 1 1 1 1 0 0 1 1 1 0 2 2 0 1 0 2 2 2 2 0 | 0 2 2 2 2 0 3 0 2 2 0 1 3 3 0 0 1 1 3 3 0 0 1 1 3 0 2 2 0 1 0 2 2 2 2 0 |
| 15) Заполнить массив по следующему правилу: | 16) Заполнить массив по следующему правилу: |
| 0 2 2 2 1 1 0 2 1 1 1 1 0 1 1 1 1 2 0 1 1 2 2 2 0 | 0 2 2 2 3 3 0 2 3 3 3 3 0 3 3 3 3 2 0 3 3 2 2 2 0 |
| 17) Заполнить массив по следующему правилу: | 18) Заполнить массив по следующему правилу: |
| 1 2 2 2 2 0 2 1 2 2 0 2 2 2 1 0 2 2 2 2 0 1 2 2 2 0 2 2 1 2 0 2 2 2 2 1 | 0 2 2 2 2 1 3 0 2 2 1 4 3 3 0 1 4 4 3 3 1 0 4 4 3 1 4 2 0 4 1 4 4 4 2 0 |
| 19) Заполнить массив по следующему правилу: | 20) Заполнить массив по следующему правилу: |
| 1 2 2 2 2 0 4 1 2 2 0 4 4 4 1 0 4 4 4 4 0 1 4 4 4 0 2 2 1 4 0 2 2 2 2 1 | 0 2 2 2 2 1 3 0 2 2 1 5 3 3 0 1 5 5 3 3 1 0 5 5 3 1 4 2 0 5 1 4 4 4 2 0 |
| 21) Заполнить массив по следующему правилу: | 22) Заполнить массив по следующему правилу: |
| 0 1 1 1 0 1 0 1 0 1 1 1 0 1 1 1 0 1 0 1 0 1 1 1 0 | 0 2 2 2 2 0 3 0 2 2 0 1 3 3 0 0 1 1 3 3 0 0 1 1 3 0 2 2 0 1 0 2 2 2 2 0 |