Знакомство с программой «Lazarus»


Чтобы посмотреть презентацию с оформлением и слайдами, скачайте ее файл и откройте в PowerPoint на своем компьютере.
Текстовое содержимое слайдов:

LAZARUS МУНИЦИПАЛЬНОЕ АВТОНОМНОЕ ОБЩЕОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ «СРЕДНЯЯ ОБЩЕОБРАЗОВАТЕЛЬНАЯ ШКОЛА № 112 Г. ЧЕЛЯБИНСКА» ВЫПОЛНИЛА УЧИТЕЛЬ ИНФОРМАТИКИ И ИКТПЕРВОЙ КАТЕГОРИИЮСУПОВА ЕВГЕНИЯ ВИКТОРОВНА Г.ЧЕЛЯБИНСК, 2010 ЗАПУСК LAZARUS Приложения -> Программирование -> Lazarus СОЗДАНИЕ ПРОЕКТА Файл -> Создать -> Custom Program -> Ok ИНТЕРФЕЙС LAZARUS КОД ПРОГРАММЫ НА ЯЗЫКЕ PASCAL program Project1; {$mode objfpc}{$H+} uses Classes, SysUtils { you can add units after this }; {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} var a,b,c:integer; t:boolean; begin read(a,b,c); t:=(a=b) or (a=c) or (b=c); write(t); readln; end. УСЛОВИЕ ЗАДАЧИ Треугольник со сторонами a, b, c является равнобедренным. Составить программу, печатающую TRUE, если указанное высказывание является истинным, и FALSE в противном случае. ОПЕРАТОР ВВОДА Read(переменная, переменная...); ReadLn(переменная, переменная...);Пример: ReadLn(а); ОПЕРАТОР ВЫВОДА Write (список выражений); WriteLn (список выражений); Пример: WriteLn(‘Найденное число: ‘, a:5:2); ОФОРМЛЕНИЕ КОД ПРОГРАММЫ НА ЯЗЫКЕ PASCAL program Project1; {$mode objfpc}{$H+} uses Classes, SysUtils { you can add units after this }; {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} var a,b,c:integer; t:boolean; begin writeln(' Vvedite storonu treugolnika'); readln(a,b,c); t:=(a=b) or (a=c) or (b=c); writeln('Treugolnik ravnobedrennui : ',t); readln; end. УСЛОВИЕ ЗАДАЧИ Найти среднее значение трех чисел a, b, c. Оформить вывод следующим образом: РЕШЕНИЕ ЗАДАЧ Var First, Second, Third : integer; Sum : real; Begin Write ('Vvedite pervoe chislo '); ReadLn(First); Write ('Vvedite vtoroe i trete cherez probel '); ReadLn(Second, Third); Sum := First + Second + Third; Sum := Sum/3; Write ('Srednee znachenie ', First, ', ',Second, ' i ', Third, ' ravno ', Sum:5:2); ReadLn; End. УСЛОВИЕ ЗАДАЧИ «Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр.»Задание: Составить программу, печатающую TRUE, если указанное высказывание является истинным, и FALSE в противном случае. КОД ПРОГРАММЫ НА ЯЗЫКЕ PASCAL: program Project1; {$mode objfpc}{$H+} uses Classes, SysUtils { you can add units after this }; {$IFDEF WINDOWS}{$R project1.rc}{$ENDIF} var a,b,c:integer; t:boolean; begin readln(a); b:=a div 1000+a div 100 mod 10; c:=a mod 10 + a mod 100 div 10; t:=b=c; writeln(t); readln; end. РЕШЕНИЕ ЗАДАЧ program Project1;{$mode objfpc}{$H+}uses Classes, SysUtils { you can add units after this };{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}var a,b,c:integer;t:boolean;beginwriteln('Введите число');readln(a); b:=a div 1000+a div 100 mod 10;writeln('Сумма первых 2х чисел ',b); c:=a mod 10 + a mod 100 div 10;writeln('Сумма последни 2х чисел ',c); t:=b=c;writeln('Они равны: ',t);readln;end.

Приложенные файлы

  • ppt Lazarus
    Размер файла: 1 MB Загрузок: 1

Добавить комментарий