Презентация: Программирование Turbo Pascal@
презентация к уроку по информатике и икт (11 класс) по теме
Скачать:
Вложение | Размер |
---|---|
![]() | 75 КБ |
![]() | 342.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. Объявление массива.
- Одномерный массив.
Const n=10;
Var a: array [1..n] of integer;
- Двухмерный массив.
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;
Вопросы для повторения
ком. повт. с параметром.
- Как записывается оператор?
- Как он выполняется?
- Тело цикла должно содержать 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
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 и 0. Язык программирования – это искусственный язык, созданный человеком. Программы- переводчики – переводят из языка программирования на язык машины. Компиляторы, трансляторы, интерпретаторы.
Структура простейшей программы: program var Begin …… . …… . end .
План решения задачи: Ввод информации Решение задачи Вывод информации
Основные операторы: Ввода ------- Read (x) Вывода ----- Write (‘…‘)
Например: Program Var a, b, x, y: integer; Begin а :=5; b:=7; x:=a + b; y:=a * b; Writeln (x, y); readln; End.
Каждая строка должна заканчиваться ;
Вопросы для повторения: С чего начинается программа? Как описываются переменные? С чего начинается основная программа? Как записывается оператор ввода? Как записывается оператор вывода? Как записывается оператор присваивания? Чем заканчивается программа?
Презентация урока: Условный оператор Учитель информатики: Башкатова С.М.
Условный оператор If……then… else…; if….then ………… . else ………… .; If……..then……; If if…..then ………… ;
Если в качестве оператора должна выполнятся серия операторов, то они заключаются в скобки begin……end;
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.
Задача: Принадлежит ли число введенное с клавиатуры интервалу (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.
Задача: Вычислить 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 .
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. Задача: Проверка усвоения клавиатуры.
Задача № 91 Написать программу определения стоимости разговора по телефону с учетом скидки 20%, предоставляемой по субботам и воскресеньям. Цена разговора за одну минуту 2.3 руб. Рекомендуемый вид экрана программы во время ее работы: Вычисление стоимости разговора по телефону. Введите исходные данные: Длительность разговора (целое кол. минут) 3 День недели (1- понедельник, … 7- воскресенье) 6 Предоставляется скидка 20%. Стоимость разговора: 5.52 руб.
Вложенный условный оператор If ……. then begin …………… …………… end else if ……. then begin…………end else begin………….end;
Задача: Составить программу вычисления функции в заданной точке.
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.
Оператор варианта Case ( оператор множественного выбора) Case n of Условие 1: действие 1; Условие 2: действие 2; Условие 3: действие 3 else действие 4 end ; В качестве оператора n можно использовать перемен - ную целого типа ( integer ) или символьного ( char ) типа.
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.
Задача: Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с идеальным и выдает рекомендацию о необходимости поправиться или похудеть. Оптимальный вес вычисляется по формуле: рост (в сантим.) – 100 . Рекомендуемый вид экрана: Введите в одной строке через пробел рост (см) и вес (кг), затем нажмите Enter . 170 68 Вам надо поправиться на 2.00 кг
Var wes, rost, opt, d:real; Begin Wrineln (‘ Введите в одной строке через пробел ‘); Wrineln (‘ рост (см) и вес (кг), затем нажмите
Задача : Написать программу, которая запрашивает у пользователя номер месяца и выводит соответствующие название времени года. В случае, если пользователь укажет недопустимое число, программа должна вывести сообщение «Ошибка ввода данных». Рекомендуемый вид экрана: Введите номер месяца (число от 1 до 12) и нажмите
Определение времени года по номеру месяца Var month: integer; Begin Writeln (‘ Введите номер месяца ( от 1 до 12) и нажмите
Домашнее задание Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: «Рабочий день», «Суббота» или «Воскресенье».
По теме: методические разработки, презентации и конспекты
Конспект урока с презентацией "Графика на языке программирования Turbo Pascal"
Урок для учащихся 11 класса по теме "Графика на языке программирования ТР". Содержит теоретический материал, практическую работу и презентацию к уроку. Надеюсь, многим учителям информатики пригодится!...
Сборник тестов «Структуры данных в языке Turbo Pascal» к разделу «Алгоритмизация и программирование» курса информатика и ИКТ в профильной классах.
Цель использования разработкиПроведение входного, текущих и итоговых контрольных работ в форме тестов по темам:массивы;строковый тип данных;записи;файлы,а также для подготовки к ЕГЭ....
Основы программирования Turbo Pascal 7.0. Тематическое планирование кружка по информатике в 7 классе.
Основные цели и задачи курса:сформировать у учащихся умения владеть компьютером как средством решения практических задач;реализовать в наиболее полной мере возрастающий интерес учащихся к углубленному...
![](/sites/default/files/pictures/2013/10/22/picture-23421-1382410409.jpg)
«Алгоритмизация и программирование Turbo Pascal»
Представленная программа представляет собой примерный план элективного курса по предмету «Информатика», углубленного по характеру, с применением методик по развитию логического мышления.В меняющ...
Язык программирования Turbo Pascal
Теоретический материал по теме "Язык программирования Turbo Pascal"...
Основы программирования Turbo Pascal 7.0. Тематическое планирование кружка по информатике в 7 классе.
Основные цели и задачи курса:сформировать у учащихся умения владеть компьютером как средством решения практических задач;реализовать в наиболее полной мере возрастающий интерес учащихся к углубленному...
Книга по языку программирования Turbo Pascal
Книга по языку программирования Turbo Pascal расчитанна на учащихся школ которые изучают данную тему.В данной книги последовательно излагается матерьял от самых простых и элементарных вещей до сложных...