изученных ЗУН по данной теме урока.
Задачи:
Знать базовые понятия программирования
Ликвидировать неосмысленность материала
Воспитывать целеустремленность, толерантность.
- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Программирование на языке Pascal
Содержание
- 1. Программирование на языке Pascal
- 2. РазминкаLengthVarCircleIntegerWhileBegin StringRectangleProgramRealFor i:=1RepeatUses GraphArrayIf …ThenReadWriteArc123
- 3. ФормулаПосчитайте G при x=123, y=-247, z=-7569В программе Pascal
- 4. ФормулаG=program Formyla;var x,y,z:integer; g:real;beginx:=123;y:=-247; z:=-7569;g:=Sqrt(4*x*Sqr(x)+5*Sqr(y))/Abs(7.5*x*y+z)+x*Sqr(x)*Sqr(x);writeln (g);end.-1911714228.98818
- 5. Запиши строки на языке PascalОткройте программу PowerPoint,
- 6. Cтроки на языке PascalFor x:=1 to N
- 7. Посчитай18 Div 5 19 Mod 6 30
- 8. Посчитай20 Div 6 21 Mod 5 23
- 9. Посчитай21 Div 9 21 Mod 4 34
- 10. Конкурс капитановИсправь ошибки в программе
- 11. Исправьте ошибки в программеТребуется найти сумму 7 целых чисел, которые пользователь введёт сам через клавиатуру.
- 12. Program Summa;Var i, s: integer; x: array
- 13. S := '987654321';S1 := Copy ( S,
- 14. Итог работыВысокий«5»Выше среднего«4 +»Удовлетво-рительный«3»Нижесреднего«4 - »Средний«4»
- 15. Слайд 15
РазминкаLengthVarCircleIntegerWhileBegin StringRectangleProgramRealFor i:=1RepeatUses GraphArrayIf …ThenReadWriteArc123
Слайд 2
Разминка
Length
Var
Circle
Integer
While
Begin
String
Rectangle
Program
Real
For i:=1
Repeat
Uses Graph
Array
If …Then
Read
Write
Arc
1
2
3
Слайд 4Формула
G=
program Formyla;
var x,y,z:integer; g:real;
begin
x:=123;y:=-247; z:=-7569;
g:=Sqrt(4*x*Sqr(x)+5*Sqr(y))/Abs(7.5*x*y+z)+x*Sqr(x)*Sqr(x);
writeln (g);
end.
-1911714228.98818
Слайд 5Запиши строки на языке Pascal
Откройте программу PowerPoint, запишите операторы
Открыть цикл с
параметром от 1 до N
Вывести сообщение: Площадь круга равна 40 кв.см
Квадрат размером 60*60
Если Х≥У то А=Х-У иначе А=У-Х
Описать массив от 1 до 15 элемента целых чисел с именем К
Открыть цикл с предусловием пока Х<100 повторять Х+10
Часть окружности
Вывести сообщение: Площадь круга равна 40 кв.см
Квадрат размером 60*60
Если Х≥У то А=Х-У иначе А=У-Х
Описать массив от 1 до 15 элемента целых чисел с именем К
Открыть цикл с предусловием пока Х<100 повторять Х+10
Часть окружности
Слайд 6Cтроки на языке Pascal
For x:=1 to N do
Write (‘Площадь круга равна’,
S, ‘кв.см’);
Rectangle (100, 110, 160, 170);
If X>=Y Then A:=X-Y else A:=Y-X;
Var K : array[1..N] of integer;
While X<100 do X:=X+10;
Arc (100,100, 50, 270, 90);
Rectangle (100, 110, 160, 170);
If X>=Y Then A:=X-Y else A:=Y-X;
Var K : array[1..N] of integer;
While X<100 do X:=X+10;
Arc (100,100, 50, 270, 90);
Слайд 11Исправьте ошибки в программе
Требуется найти сумму 7 целых чисел, которые пользователь
введёт сам через клавиатуру.
Слайд 12Program Summa;
Var i, s: integer; x: array [1..7] of integer;
begin
For i:=1
to 7 do
Begin
Read (x[ i ]);
S:=S+ x [i];
End;
write ('Сумма =', S);
end.
Begin
Read (x[ i ]);
S:=S+ x [i];
End;
write ('Сумма =', S);
end.
Требуется найти сумму 7 целых чисел, которые пользователь введёт сам через клавиатуру.
![Program Summa;Var i, s: integer; x: array [1..7] of integer;beginFor i:=1 to 7 doBeginRead (x[ i ]);S:=S+](/img/thumbs/4b15f5297ea20a59be13916acda1ef81-800x.jpg "Программирование на языке Pascal Program Summa;Var i, s: integer; x: array [1..7] of integer;beginFor i:=1")
Слайд 13S := '987654321';
S1 := Copy ( S, 3, 6);
S2 :=
Copy ( S1, 2, 3);
S3:=Insert ( 'ABC', S2, 3);
S4:=Delete ( S3, 2, 4);
S3:=Insert ( 'ABC', S2, 3);
S4:=Delete ( S3, 2, 4);
Определите результат
765432
654
65ABC4
64
