Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Write('Число ',x,' в степени ',n,' равно ',St)Содержание книги
Поиск на нашем сайте
readkey; End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Изменить программу, применив функцию с параметрами. 3. Вычислить , при Х=3,используя функцию с параметрами.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 22 ПОВТОРЕНИЕ. ПОДГОТОВКА К КОНТРОЛЬНОЙ РАБОТЕ.
1. Вычислить Y=A+B+C, применив:
а) - процедуру ввода данных; - процедуру вычисления Y; - процедуру вывода результата; - глобальные переменные;
б) - заменить глобальные переменные на формальные;
в) - заменить процедуру вычисления суммы на функцию.
ВТОРОЙ ВАРИАНТ КОНТРОЛЬНОЙ РАБОТЫ Получить таблицу значений аргумента и функции на интервале от -5 до 15 с шагом 2 Повторяющуюся часть описать в функции, а получение таблицы описать в процедуре.
Program Primer; Uses crt;
Function R(x:integer):real; {x – формальная переменная} Begin R:=sqrt(x+8); End;
Procedure Tab; Var x, n, h: integer; {x,n,h – локальные переменные} Begin X:=-5; n:=15; h:=2; While x<=n do Begin Writeln(‘x=’,x,’ Y=’,(r(x)+2*(r(x)-2))/(4*(5-r(x))-r(x))) X:=x+h; End; End; Begin Clrscr; Tab; Readkey; End.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 23
П О В Т О Р Е Н И Е
Вычислить сумму четных или нечетных чисел натурального ряда до 100, используя выбор из меню:
1. Сумма четных чисел ряда 1,2,3,..., 100.
2. Сумма нечетных чисел ряда 1,2,3,..,100.
3. Конец работы.
Выбор осуществить с помощью if-then-else.
В программе обязательно использовать процедуры или функции.
Применить CASE
Если успеете, то подчеркните результат, применив процедуру подчеркивания, и покажите результат в центральной части экрана.
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 24 СИМВОЛЬНЫЕ И СТРОКОВЫЕ ФУНКЦИИ
Различают величины: 1. Константы - последовательность символов в апострофах. 2. Символьные переменные типа CHAR (кэр, чар) - переменные принимают значения символов:...var a:char;...а:='м';... 3. Строковые переменные типа STRING - цепочки символов:.var а:string; Максимальное число символов в цепочке равно 255.
1. LENGTH(S) -(лэнкс) - определяет и присваивает ДЛИНУ строковой величины S (количество символов, включая пробел). Результат – целое число.
2. CONCAT(S1,S2) -(конкат) - ОБЪЕДИНЕНИЕ (склеивание) символьных и строковых величин S1 и S2. Конкатенация производится также с помощью знака +,например S:='Ва'+'ся' Результат - строка ‘Вася’.
3. POS(ST,S) -(позишэн) - определяет и присваивает НОМЕР ПОЗИЦИИ, с которой подстрока ST входит в строку S. Результат - число, например pos('о','колесо') =2.
4. COPY(S,P,D) -(копи) - ВЫБИРАЕТ часть строковой величины S, начиная с позиции P, длиной D символов. Результат - выбранная строка или один символ. ПРИМЕРЫ: Program Primer1; Uses crt; Program Primer2; Uses crt; var b: string; var a,b,c: string; Y: integer; Begin Begin clrscr; clrscr; a:=' погода'; b:='информатика'; b:=' хорошая'; y:=length(b); c:=a+b; writeln('Длина строки =',y); writeln(c) End. End. Program Primer3; Uses crt; Program Primer4; Uses crt; var a: string; var a,b: string; Y: integer; Begin Begin clrscr; clrscr; a:='информатика'; a:='информатика'; b:=copy(a,3,5); writeln(a); writeln(a); y:=pos('р',a); writeln(b) { форма } Writeln('р на ',y,' месте'); End. End.
З А Д А Н И Я: 1. Набрать и запустить данные программы. 2. Определить число символов в предложении: 22 сентября - день осеннего равноденствия. Вырезать слово 'день' и присвоить его переменной b. Вывести предложение и это слово на экран. ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 25 СИМВОЛЬНЫЕ И СТРОКОВЫЕ ФУНКЦИИ (продолжение)
CHR(X) -(си эйч а) - ПРИСВАИВАЕТ СИМВОЛ соответствующий коду X. CHR(65) соответствует латинской заглавной букве А. ORD(S) -(ода) - ПРИСВАИВАЕТ НОМЕР символа из упорядоченной последовательности символов (см. ASCII), например: ORD(‘B’)=66.
ПРОЦЕДУРЫ НАД СТРОКОВЫМИ ВЕЛИЧИНАМИ
1. DELETE(S,POS,NUM) -(дилит) - УДАЛЯЕТ из строки S участок, содержащий NUM символов с позиции POS. 2. INSERT(OBJ,S,POS) -(инсет) - ВСТАВИТЬ строку OBJ (переменную или константу) в строку S(переменная) с позиции POS (целое). ПРОЦЕДУРЫ ПРЕОБРАЗОВАНИЯ ТИПОВ: 3. STR(VALUE,ST) -(стр) - ПРЕОБРАЗУЕТ числовое значение в СТРОКУ символов и запоминает результат в строке ST. 4. VAL(ST,VAR,CODE) -(вэл) - ПРЕОБРАЗУЕТ строковую величину ST в ЧИСЛОВУЮ величину (в зависимости от VAR). CODE - целая величина. Code=0,если нет ошибки, иначе Code равно Pos ошибочного символа, начиная с апострофа.
Program Primer5; Uses crt; Program Primer6; Uses crt; var a: string; var a: string; Begin Begin clrscr; clrscr; a:='Информатика'; a:='Инка'; writeln(a); writeln(a); delete(a,3,7); insert('формати',a,3); writeln(a); writeln(a) End. End. Program Primer7; Uses crt; Program Primer8; Uses crt; var a,b: string; var a: string; c: integer; r,x,y: integer; Begin Begin clrscr; clrscr; c:=100; a:='100 лет'; a:='Цена руб.'; val(a,x,r); str(c:4,b); y:=5*x; insert(b,a,5); write('Y=',y); writeln(a); readkey; End. End. З А Д А Н И Я: 1. Исполнить пример 5, затем используя delete, получить слова: "фомка" или "нотка". 2. Набрать и исполнить пример 6, затем используя delete, получить из слова "информатика" слово "математика". 3. Исполнить пример 7, затем получить фразу "Цена 10000 руб.". Для нахождения места вставки числа применить pos. 4. Исполнить пример 8, затем используя str и конкатенацию, получить фразу "2000 лет".
ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 26
|
||||
Последнее изменение этой страницы: 2016-08-12; просмотров: 157; Нарушение авторского права страницы; Мы поможем в написании вашей работы! infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 18.222.91.173 (0.006 с.) |