Презентация: Программирование Turbo Pascal@
презентация к уроку по информатике и икт (11 класс) по теме

 

Система   программирования   состоит   из
 языка  программирования  и   языка  машины.
 
Язык машины – это язык машинных кодов,1 и 0.
 
Язык программирования – это искусственный язык,                 созданный человеком.
 
Программы- переводчики – переводят из языка программирования на язык машины.
Компиляторы,
трансляторы,
интерпретаторы.
 

 

 

   

       
 
 

 

 

Скачать:

ВложениеРазмер
Microsoft Office document icon operator_tsikla_s_parametrom2.doc75 КБ
Office presentation icon programmirovanie_tp.ppt342.5 КБ

Предварительный просмотр:

Методическая разработка

«Программирование на Turbo Pascal»

Учитель: Буцкина Лариса Васильевна


Оператор

цикла с параметром

for i:=A to B do

-------------------;

for I:=A downto B do

-------------------------;

        Начальные и конечные значения могут быть представлены:

  • Константами
  • Переменными
  • Арифметическими выражениями

        Этот оператор применяется тогда, если известно заранее число повторений операторов.

        Если тело цикла состоит из нескольких операторов, то они заключаются в операторные скобки   begin----end.

НАПРИМЕР:

Program pr_2;

Uses crt;

Var i,n:integer;

Begin

Clrscr;

for I:=235 to 1000 do

n:=n+i;

      Writeln(‘n=’,n);

      Readln;

End.


МАССИВЫ

I. Объявление массива.

  1. Одномерный массив.

        Const n=10;

        Var a: array [1..n] of integer;

  1. Двухмерный массив.

        Const n=10; m=10;

        Var a: array [1..n, 1..m] of integer;

II. Ввод массива.

 

        For i:=1 to n do

        Readln (a[i]);        

III. Вывод информации.

            в цикле

Writeln (‘       ‘)

            за циклом

IV. Основные формулы.

        A[i] – элементы массива

        S:=S+A[i];

        S:=S+A[i]*A[i]

        S:= S+i

        P:=P*A[i]

        P:= P*i

        K:=K+1

        IF A[i] = 5 TO A[i]:=2

        IF X MOD  2 = 0 THEN  

V. Простейшие задачи.

1. S - ?   S кв. эл. - ?   S ср. ар. - ?  P-?

        2. подсчитать количество

3. замена элементов

4. распечатка массивов

ПРИМЕР – 1

program pr_1;

const n = 10;

var a: array [1..n] of integer;

   i,s : integer;

begin

writeln('Введите эл. массива');

for i:=1 to n do

readln(a[i]);

for i:=1 to n do

s:=s+a[i];

writeln('s=',s);

readln;

end.

ПРИМЕР – 2 

Вычислить среднее арифметическое элементов массива.  

S:=S+a[i] – рабочая строка

За рабочим циклом

S:=S/n

ПРИМЕР – 3

Вычислить сумму квадрата элементов массива. 

S:=S+a[i] * a[i] – рабочая строка

ПРИМЕР – 4

Вычислить произведение  элементов массива.  

 P:=1 – до рабочего цикла

P:=P * a[i] – рабочая строка

ПРИМЕР – 5

Вычислить   n!   (факториал) 

Нет цикла ввода.

P:=1 – до рабочего цикла

P:=P * i – рабочая строка

ПРИМЕР – 6

Вычислить сумму натуральных чисел

Нет цикла ввода.

S:=S+i – рабочая строка

ПРИМЕР – 7

        Замена

If  a[i]=5  then  a[i]:=2  –   рабочая строка

For  i:=1  to  n  do

Writeln (a[i]);    –    вывод информации в цикле

ПРИМЕР – 8

program pr_1;

const n = 10;

var a: array [1..n] of integer;

                 i,k : integer;

begin

 writeln('Введите эл. массива');

  for i:=1 to n do

     readln(a[i]);

  for i:=1 to n do

     if a[I] = 2  then k:=k+1;

 writeln('k=' ,k);

 readln;

end.


ПРИМЕР – 9

Распечатка  массивов

program PR1;

var i,j:byte;

    a:  array[0..9, 0..9]of integer;

    ch:char;

begin

for i:=1 to 9 do

for j:=1 to 9 do

a[i,j]:=i*j;

for i:=1 to 9 do

begin

                  for j:=1 to 9 do

          begin write(a[i,j]:4); end;

writeln(' ');

end;

readln(ch);        

end.

Прерывание   работы   оператора      FOR…..NEXT.

Например:

For n=10 downto 5 do

Begin

Writeln(‘Введите число m’);

Readln(m);

If m=0 then exit for;

Writeln( m,’*’, n,’=’, m*n);

End;

Вопросы  для  повторения

ком.  повт.  с  параметром.

  1. Как записывается оператор?
  2. Как он выполняется?
  3. Тело цикла должно содержать 2 оператора. Какие из приведенных операторов правильные, какие нет и почему?
  • For I:=12 to 15 do s:=s+I;
  • For a:=30 to 20 do

        If a mod 3 =0 to d:=d+1;

  •  For x:=1 to 20 do s:=s+I

       

If (x mod 2=0) or (x mod 3=0)

       Then d:=d+1



Задача: Даны три числа Х1, Х2, Х3.

Написать программу определения наибольшего (наим.) из них.

Program   min;

Var a: array [1..3] of integer;  i,max:integer;

Begin

For i: =1 to 3 do

Readln (a[i]);

Max: =a [1];

For i: =1 to 3 do

if max

Writeln (‘max=’, max);

Readln;

End. 

Задача: Вычислить сумму всех натур. чисел от 5 до12.

Program   summa;

Var i, s: integer;

Begin

For i: =5 to 12 do

S: =S + i;

Writeln (‘S=’,S);

Readln;

End. 


Задача:      Вычислить n!;

Program   wychislenie;

Var    I, f, n: integer;

Begin

F: =1;

Readln (n);

For I: =1 to n do

F: = f*I;

Writeln (n,’!=’, f );

Readln;

End. 

Задача:   В массиве из 5 вещественных чисел расположить элементы в обратном порядке (на место 1-5,на 5-1, и т.д.).

Program poryadok;

Const n=10;

Var a: array [1..n] of real;  I:integer;

Begin

Writeln (‘Введите эл. массива’);

For I: =1 to n do

Readln (a [I]);

For I: =n downto 1 do

Writeln (a [I]:3);

Readln;

End. 


Задача:  Поиск максимального элемента из 7.  Запомнить его номер.

Program  max;

Var a: array [1..10] of integer; I,n,max:integer;

Begin

Writeln (‘Введите эл. массива’);

For I: =1 to 10 do

Readln (a [I]);

Max: =a [I]; n: =1;

For I:=1 to 10 do

If max<=a [I] then

Begin max: =a [I]; n: =I end;

Writeln (max, n);

Readln;

End.

 

Задача: Дана прямоугольная таблица  А, состоящая из 2 строк и 5 столбцов. Вычислить суммы элементов каждой из строк.

Program   summa_strok;

Var  a:array[1..2,1..5] of integer;  I,j:byte; S[I]:integer;

Begin

Writeln (‘Введите эл. массива’);

For I: =1 to 2 do

Begin

For j:=1 to5 do

Begin

Readln (a [I, j]);

S [I]:=s [I] +a [I, j]

End;

Writeln (‘ s [I]=’,s[I]);

End;

Readln;

End. 

Задача: Написать программу для вычисления суммы квадратов элементов стоящих на диагонали массива А [3,3].

Program   summa_kw;

Var a: array [1..3, 1..3] of integer;  I,j:byte; S: integer;

Begin

Writeln (‘Введите эл. массива’);

For I: =1 to 3 do

Begin

For j: =1 to3 do

Begin

Readln (a [I, j]);

End;

End;

For I:=1 to 3 do

Begin

For j:=1 to3 do

Begin

If I=j then

S: =s + a [I, j]*a [I, j]

End;

End;

Writeln (‘s=’, s);

Readln;

End. 


Задача: Преобразовать прямоугольную таблицу из 2 строк и 4 столбцов в одномерный массив.

Program   preobr_ massiw;

Var a: array [1..2, 1..4] of integer;  I,j:byte;

B: array [1..8] of integer; n: integer;

Begin

Writeln (‘Введите эл. массива’);

For I: =1 to 2 do

Begin

For j: =1 to 4 do

Begin

Readln (a [I, j])

End;

End;

For I: =1 to 2 do

Begin

For j: =1 to 4 do

Begin

N: =n+1 B (n):=a [I,j]

End;

End;

For n: =1 to 8 do

Writeln (b[n]);

Readln;

End. 


Задача:  Поменять местами в массиве столбцы и строчки.

Program   zamena;

Var   a: array [1..4, 1..4] of integer;  I, j: byte;

Begin

Writeln (‘Введите эл. массива’);

For I: =1 to 4 do

For j: =1 to 4 do

Readln ( a[I, j];)

For I: =1 to 4 do

Begin

For j: =1 to 4 do

Begin

Writeln (a [I, j])

End;

Writeln (‘   ‘)

End;

Readln;

End.

Задача:   Найти все двузначные числа, которые делятся на п.

Program

Var a: array [10 .. 99] of integer; n :integer;

Begin

Read (n);

For I: =10 to 99 do

If a [I] mod n=0 then

Writeln (a[I]);

Readln;

End.

(см. тетрадь Qbasic)


Задача:     Подсчитать сумму столбцов.

Program   summa_ stolb;

Var a: array [1.. 4, 1..3] of integer;  I, j: byte;

B: array [1.. 3] of integer; n: integer;

Begin

Writeln (‘Введите эл. массива’);

For I: =1 to 4 do

For j: =1 to 3 do

Readln (a [I, j]);

For I: =1 to 4 do

For j: =1 to 3 do

S[j]:= s[j] +a [I, j];

For j: =1 to 3 do

Writeln (s[j]);

Readln;

End. 


Задача:  Подсчитать число ошибок в устном счете.

Program   test;

Var a: array [1..5] of integer;

N, p1, p, x, y: integer;

Begin

Writeln (‘Введите 2 числа х и y’);

For I: =1 to 5 do

Begin

Read (x, y); P: =x*y; Readln (p1);

If p=p1 then

Writeln (‘Верно’)

Else

Begin writeln (‘Неверно’); n: =n+1 end;

end;

writeln (‘кол-во ошибок=’, n);

end.


Предварительный просмотр:


Подписи к слайдам:

Слайд 1

Элементарное программирование Презентация урока Учитель информатики: Буцкина Лариса Васильевна

Слайд 2

Система программирования Система программирования состоит из языка программирования и языка машины . Язык машины – это язык машинных кодов, 1 и 0. Язык программирования – это искусственный язык, созданный человеком. Программы- переводчики – переводят из языка программирования на язык машины. Компиляторы, трансляторы, интерпретаторы.

Слайд 3

Структура простейшей программы: program var Begin …… . …… . end .

Слайд 4

План решения задачи: Ввод информации Решение задачи Вывод информации

Слайд 5

Основные операторы: Ввода ------- Read (x) Вывода ----- Write (‘…‘)

Слайд 6

Например: Program Var a, b, x, y: integer; Begin а :=5; b:=7; x:=a + b; y:=a * b; Writeln (x, y); readln; End.

Слайд 7

Каждая строка должна заканчиваться ;

Слайд 8

Вопросы для повторения: С чего начинается программа? Как описываются переменные? С чего начинается основная программа? Как записывается оператор ввода? Как записывается оператор вывода? Как записывается оператор присваивания? Чем заканчивается программа?

Слайд 9

Презентация урока: Условный оператор Учитель информатики: Башкатова С.М.

Слайд 10

Условный оператор If……then… else…; if….then ………… . else ………… .; If……..then……; If if…..then ………… ;

Слайд 11

Если в качестве оператора должна выполнятся серия операторов, то они заключаются в скобки begin……end;

Слайд 12

Program PR-1; - найти большее из 2 чисел Uses crt; Var x, y: integer; Begin Clrscr; Writeln (‘ введите 2 числа ’); Readln (x, y); If x > y then Writeln (x) Else Writeln (y); Readln; End.

Слайд 13

Задача: Принадлежит ли число введенное с клавиатуры интервалу (0,5) Program pr_2; Uses crt; Var x:integer; Begin Clrscr; writeln(‘ Введите число х ’); readln(x); if (x>0) and (x<5) then writeln(x, ’ принадлежит отр. (0,5) ’) else writeln(x, ’ не принадлежит отр. (0,5) ’) ; readln; End.

Слайд 14

Задача: Вычислить S треуг. по формуле Герона Program PR-2; Uses crt; Var a,b,c:integer; p,r:real; Begin Clrscr; writeln(‘ введите стороны треугольника ’); readln(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a) then begin p:=(a+b+c)/2; s:=sqrt (p*(p-a)*(p-b)*(p-c)); writeln (‘S=‘,S) end else writeln(’ Треугольник не сущ. ’ ) ; readln; End .

Слайд 15

Program klaviat; Var x:char; n:integer; Begin Writeln (‘введите русскую букву а ’); Read (x); If x= ’ а ’ then Writeln (‘ верно ’) Else Begin Writeln (‘вы ошиблись’); n:=n+1 end ; ………………………………………… writeln (‘количество ошибок’, n ); readln; end. Задача: Проверка усвоения клавиатуры.

Слайд 16

Задача № 91 Написать программу определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям. Цена разговора за одну минуту 2.3 руб. Рекомендуемый вид экрана программы во время ее работы: Вычисление стоимости разговора по телефону. Введите исходные данные: Длительность разговора (целое кол. минут)  3 День недели (1- понедельник, … 7- воскресенье)  6 Предоставляется скидка 20%. Стоимость разговора: 5.52 руб.

Слайд 17

Вложенный условный оператор If ……. then begin …………… …………… end else if ……. then begin…………end else begin………….end;

Слайд 18

Задача: Составить программу вычисления функции в заданной точке.

Слайд 19

program abc; var x:integer; y:real ; begin writeln (‘Введите целое число’); readln (x); If x<=-2 then begin y:=1.3*x*x+cos(x+4); writeln (‘y=’,y) end else if (x>-2) and (x<6) then begin y:=4.1*x*x*x+3*sqrt(abs(2*x-5)); writeln (‘y=’,y) en d else if (x>=6) and (x<12) then Begin y:=16*ln(2*x)-exp(-x); writeln (‘y=’,y) end else writeln (‘Функция не определена’); readln; end.

Слайд 20

Оператор варианта Case ( оператор множественного выбора) Case n of Условие 1: действие 1; Условие 2: действие 2; Условие 3: действие 3 else действие 4 end ; В качестве оператора n можно использовать перемен - ную целого типа ( integer ) или символьного ( char ) типа.

Слайд 21

program abc; var x:integer; y:real; begin writeln (‘Введите целое число’); readln (x); Case х of -32768..-2 : y: =1.3*x*x + cos (x+4); -1..5 : y:= 4.1*x*x*x+3*sqrt (abs (2*x-5)); 6..12 : y:= 16*ln (2*x) - exp (-x) else writeln (‘ Функция не определена ’) end ; writeln (‘y=‘,y); readln; end.

Слайд 22

Задача: Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с идеальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантим.) – 100 . Рекомендуемый вид экрана: Введите в одной строке через пробел рост (см) и вес (кг), затем нажмите Enter .  170 68 Вам надо поправиться на 2.00 кг

Слайд 23

Var wes, rost, opt, d:real; Begin Wrineln (‘ Введите в одной строке через пробел ‘); Wrineln (‘ рост (см) и вес (кг), затем нажмите ’); Write (‘  ‘); readln ( wes, rost); opt : = rost – 100; if wes = opt then Wrineln(‘ Ваш вес оптимален! ‘) else if wes < opt then begin d: = opt – wes; Wrineln(‘ Вам надо поправиться на ‘,d:5:2,’ кг ’) end else begin d: = wes – opt; writeln( ‘ Вам надо похудеть на ’, d:5:2, ‘ кг ’) end ; readln; end .

Слайд 24

Задача : Написать программу, которая запрашивает у пользователя номер месяца и выводит соответствующие название времени года. В случае, если пользователь укажет недопустимое число, программа должна вывести сообщение «Ошибка ввода данных». Рекомендуемый вид экрана: Введите номер месяца (число от 1 до 12) и нажмите 11 Зима

Слайд 25

Определение времени года по номеру месяца Var month: integer; Begin Writeln (‘ Введите номер месяца ( от 1 до 12) и нажмите ‘); Write (‘  ‘); readln (month); Case month of 1,2,12: writeln (‘ Зима ‘); 3..5: writeln (‘ Весна ‘); 6..8: writeln (‘ Лето ‘); 9..11: writeln (‘ Осень ‘) else writeln (‘ Число должно быть от 1 до 12 ‘) end; readln; end .

Слайд 26

Домашнее задание Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: «Рабочий день», «Суббота» или «Воскресенье».


По теме: методические разработки, презентации и конспекты

Конспект урока с презентацией "Графика на языке программирования Turbo Pascal"

Урок для учащихся 11 класса по теме "Графика на языке программирования ТР". Содержит теоретический материал, практическую работу и презентацию к уроку. Надеюсь, многим учителям информатики пригодится!...

Сборник тестов «Структуры данных в языке Turbo Pascal» к разделу «Алгоритмизация и программирование» курса информатика и ИКТ в профильной классах.

Цель использования разработкиПроведение входного, текущих и итоговых контрольных работ в форме тестов по  темам:массивы;строковый тип данных;записи;файлы,а также для подготовки к ЕГЭ....

Основы программирования Turbo Pascal 7.0. Тематическое планирование кружка по информатике в 7 классе.

Основные цели и задачи курса:сформировать у учащихся умения владеть компьютером как средством решения практических задач;реализовать в наиболее полной мере возрастающий интерес учащихся к углубленному...

«Алгоритмизация и программирование Turbo Pascal»

Представленная программа представляет собой примерный план элективного курса по предмету «Информатика», углубленного по характеру, с применением методик по развитию логического мышления.В меняющ...

Язык программирования Turbo Pascal

Теоретический материал по теме "Язык программирования Turbo Pascal"...

Основы программирования Turbo Pascal 7.0. Тематическое планирование кружка по информатике в 7 классе.

Основные цели и задачи курса:сформировать у учащихся умения владеть компьютером как средством решения практических задач;реализовать в наиболее полной мере возрастающий интерес учащихся к углубленному...

Книга по языку программирования Turbo Pascal

Книга по языку программирования Turbo Pascal расчитанна на учащихся школ которые изучают данную тему.В данной книги последовательно излагается матерьял от самых простых и элементарных вещей до сложных...