Решение линейных программ на Паскале текстового типа.

Стрельникова Л.В. - автор презентации

Проверка дом задания - самостоятельная
Символьные и строковый тип данных
Решение задач на строковые величины
Логический тип данных
Решение задач на логический тип данных
Самостоятельная работа

Стрельникова Л.В. - автор презентации

Введя с клавиатуры площадь и одну сторону прямоугольника, найти длину другой стороны.
S – площадь прямоугольника
a – одна сторона прямоугольника
b - ?

Папа, воспитывая сына-двоечника, изнашивает в год 3 ремня.
Ввести с клавиатуры количество изношенных папой ремней, определить: какой класс закончил сын.

Стрельникова Л.В. - автор презентации

Program Remni;
var n, m :integer;
Begin
Write ('Введи число изношенных ремней ');
Readln (n);
m:= n div 3
Writeln (‘Сын учится в ', m);
End.

Стрельникова Л.В. - автор презентации

Стрельникова Л.В. - автор презентации

Текст - это произвольная последовательность символов некоторого алфавита.
Алфавит - любое множество символов, например (0, 1,2, …), ( А, Б, В,…), ( A, B, C, ... ).
Символьная (текстовая) константа - последовательность символов заключенных в кавычки (апострофы).
Строка символов может состоять из одного или нескольких символов, а также не содержать ни одного символа (пустая строка, или строка нулевой длины).
Максимальная длина текстовой строки 255 символов.

Стрельникова Л.В. - автор презентации

Наиболее распространенная международная согласованная система кодирования всех символов - система ASCII.
Символы с кодами от 0 до 127 представляют так называемую основную таблицу кодов ASCII. Эта часть идентична на всех IBM-совместимых компьютерах.
Коды с символами от 128 до 255 представляют национальную часть алфавитов.

Стрельникова Л.В. - автор презентации

ASCII (American Standard Code of Information Interchange)

Стрельникова Л.В. - автор презентации

Символьный тип данных (Char)
Диапазон значений: любой символ —буквы, цифры, знаки препинания, спец. символы.
Каждому символу алфавита соответствует индивидуальный числовой код от 0 до 255.
Ord(x) - возвращает порядковый номер символа x
Chr(i) – определяет символ с порядковым номером i

Простой вывод

В виде матрицы

В виде пирамиды

Стрельникова Л.В. - автор презентации

Строка - последовательность символов определенной длины. Элементы строки хранятся памяти ЭВМ на хранение 1 символа используется 1 байт памяти.
Переменные типа string могут быть объявлены следующим образом:
Var Str1: String[30];
Str2: String.

Стрельникова Л.В. - автор презентации

Функция ord преобразовывает букву в её числовой код.

Символы – это все буквы и значки, которые есть на клавиатуре. Для ввода в программу символьных переменных необходимо указать для них символьный тип данных char.

Функция chr преобразовывает числовой код символа в сам символ.

Значением строковой величины (тип string) является произвольная последовательность символов, заключенная в апострофы.

W

87

W

%

37

%

4

52

4

var c: string
c:= chr(52)+chr(37)

Стрельникова Л.В. - автор презентации

program n_5;
var a: char; kod: integer; b: string;
begin
writeln ('Код и строка');
write ('Введите исходную букву>>');
readln (a);
kod:=ord(a);
b:=chr(kod–1)+a+chr(kod+1);
writeln ('Код буквы ', a, '-', kod);
writeln ('Строка: ', b)
end.

Вывод на экран кода буквы, введённой с клавиатуры

Вывод на экран строки из трёх букв.
Каких?

Стрельникова Л.В. - автор презентации

Стрельникова Л.В. - автор презентации

Переменные типа BOOLEAN могут иметь только 2 значения - "true" ("истина") и "false" ("ложь").
Логическое выражение содержит сравнение: x>r+4, a<=5*b и т.п.
Эти значения переменные могут получать только в операторе присваивания: слева - имя переменной, справа - логическое выражение.
Z := x>=10;

Стрельникова Л.В. - автор презентации

Пусть объявлена переменная b: boolean,
И в теле программы стоит оператор
b := x>5;
Значения переменной b будут зависеть от значений X
при х=7 b="true"
при х=3 b="false"

Стрельникова Л.В. - автор презентации

ЗАДАЧА Ввести с клавиатуры номер кабинета. Есть ли такой в гимназии? Если в гимназии 48 кабинетов.
Program Gym;
Const n=48; {всего 48 кабинетов}
Var Otvet: boolean;
Num: integer;
Begin
Write ('Введи номер кабинета '); Readln (Num);
Otvet := Num <= n; {номер меньше или равен последнему?}
Writeln ('Есть такой кабинет? ',Otvet);
End.

Стрельникова Л.В. - автор презентации

Задача: Ввести случайным образом двузначное число и проверить равны ли его цифры?

Стрельникова Л.В. - автор презентации

Запишите на языке Паскаль программу, которая
вычисляет сумму кодов букв в слове БАЙТ.

Запишите на языке Паскаль программу, которая выводит на экран строку символов, коды которых равны 66, 69, 71, 73, 78.

Стрельникова Л.В. - автор презентации

Даны значения целочисленных переменных:
a = 10, b = 20.
Чему будет равно значение логической переменной rez после выполнения операции присваивания?
а) rez:=(a=10) or (b>10)
б) rez:=(a>5) and (b>5) and (a<20) and (b<30)
в) rez:=( (not(a<15)) or (b>20)

Стрельникова Л.В. - автор презентации

Разработайте программу, которая запрашивает три строковые величины – взаимосвязанные прилагательное, существительное и глагол, а затем печатает все варианты фраз с использованием введённых слов.

Стрельникова Л.В. - автор презентации

Составьте программу, вводящую true, если высказывание является истинным, и false в противном случае:
а) сумма цифр трёхзначного числа x является чётным числом;
б) треугольник со сторонами a, b, с является разносторонним.

Стрельникова Л.В. - автор презентации

Запишите на языке Паскаль программу, которая выводит на экран строку символов, коды которых равны 66, 69, 71, 73, 78.

Стрельникова Л.В. - автор презентации

Запишите на языке Паскаль программу, реализующую алгоритм работы кассира, выдающего покупателю сдачу (s) наименьшим количеством банкнот по 500 (k500), 100 (k100), 50 (k50) и 10(k10) рублей.

Стрельникова Л.В. - автор презентации

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

Стрельникова Л.В. - автор презентации

Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её до ближайшего рубля (до 50 копеек - с недостатком, свыше 50 копеек (включая 50) - с избытком).
Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить.

Стрельникова Л.В. - автор презентации

Известны координаты вершин A, B, C треугольника.
Напишите программу, вычисляющую площадь этого треугольника.

Стрельникова Л.В. - автор презентации

Известны длины сторон треугольника a, b, c.
Напишите программу, вычисляющую площадь этого треугольника.

Стрельникова Л.В. - автор презентации

Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет её до ближайшего рубля (до 50 копеек - с недостатком, свыше 50 копеек (включая 50) - с избытком).
Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить.

Стрельникова Л.В. - автор презентации

По заданным координатам точек А и В вычислите длину отрезка АВ.

Стрельникова Л.В. - автор презентации

Одна компания выпустила лотерейные билеты трёх разрядов: для молодежи, для взрослых и для стариков.
Номера билетов каждого разряда лежат в пределах:
для молодёжи - от 1 до 100;
для взрослых - от 101 до 200;
для стариков - от 201 до 250.
С помощью компьютера выберите случайным образом лотерейный билет в каждом разряде.

Стрельникова Л.В. - автор презентации

Для заданного x вычислите у по формуле
у = х3 + 2,5х2 – х +1.
При этом:
а) операцию возведения в степень использовать запрещено;
б) в одном операторе присваивания можно использовать не более одной арифметической операции (сложение, умножение, вычитание);
в) в программе может быть использовано не более пяти операторов присваивания.
Подсказка: преобразуйте выражение к следующему
виду: y =((x + 2,5)x –1)x +1.

Стрельникова Л.В. - автор презентации

Одна компания выпустила лотерейные билеты трёх разрядов: для молодежи, для взрослых и для стариков.
Номера билетов каждого разряда лежат в пределах:
для молодёжи - от 1 до 100;
для взрослых - от 101 до 200;
для стариков - от 201 до 250.
С помощью компьютера выберите случайным образом лотерейный билет в каждом разряде.

Стрельникова Л.В. - автор презентации

Исследуйте работу функции random, запустив многократно на выполнение программу:
program n_8;
var x, n: integer;
begin
writeln ('Исследование функции random');
randomize (*для генерации различных случайных чисел
при каждом запуске программы *);
write ('Введите x>>');
readln (x);
write ('Введите n>>');
readln (n);
writeln ('random(', x, ')=', random(x));
writeln ('random(', x, ')+', n, '=', random(x)+n)
end.

Стрельникова Л.В. - автор презентации

Для заданного x вычислите у по формуле
у = х3 + 2,5х2 – х +1.
При этом:
а) операцию возведения в степень использовать запрещено;
б) в одном операторе присваивания можно использовать не более одной арифметической операции (сложение, умножение, вычитание);
в) в программе может быть использовано не более пяти операторов присваивания.
Подсказка: преобразуйте выражение к следующему
виду: y =((x + 2,5)x –1)x +1.

Как можно получить случайное число из промежутка (0; x]?

Стрельникова Л.В. - автор презентации

Идёт k-я секунда суток. Разработайте программу, которая по введённой k-й секунде суток определяет, сколько целых часов h и целых минут m прошло с начала суток.
Например, если k =13257=3 х 3600 + 40 х 60 + 57,
то h =3 и m = 40.
Выведите на экран фразу: It is … hours … minutes.
Вместо многоточий программа должна выводить значения h и m, отделяя их от слов ровно одним пробелом.

Стрельникова Л.В. - автор презентации

Алгоритм решения может быть такой:
описать константы;
описать переменные;
ввести значение высоты ветки;
вычислить время падения;
вывести результат на экран.

Время падения можно вычислить по формуле:
На Паскале это выражение можно записать так: t:=sqrt(2*h/g). Ускорение свободного падения примем равным 10.

Стрельникова Л.В. - автор презентации

1 вариант
Ввести с клавиатуры число. Является ли оно положительным?

2 вариант
Задать случайным образом номер дня недели - целое число от 1 до 7. Напечатать, является ли день выходным.

Стрельникова Л.В. - автор презентации

1. Задать с помощью генератора случайных чисел час суток - целое число от 0 до 23. Напечатать, к какой половине дня он относится (до или после полудня).
2. Маша Петрова сделала в диктанте М ошибок, а Гриша Кружков, который у нее все списал, - на К ошибок больше.
Ввести с клавиатуры значения для М и К. Сколько ошибок сделал Гриша?

Стрельникова Л.В. - автор презентации