Успех можно запрограммировать? (Подумать и написать в тетрадь дома каким для вас будет алгоритм по достижению успеха).

План работы 1. Языки программирования…. (реферат) 2. Вспомнить блоки программы; 3. Виды алгоритмов. Базовые структуры; 4. Ключевые слова; 5. Pascal ABC (ключевые слова) 6. Решение задач на VB.net + Pascal+Cи 7.Дз: begin 9-10, if10, for2-3, array2. четверг

Учебная система программирования Pascal ABC и возможность ее использования в учебном процессе

Недостатки Borland Pascal Устаревший интерфейс Устаревшая графика Неудобная объектная модель Невозможность писать программы, управляемые событиями

Вид окна Pascal ABC

Ключевые слова Pascal ABC 1. Program название_программы ; 2.// объявить файловые переменные, как текстовые файлы 3. var f, f1: text; 4.// объявление переменных, используемых в программе 5. var i, a: integer; 6.// открыть операторные скобки 7. begin 8.// процедура assign связывает файловую переменную с конкретным файлом 9. assign (f,'d:\out.txt'); 10.//процедура rewrite открывает файл для записи 11. rewrite (f); 12.// цикл со счетчиком 13. for i:=1 to 10 do 14.End. // закрыть операторные скобки

Ключевые слова Pascal ABC 1.// записать в файл f информацию 2. write (f,i); // ; - закрывает цикл со счетчиком, аналог из Basic next 3.// перевод курсора на новую строку 4. writeln (); 5. assign (f1,'d:\in.txt'); 6.// процедура reset открывает файл для чтения 7. reset (f1); 8.// чтение данных из файла f1 9. read (f1,a) ; 10.// записать значение переменной а в файл f 11. writeln (f,a); 12.// закрыть файл 13. close (f); 14. close (f1); 15.end. // закрыть операторную скобку

Пример программы Program pr1; var a,b,S,P: real; begin read(a,b); S:=a*b; P:=2*(a+b); write(S,P); end.

Пример программы Program pr2; var a,b,max: integer; begin read(a,b); //чтение данных if a>b then max:=a else max:=b; write (max); //запись результата- end. вывод

Цикл со счетчиком. Массив статический

Самостоятельная практическая работа Тексты задач находятся в программе Задачи: begin 9-10, if10, for2-3, array2. Критерии оценивания: «3» за begin9,if10; 4 за begin9-0,if10,for2; 5- всё.