определяет массив;
Case - состоит из выражения (селектора) и списка
операторов, каждый из которых выполнится в определенном случае;Const – определение константы
- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему по информатике на тему Основы Pascal
Содержание
- 2. Зарезервированные словаAnd - бинарный логический оператор умножения;Аrray
- 3. Div – деление нацело;Mod – возвращает остаток
- 4. Sqr - функция языка Паcкаль, которая возводит число
- 5. Типы переменных
- 6. Целочисленный тип
- 7. Вещественный тип
- 8. Логический типBoolean (принимает значения Правда и Ложь)Строковый
- 9. Линейные программы
- 10. Вывод строкиProgram HelloWord; begin writeln ('Hello World!');readln;end.
- 11. Арифметические вычисленияprogram raznost;var a,b,c: integer;beginwrite(‘Vvedite chislo’);readln(a);write(‘Vvedite chislo’);readln(b);c:=a-b;writeln(c);readln;end.
- 12. Периметр треугольникаProgram perimetr;Var a, b, c, p
- 13. Задачи на линейные алгоритмыДан угол в градусах.
- 14. 5. Заданы моменты начала и конца некоторого
- 15. 7. Три пассажира одновременно сели в такси.
- 16. 9. Известна этажность дома и количество квартир
- 17. 12. Ввести десятичное число из интервала от
- 18. Разветвление if-then-else
- 19. Решение квадратного уравненияProgram yravnenie; var a, b,
- 20. В каком случае программа выдаст ошибку? Что нужно сделать, чтобы её исправить?
- 21. if D >= 0 then begin
- 22. ОтметкаVar otmetka: longint;BeginWriteLn(‘Vvedite ocenku');ReadLn(otmetka);if (otmetka = 1)
- 23. Задачи на разветвляющиеся алгоритмыВвести два числа, вывести
- 24. Известны года рождения Владимира, Ивана и Петра.
- 25. Известны фамилии, а также часы, минуты и
- 26. Два друга в августе приезжают в
- 27. Определить взаимное расположение круга заданного радиуса и
- 28. Можно ли из круглой заготовки радиуса r
- 29. Между городами, находящимися на заданном расстоянии друг
- 30. Циклы
- 31. Цикл for-to-doProgram Test; var i : integer;
- 32. Цикл While - doProgram Test; var i
- 33. Почему программа выдает так много чисел? Как это исправить?
- 34. i := 1; x := 10; Temp := x; while i
- 35. Цикл через repeati := 10; repeat writeLn
- 36. Объясните, как вы выберете нужный цикл из трех изученных при решении различных задач?
- 37. ФакториалProgram Factorial;Var n, i : integer; Result
- 38. Циклические алгоритмыВвести число, вывести его удвоенное значение.
- 39. Одноклеточная амеба делится пополам каждые 15 минут.
- 40. program ameba;var i,n,b,c:longint;beginreadln(n);b:=n*4;c:=1;for i:=1 to b dobeginc:=c*2;writeln(c);end;readln;end.
- 41. program ameba;var i,n,b,c:longint;beginc:=1;n:=1000000;while c
- 42. В водоеме V тонн рыбы. Ежегодно в
- 43. Рандомные числаprogram Random;var a,z: integer;beginfor a:=0 to 10 dobeginz:=random(37);writeln(z);Readln;endend.
- 44. program massiv;uses crt;var a:integer;beginclrscr;randomize;repeata:=random(1000);writeln(a);until a=256;readlnend.
- 45. Упражнение на знание таблицы умноженияvar c,i:integer;
- 46. МассивProgram Mass00;Var a: array[1..10] of integer;i,s:integer;BeginFor i:=1
- 47. МассивыНайти сумму элементов массиваНайти произведение элементов массиваОпределить
- 48. Известно количество каждого товара и стоимость единицы
- 49. Найти среднее арифметическое элементов массива, не равных
- 50. Скачать презентацию
- 51. Похожие презентации
Зарезервированные словаAnd - бинарный логический оператор умножения;Аrray – определяет массив;Case - состоит из выражения (селектора) и списка операторов, каждый из которых выполнится в определенном случае;Const – определение константы
![МассивProgram Mass00;Var a: array[1..10] of integer;i,s:integer;BeginFor i:=1 to 10 dobeginWrite('a[',i,'] = ');ReadLn(a[i]);s:=s+a[i];end;Write('Сумма](/img/tmb/6/589256/d14f84dfb98307eb30bf5681511a220e-720x.jpg "Презентация по информатике на тему Основы Pascal")
Слайд 2
Зарезервированные слова
And - бинарный логический оператор умножения;
Аrray –
определяет массив;
операторов, каждый из которых выполнится в определенном случае;Const – определение константы
Слайд 3
Div – деление нацело;
Mod – возвращает остаток от
деления;
Not – логическая операция «НЕ»
Or – логическая операция «ИЛИ»
Abs -
функция языка Паскаль, которая вычисляет модуль числа;Слайд 4 Sqr - функция языка Паcкаль, которая возводит число в
квадрат;
Xor(либо). Это операция, которая называется исключающее или. Комбинация 2-х
логических переменных, связанных между собой союзом «xor» (либо) является истинной только в том случае, если обе переменные разные (т.е. одна истинна, другая ложна).
Слайд 8
Логический тип
Boolean (принимает значения Правда и Ложь)
Строковый тип
String
(Число символов (длина строки) должно не превышать 255)
Алфавитно-цифровой тип
Char
(хранит только один символ)
Слайд 11
Арифметические вычисления
program raznost;
var a,b,c: integer;
begin
write(‘Vvedite chislo’);
readln(a);
write(‘Vvedite chislo’);
readln(b);
c:=a-b;
writeln(c);
readln;
end.
Слайд 12
Периметр треугольника
Program perimetr;
Var a, b, c, p :longint;
begin
WriteLn(‘Vvedite 1 storony treugolnika a');
readLn(a);
WriteLn(' Vvedite
2 storony treugolnika b'); readLn(b);
writeLn(' Vvedite 3 storony treugolnika c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
Readln;
end.
Слайд 13
Задачи на линейные алгоритмы
Дан угол в градусах. Найти
его величину в радианах.
Дан угол в радианах. Найти его
величину в градусах.Момент времени задан в часах, минутах и секундах. Определить количество секунд, прошедших от полуночи до этого момента.
Момент времени задан в секундах от полуночи. Определить время в часах, минутах и секундах.
Слайд 14 5. Заданы моменты начала и конца некоторого промежутка
времени в часах, минутах и секундах (в пределах одних
суток). Найти продолжительность этого промежутка в тех же единицах измерения.6. Два пассажира одновременно сели в такси. Когда вышел первый пассажир, на счетчике было S1 рублей, когда вышел второй - S2 рублей. Сколько должен заплатить каждый пассажир, если таксист за всю поездку должен получить S2 рублей, а за равные расстояния пассажиры платят равные суммы? В начале поездки счетчик показывал 0.
Слайд 15 7. Три пассажира одновременно сели в такси. Когда
вышел первый пассажир, на счетчике было S1 рублей, когда
вышел второй – S2 рублей, когда вышел третий – S3 рублей. Сколько должен заплатить каждый пассажир?8 Известны моменты времени в часах, минутах и секундах включения и выключения электрокамина заданной мощности. Зная стоимость одного киловатт-часа электроэнергии, определить общую стоимость обогрева. Оба момента времени в пределах одних суток.
Слайд 16 9. Известна этажность дома и количество квартир на
каждой лестничной клетке каждого подъезда. По номеру квартиры определить
номер подъезда и этаж.10. Ввести цифры трехзначного восьмеричного числа. Вывести значение этого числа в десятичной системе счисления.
11. Ввести цифры трехзначного двоичного числа. Вывести значение этого числа в десятичной системе счисления.
Слайд 17 12. Ввести десятичное число из интервала от 64
до 511. Вывести представление этого числа в восьмеричной системе
счисления.13. Ввести число из интервала от 4 до 7. вывести представление этого числа в двоичной системе счисления.
14. Ввести цифры трехзначного числа в системе счисления с заданным основанием, не большим 10. Вывести значение этого числа в десятичной системе счисления.
Слайд 19
Решение квадратного уравнения
Program yravnenie;
var
a, b, c,
D : integer;
x1, x2 : real;
begin
writeLn (‘3*х^2 + 8*x + 5 = 0');Writeln(‘Введите a’);
Readln(a);
Writeln(‘Введите b’);
Readln(b);
Writeln(‘Введите c’);
Readln(c);
D := sqr (b) - 4 * a * c;
x1 := (- b - sqrt (D)) / (2 * a);
x2 := (- b + sqrt (D)) / (2 * a);
writeLn (‘Корни уравнения:');
writeLn ('X1 = ', x1 : 8 : 5);
writeLn ('X2 = ', x2 : 8 : 5);
Readln;
end.
Слайд 21
if D >= 0 then
begin
x1 := (- b - sqrt (D)) / (2
* a);x2 := (- b + sqrt (D)) / (2 * a);
writeLn ('Корни уравнения:');
writeLn ('X1 = ', x1 : 1 : 5);
writeLn ('X2 = ', x2 : 1 : 5)
End
else
begin
writeLn (‘Корней нет!');
writeLn (‘Попробуйте еще!')
end.
Слайд 22
Отметка
Var otmetka: longint;
Begin
WriteLn(‘Vvedite ocenku');
ReadLn(otmetka);
if (otmetka = 1) or
(otmetka = 2) then
WriteLn(‘Very bad')
else if otmetka = 3
thenWriteLn(‘Bad')
else if otmetka = 4 then
writeLn(‘Nice')
else if otmetka = 5 then
writeLn(‘Cool!')
else
writeLn(‘Takih otmetok ne byvaet');
Readln;
end.
Слайд 23
Задачи на разветвляющиеся алгоритмы
Ввести два числа, вывести наибольшее
из них.
Ввести два числа, вывести их в порядке возрастания.
Ввести
три числа, вывести наименьшее из них.Ввести три числа, вывести их в порядке убывания (упорядочить по убыванию).
Слайд 24 Известны года рождения Владимира, Ивана и Петра. Определить,
кто кому из них дед, отец, сын, внук.
Известны
размеры очередей на трех соседних остановках. Определить размеры очередей после проезда маршрутного такси заданной вместимости.Дано линейное уравнение ax+b=0. Определить решение этого уравнения в зависимости от параметров a и b.
Слайд 25 Известны фамилии, а также часы, минуты и секунды
финиша двух спортсменов на марафонской дистанции. Определить победителя.
Даны длины
трех отрезков. Определить, могут ли отрезки быть сторонами треугольника. Если да, то определить тип треугольника: равносторонний, равнобедренный, разносторонний, прямоугольный.Слайд 26 Два друга в августе приезжают в отпуске
в родной город. Известны даты их приезда и отъезда.
Определить, смогут ли они встретиться и сколько дней могут провести вместе.Для каждой из трех деталей известен один из двух станков, на котором она должна быть обработана, и время обработки в минутах. Определить, когда освободится каждый из станков.
Слайд 27 Определить взаимное расположение круга заданного радиуса и квадрата
с заданной стороной. У круга и квадрата общий центр.
По
результатам сессии, состоящей из трех экзаменов, определить тип студента: отличник, хорошист, троечник, двоечник.Определить, пройдет ли шкаф размера A*B*C в дверь размера X*Y.
Можно ли коробку размером a*b*c упаковать в посылку размером u*v*w?
Слайд 28 Можно ли из круглой заготовки радиуса r вырезать
две прямоугольные пластины с размерами a*b и c*d?
Путник двигался
t1 часов со скоростью V1, затем t2 часов со скоростью V2 и t3 часов со скоростью V3. За какое время он достиг середины пути?Число делится на 3 тогда и только тогда, когда сумма его цифр делится на 3. Проверить этот признак делимости на примере заданного трехзначного числа.
Слайд 29 Между городами, находящимися на заданном расстоянии друг от
друга, существует железнодорожное сообщение. Известны времена выхода в часах
и минутах и скорости движения каждого из двух встречных поездов. Определить, встретятся ли поезда. Если да, то найти время встречи и расстояние точки встречи от первого города.Ввести номер дня недели. Вывести его название (case).
Слайд 31
Цикл for-to-do
Program Test;
var i : integer; x
: integer;
begin
x := 10;
for i :=
0 to х do begin
writeLn (i, ' ', x);
x := x + 2
end;
Readln;
end.
Слайд 32
Цикл While - do
Program Test;
var i :
integer; x : integer;
begin
i := 1;
x :=
10; while i <= x
do
begin
writeLn (i, ' ', x);
x := x + 1;
i := i + 1;
End;
Readln;
end.
Слайд 37
Факториал
Program Factorial;
Var n, i : integer; Result :
longint;
begin
Write (‘Kakoe znachenie? ');
ReadLn (n);
Result := 1;
for i := 1 to n dobegin
Result := Result * i;
writeln(Result)
end;
writeLn (‘Rezultat: ', Result);
ReadLn;
end.
Слайд 38
Циклические алгоритмы
Ввести число, вывести его удвоенное значение. Повторять
действия, пока не будет введен 0;
Вывести на экран десять
раз текст «Мне нравится мороженое»;Найти сумму натуральных чисел от 1 до n;
Найти сумму четных чисел от 2 до 100;
Слайд 39 Одноклеточная амеба делится пополам каждые 15 минут. Вывести
количество амеб через каждые 15 минут а) в течение
n часов; б) пока клеток не станет больше 1 миллиона.
Слайд 40
program ameba;
var i,n,b,c:longint;
begin
readln(n);
b:=n*4;
c:=1;
for i:=1 to b do
begin
c:=c*2;
writeln(c);
end;
readln;
end.
Слайд 42 В водоеме V тонн рыбы. Ежегодно в конце
года рыболовецкая бригада вылавливает Z тонн. Воспроизводство рыбы 5%
в год. Для сохранения воспроизводства после отлова в конце года в водоеме должно остаться не меньше 5 тонн рыбы. Через какое количество лет должна быть прекращена ловля?
Слайд 43
Рандомные числа
program Random;
var a,z: integer;
begin
for a:=0 to 10
do
begin
z:=random(37);
writeln(z);
Readln;
end
end.
Слайд 44
program massiv;
uses crt;
var a:integer;
begin
clrscr;
randomize;
repeat
a:=random(1000);
writeln(a);
until a=256;
readln
end.
Слайд 45
Упражнение на знание таблицы умножения
var c,i:integer;
a:2..10;
b:2..10;
Begin
randomize;
a:=random(10);
b:=random(10);
c:=a*b;
Write('Сколько будет', a,'x', b, '= ');
read(i);
if i<>c then
begin
Writeln('Ответ неправильный');
end;
if i=c then
begin
Writeln('Ответ правильный');
end;
Readln;
End.
Слайд 46
Массив
Program Mass00;
Var a: array[1..10] of integer;
i,s:integer;
Begin
For i:=1 to
10 do
begin
Write('a[',i,'] = ');
ReadLn(a[i]);
s:=s+a[i];
end;
Write('Сумма всех элементов массива равна' ,
s);Readln;
End.
Слайд 47
Массивы
Найти сумму элементов массива
Найти произведение элементов массива
Определить количество
положительных элементов массива
По массиву оценок определить средний балл.
По массиву
оценок определить количество отличных, хороших, удовлетворительных и неудовлетворительных оценокСлайд 48 Известно количество каждого товара и стоимость единицы каждого
товара. Определить суммарную стоимость всех товаров.
Определить максимальный элемент массива.
Определить
максимальный из отрицательных элементов массива и его номер.Слайд 49 Найти среднее арифметическое элементов массива, не равных ни
