Главная

Знакомство с языком программирования Pascal начнем в  учебной среде  PascalABC.NET

Скачать программу можно с официального сайта разработчиков http://pascalabc.net/

Презентация "Основы программирования на языке Паскаль"автор К.Ю.Поляков

Учебник для начинающих программировать скачать можно здесь

Задача. Ввести два целых числа и вывести на экран их сумму.
Решение:
program z1;
            var a, b, c: integer;
            begin
writeln('Введите два целых числа');
   read ( a, b );
   c := a + b;
   writeln ( c );
            end.

Получилось? Сравни с таким решением:

 program z1;
            var a, b, c: integer;
            begin
   writeln('Введите два целых числа');
   read ( a, b );
   c := a + b;
   writeln ('сумма ', a, '+', b, '=', c );
            end.

Чем эта программа лучше, что здесь добавлено?

Задание 1.Написать программу определения суммы, произведения трех чисел, введенных с клавиатуры

Задача. Ввести два целых числа и вывести на экран результат деления

решение: programz2;
               var a, b: integer;
               c:real;
               begin
   writeln('Введите два целых числа');
   read ( a, b );
   c := a / b;
  writeln ( 'результат деления ',a,' на ',b,' = ',c:5:2 );
               end. 
 Проведи эксперименты с программой.Для чего c:real; и  в writeln вывод необычный c:5:2

Ответ на стр. 5 и 10  учебника. Учебник скачать можно здесь

Задание 2. Написать программу определения среднего арифметического трех чисел, введенных с клавиатуры

С простейшими арифметическими операциями мы познакомились:
+ сложение    - вычитание    * умножение     / деление
а вот новые:
div - деление нацело (остаток отбрасывается)
mod - остаток от деления.

Проведите эксперимент с программой:

Program z3;
Var a,b,c :integer;
Begin
WriteLn( 'введите 2 числа' );
Read( a,b );
c:=a div b;
WriteLn( 'целая часть от деления',a,' на ',b,' = ',c );
c:=a mod b;
WriteLn( 'остаток от деления ',a,' на ',b,' = ',c );
end.

Еще один эксперимент с программой:
program z4;
var a, b, c: integer;
begin
  write ( 'Введите двухзначное целое число: ' );
  read ( a );
  b:= a div 10;   
  c:= a mod 10;   
  writeln (a, ' div 10= ', b);
  writeln (a, ' mod 10= ', c);
end.

Задание 3. Написать программу определения цифр четырехзначного числа  (см. стр.13 учебника)

 Молодец!  Первые шаги сделаны, можно переходить в разряд чайников!