Язык программирования Turbo Pascal. Реферат. Информационное обеспечение, программирование.
👉🏻👉🏻👉🏻 ВСЯ ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻
Информационное обеспечение, программирование
Вы можете узнать стоимость помощи в написании студенческой работы.
Помощь в написании работы, которую точно примут!
Похожие работы на - Язык программирования Turbo Pascal
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Скачать Скачать документ
Информация о работе Информация о работе
Нужна качественная работа без плагиата?
Не нашел материал для своей работы?
Поможем написать качественную работу Без плагиата!
Язык программирования Turbo Pascal
Программа в Turbo Pascal состоит из следующих разделов:
- Заголовок программы, который является необязательной частью
программы. Его описание:
где именем программы является идентификатор - набор символов, состоящий
из латинских букв, цифр и символа подчеркивания, не начинающийся с цифры. В
Паскале нет различия между большими и маленькими буквами алфавита, если только
они не входят в символьные и строковые константы.
- Раздел меток (если они есть), который описывается следующим
образом: Label <список меток>;
Список состоит из имен меток, отделенных друг от друга запятой. Например,
Label m, n, kl;
объявлены 3 метки: m, n и kl. Именем метки является идентификатор или число от 0 до .
Метка помечает оператор в программе, которому следует передать управление
в определенных случаях.
В списке описываются константы, которые отделяются друг от друга точкой с
запятой. Каждая константа описывается следующим образом:
<имя константы>=<значение константы>;
где именем константы является идентификатор, а значение можно задать в
виде выражения.
Константой является величина, имеющая на протяжении выполнения программы
строго фиксированное значение, которое не может меняться в процессе исполнения
программы.
где список типов содержит описание каждого типа данных следующим образом:
где, в свою очередь, тип данных может быть либо стандартным, либо
описанным выше в том же разделе Type.
Подробнее о стандартных типах данных в Turbo Pascal будет рассказано в разделе 1.2.
где каждая переменная описывается следующим образом:
где имя переменной является идентификатором, а тип - либо один из
стандартных типов, либо тип, уже описанный в разделе Type.
Если две или более переменные являются переменными одного типа, то их
можно объявить в одной строке, отделив их имена запятыми.
Переменные являются величинами, значение которых могут изменяться в
течение выполнения программы.
Здесь описаны 3 переменные: a типа integer, и b и c типа
real.
- Раздел операторов, который является основной частью
программы. В нем находятся операторы, заключенные в операторные скобки Begin … End.
Операторы друг от друга отделяются точкой с запятой, перед End точку с запятой можно не ставить.
Каждый из этих разделов является необязательным, кроме раздела
операторов, и может отсутствовать в программе.
Типы данных в Turbo Pascal бывают стандартными и описанными
пользователем в разделе type.
Каждая переменная имеет тип и имя. Имя переменной является идентификатором.
Стандартные типы данных делятся на простые и структурированные. Простыми
являются типы данных, в которых под одним именем переменной содержится одно
значение: одно целое число, одно вещественное число, один символ, одно
логическое значение: «да» или «нет».
- Тип integer
- целочисленный тип. Переменной этого типа является целое число в пределах от
-8 до 7.
Над данными целого типа можно выполнять следующие операции:
+ (сложение), - (вычитание), * (умножение), / (деление);
div -
операция целочисленного деления;
mod -
операция определения остатка от деления двух целых чисел;
pred -
определение предыдущего числа;
succ -
определение следующего числа.
Результат операции деления является вещественнозначным.
- Тип char -
символьный тип. Каждый символ имеет код в виде целого числа от 0 до 5. Над
символами можно выполнять следующие операции:
chr -
наоборот, по введенному числу выдает символ, код которого соответствует этому
числу;
pred -
определение символа, код которого на единицу меньше кода данного символа;
succ -
определение символа, код которого на единицу больше кода данного символа.
Символы можно сравнивать между собой, причем при сравнении символов
сравниваются их коды. Символ в Turbo Pascal заключается
в одинарные кавычки (апострофы).
- Тип boolean
- логический тип данных. Переменные этого типа могут принимать 2 значения:
True
(«истина») - соответствует «да» или значению 1,
False
(«ложь») - соответствует «нет» или значению 0.
Над переменными логического типа можно осуществлять следующие операции: succ(false)=true; pred(true)=false.
а также операции and, or, not, xor.
Операция and соответствует
одновременной истинности двух логических выражений (см. таблицу 1).
Таблица 1. Таблица истинности функции AND
Таблица 2. Таблица истинности функции OR
Операция not соответствует
противоположному значению логической переменной (см. таблицу 3).
Таблица 3. Таблица истинности функции NOT
Операция xor соответствует
истинности одного из двух логических выражений. Т.е. здесь исключен случай,
когда истинны сразу 2 выражения (см. таблицу 4).
Таблица 4. Таблица истинности функции XOR
Приоритет операций: В первую очередь выполняются операции not, затем and, затем or и xor.
Пример.
1. Not 0 or 1 and 0 = 1 or 1 and 0= 1 or 0 = 1;
. Not (0 or 1 and 0) = Not (0 or 0) = Not (0)=1.
- Тип real -
вещественный тип. Переменная вещественного типа является вещественным числом,
которое представимо в виде m*p, где m - вещественное число, 1≤m<, а p -
целое число от - до .
Над вещественными числами допустимы следующие операции:
+ (сложение), - (вычитание), * (умножение), / (деление);
round
- округление числа до ближайшего целого;
Примеры.
Round(5.3)=5; Round(.8)=;(5.3)=5; Trunc(.8)=.
Заметим, что целая часть от дробной в вещественном числе в Паскале
отделяется точкой, а не запятой.
Структурированными являются данные, в которых по одним именем содержатся
сразу несколько значений. Рассмотрим три примера структурированных данных:
- Массивы - одно имя содержит несколько данных одного типа.
Пример. Массив T
содержит данные о температуре воздуха за май.
T={; 7; 6; 9; 3; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ;
; ; ; }.
- Строки - массивы символьного типа.
Строки в Turbo Pascal заключаются в апострофы.
- Записи - под одним именем содержатся компоненты разного типа,
тем не менее представляющих логически единое целое.
Ниже приведены математические функции, определенные в Паскале (таблица
5).
Таблица 5. Основные функции в Turbo Pascal
Квадратный корень
аргумента, ВещественныйВещественный
Пример 1. Записать на Паскале следующее выражение:
Решение:
(sin(sqrt(exp(x+a)+sqr(x)))-6)/abs(ln(cos(2*x)))-arctg(a/2).
Целый,
символьный и логический типы являются порядковыми типами, для которых
определены операции отношения (таблица 6).
Таблица
6. Операции отношения в Turbo Pascal
Пример 2. Записать на Паскале следующие условия:
Решение.
(x>=3)and(x<=6) or (x>=)and(x<) or (x>=).
4. a
- латинская буква (которая может быть как заглавной, так и строчной).
Решение.
(a>=’a’)and(a<=’z’) or (a>=’A’) and (a<=’Z’).
5. a
- не латинская буква (то есть необходимо установить, что символ не является ни
заглавной, ни строчной латинской буквой).
Решение.
((a<’a’)or(a>’z’)) and ((a<’A’) or (a>’Z’)).
(Напомним, что операция and
выполняется раньше, чем or,
именно поэтому (a<’a’)or(a>’z’) и (a<’A’) or (a>’Z’)
следует заключить в скобки, чтобы сначала выполнились именно эти операции, а
затем - операция and.)
Ввод информации с клавиатуры в Turbo Pascal можно
осуществлять одним из следующих операторов:
Список ввода - переменные, отделенные между собой запятыми.
Эти 2 оператора отличаются друг от друга тем, что оператор Readln после ввода списка переменных
осуществляет перевод курсора на следующую строку, а оператор read нет.
Вводить переменные логического типа с клавиатуры нельзя.
1. Readln(a,b) - после ввода переменных a и b в
одну строку курсор переходит на следующую строку.
2. Read(с,d) - после ввода переменных в одну
строку курсор остается в той же самой строке справа от позиции d.
Вывод информации на экран в Turbo Pascal
осуществляется одним из двух операторов:
которые отличаются друг от друга тем, что оператор writeln после вывода списка переводит курсор
на новую строку.
Списком вывода являются переменные, выражения и строковые константы,
отделенные друг от друга запятыми. Строковые константы используются для
подсказок пользователю и заключаются в апострофы.
Переменные целочисленного типа можно выводить с отступом от предыдущего
выведенного значения (форматированный вывод переменной целого типа):
где 5 - число позиций, выделенных на вывод числа a. Если целое число a при выводе занимает меньше позиций, чем указано после двоеточия, то
оставшееся количество позиций в виде пробелов добавляется слева. Если же целое
число при выводе занимает больше позиций, чем указано после двоеточия, то
форматированный вывод игнорируется, то есть, число выводится полностью без
пробелов слева.
Переменные вещественного типа можно выводить с отступом от предыдущего
выведенного значения, а также с требуемым количеством знаков после запятой
(форматированный вывод переменной вещественного типа).
где 6 - число позиций, выделенных на вывод числа a, а 3 - число выводимых знаков после десятичной точки. Если
не использовать форматированный вывод вещественной переменной, то есть, вывести
переменную a оператором Writeln(a); то
выведется число а в виде mEp,
который соответствует формату m*p, где m - вещественное число, 1≤m<.
Примеры. Пусть a и b - целочисленные переменные, c и d - вещественные переменные, f - логическая переменная, s1, s2 -
символьные переменные. a=5, b= = -, с=1,5, d=0, f=true, s1=’k’, s2=’n’.
То есть, вся информация вывелась слитно, без разделений, кроме числа c, так как на него выделено 8 позиций,
а оно с двумя знаками после запятой занимает 6 позиций, следовательно, перед
ним выведено 2 пробела. Число - также не отделено от предыдущего, так как оно
занимает 5 позиций, что больше, чем на него выделено программой - 4. Т.к.
переменная d имеет вещественный тип, а число 0
можно представить как 2∙2, поэтому выводится эта переменная при
неформатированном выводе как 2.E+.
2. Чтобы все эти данные при выводе отделялись друг от друга, можно в
списке параметров вывода после каждой переменной вставить пробел (в
апострофах). Между переменными b и c можно пробел не ставить, так как эти
переменные разделяются путем добавления 2-х пробелов. Последовательность
операторов
Write(a,` `,b:4,c:8:2,` `d,` `);(g,` `,s1,s2);
Writeln(a,` `,b:4,c:8:2,` `d,` `);(g,` `,s1,s2);
т.к. первый оператор после вывода переменных a, b, c и d переводит курсор на новую строку.
Writeln(`a=`,а);(`b=`,b:4);(`c=`,c:8:2);(`d=`,d);(`g=`,g);(‘символы ’,s1,s2);
то есть перед значением каждой переменной вывелось ее имя со знаком
равно. То, что заключено в апострофы, выводится на экран без изменений.
5. Операторы вывода часто используются как подсказка пользователю, что,
как и в каком порядке надо вводить с клавиатуры.
Внизу курсор указывает на то, что от пользователя ожидается ввод каких-то
данных.
Если же ограничиться оператором write, то есть,
То есть ввод будет осуществляться справа от выведенной строки, а не на
следующей строке.
6. Можно выводить не только переменные, но и выражения, которые
программой вычисляются, после чего их значения выводятся:
Writeln(a+b) в условиях предыдущих примеров выдаст -5 (т.к. a+b = =5+(-) = -5).
A:=B; (Здесь переменной A передается значение переменной B)
A:=3;
(Здесь переменной A передается
значение 3)
d:=3*f-sin(b)+k; (Здесь вычисляется значение
выражения, стоящее справа от знака присваивания, после чего его значение
передается переменной d)
Данные передаются «справа налево», то есть в левой части оператора должно
стоять имя переменной, в которую заносится результат. Например, операторы A:=B; и B:=A; имеют разный смысл. В первом случае
переменная A принимает значение переменной B, теряя свое предыдущее значение, а
во втором случае (B:=A) переменная B принимает значение переменной A, теряя свое предыдущее.
Пример 2. Составить программу вычисления плотности населения страны по
введенным данным о численности населения и площади территории страны.
Нам
понадобятся 3 переменные: nas - численность населения, ter - площадь
территории страны, pl_nas - плотность населения. Переменная nas
будет целого типа, так как количество людей не может быть дробной величиной, а ter и
pl_nas - вещественного типа, так как они могут принимать и
дробные значения. Чтобы найти плотность населения, нужно численность населения
поделить на площадь территории, т.е. . Но
перед этим переменные nas и ter надо ввести при помощи оператора ввода readln.
Составим программу:z1;nas:integer;,
pl_nas:real; writeln(`Введите
население и территорию страны`);
Readln(nas, ter);_nas:=nas/ter;(`Плотность населения страны: `,pl_nas)
Пример
3. Вычислить значение выражения .
Нам
понадобится 3 переменные x, a и y. Все они вещественного типа. Переменные x и a
будем вводить с клавиатуры, а y вычислять.
Program z2;x,a,y:real; writeln(`Введите переменные x и a`);
Readln(x, a);:=sin(exp(x+1)-ln(abs(a-1)))+sqrt(sqr(sin(x)))(`Значение переменной y= `,y)
Запустите программу Turbo Pascal. Перед вами
откроется синий экран с верхней строкой меню. Во второй строке обычно пишется
имя файла с программой, в данном случае открыт новый пустой файл, который еще
не сохранен. Так что пока во второй строке записано вместо имени файла noname.pas (noname-
‘безымянный’, pas - расширение файлов, созданных в Turbo Pascal).
Наберите программу из первого примера. Чтобы запустить ее, нужно нажать Ctrl-F9. Введите необходимые данные (а именно, в данном случае это
значения переменных nas и ter через пробел) и нажмите Enter. Перед вами появилось снова окно Turbo Pascal c набранной вами программой. Программа выполнилась, но чтобы
просмотреть результат выполнения программы, нужно нажать Alt-F5. Посмотрев результат, нажмите любую клавишу. Тем самым вы
вернетесь снова к тексту программы. Сохранить программу можно при помощи F2 или команды меню File - Save. Сохраните свою программу, допустим, под именем pr1.pas. Создать новую программу можно при помощи команды
меню File - New. Наберите вторую программу, проверьте ее и сохраните
под новым именем, допустим, pr2.pas. Чтобы открыть первую программу,
нужно воспользоваться командой меню File - Open и выбрать имя той программы, которую
необходимо открыть, и нажать Enter.
Чтобы выйти из Turbo Pascal, необходимо
нажать Alt-X или воспользоваться командой меню File - Exit.
IF
условие THEN оператор1 ELSE оператор2;
где условием является логическое выражение или логическая переменная,
оператор1 - оператор, который выполняется в случае выполнения условия,
оператор2 - оператор, который выполняется в случае невыполнения условия. То
есть, если условие выполняется, то выполняется оператор1, в противном случае
выполняется оператор2.
Иногда используется сокращенная форма условного оператора:
В этом случае при выполнении условия выполняется оператор, а в случае
невыполнения условия никаких действий не производится.
В структуре условного оператора предусмотрено лишь по одному оператору,
которые выполняются в случаях истинности или ложности условия. Если необходимо
в этих случаях выполнить несколько операторов, то их нужно заключить в
операторные скобки Begin …….. End.
Program z3;x,y:real;readln(x);(x>=2)and(x<=5) then
y:=sin(x) else y:=cos(x);(y).
2. Даны 2 числа a и b. Если первое число больше второго,
то найти произведение и разность этих чисел.
Program
z4;a,b,c,d:integer;readln(a,b);a>b thenc:=a*b;:=a-b;(c,d).
Здесь в случае выполнения
условия (a>b) нужно выполнить сразу 2 действия: умножение и
вычитание, поэтому эти 2 оператора нужно заключить в операторные скобки. В
противном случае никаких действий производить не требуется, поэтому используем
сокращенную форму условного оператора.
3. Выяснить, по введенной температуре воздуха, есть ли мороз на улице.
Program z5;t:integer; writeln(`Введите температуру воздуха`);
Readln(t);t<0 then writeln(`на улице мороз`) else writeln(` мороза
нет`);.
Если решение задачи зависит более, чем от двух случаев, то:
- можно применить несколько сокращенных условных операторов;
- можно применить вложение условного оператора в другой условный
оператор. Но при этом надо помнить, что Else всегда относится к ближайшему Then.
Один
из вариантов составления программы - использовать несколько сокращенных форм
условных операторов:
Program z6;x,y:real;readln(x);x<2 then
y:=sin(x/pi);(x>=2)and(x<5) then y:=sqrt(cos(x));x>=5 then y:=8;(y).
Второй
вариант - использование одного условного оператора, включающего в свой состав
другой условный оператор.
Program z6;x,y:real;readln(x);x<2 then y:=sin(x/pi)
else If x<5 then y:=sqrt(cos(x)) else y:=8;
Заметим,
что при описании второй ветки (… else if x<5
…) уже нет необходимости указывать условие x>=2, т.к.
оно является противоположным для условия первой ветки (x<2), тем
самым оно автоматически включается в случай Else для первой
ветки. То же самое относится к третьей ветке: нет необходимости писать условие x>=5,
т.к. оно автоматически включено в случай Else для второй
ветки.
Еще один способ решения задач со сложными разветвлениями - использование
оператора выбора Case.
Работает этот оператор следующим образом: если выражение (или переменная)
принимает значение1, то выполняется оператор1, если выражение принимает
значение2, то выполняется оператор2, и т.д., если выражение не принимает ни
одного значения из списка, то выполняется оператор, который следует за ключевым
словом ELSE. Строка, соответствующая случаю ELSE, является необязательной в операторе
Case.
Примеры. 1. По введенному номеру месяца, выяснить, является ли этот месяц
зимним, осенним, летним или весенним?
Если введенное число находится в пределах от 3-х до 5, то месяц является
весенним, если в пределах от 6 до 8, то летним, если в пределах от 9 до ,
то осенним, если 1, 2 или , то зимним. Прочие значения не соответствуют ни
одному времени года, и, следовательно, являются ошибочными, о чем мы оповестим
пользователя в виде сообщения.
Program z7;n:integer;readln(n);n of
,2,:writeln(‘Месяц зимний’); writeln(‘Такого месяца нет’)
Бывают ситуации, когда один и тот же оператор или последовательность
операторов следует выполнить несколько раз. В этом случае можно операторы
объединить в цикл.
Можно 5 раз использовать оператор Readln:
а можно использовать оператор цикла и тогда тело программы сведется к
одной строке:
Циклы бывают трех видов: циклы с параметром, которые применяются тогда,
когда количество повторений заранее известно; циклы с предусловием и с
постуловием, когда действия повторяются при выполнении или нарушении
какого-нибудь условия.
Цикл с параметром применяется тогда, когда количество повторений заранее
известно.
FOR
счетчик:=начало TO конец DO оператор;
где счетчик - переменная порядкового типа (из изученных типов
целочисленный, логический или символьный). Начало и конец - выражения с
результатом порядкового типа. Если необходимо выполнить в цикле более одного оператора,
применяются операторные скобки Begin..End.
Пример 2. Вычислить значение выражения S=sin 1+sin 2+sin 3+…+sin n.
Накапливать сумму будем пошагово. То есть на первом шаге S = sin 1, на втором к этому значению добавим sin 2, тем самым получим sin 1 + sin 2, на следующем шаге к полученному значению прибавим sin 3, тем самым получим sin 1 + sin 2 + sin 3
и т.д. То есть на i-м шаге, чтобы
получить сумму, нужно к уже накопленной сумме на предыдущем шаге прибавить sin i, то есть S=S+sin i. Номер шага i
меняется от 1 до n. Но до начала
подсчета суммы нам нужно S
присвоить 0, чтобы на первом шаге получить sin 1 (S=S+sin i = 0 + sin 1
= sin 1).
Program z8;i, n:integer;:real;writeln(`Введите количество шагов n`);(n);:=0;i:=1 to n do S:=S+sin
(i);(S)
Заметим, что если бы надо было найти не сумму, а произведение (например, P = sin 1 · sin 2
· sin 3 · … · sin n), то за начальное значение произведения уже нельзя брать 0 (P=0), т.к. при выполнении оператора P:=P*sin(i) будет всегда получаться 0. В этом
случае за начальное значение P
берут 1, так как при умножении на 1 число не меняется. Программа в этом случае
будет выглядеть следующим образом:
Var i, n:integer;:real; writeln(`Введите количество шагов n`);
Readln(n);:=1;i:=1 to n do P:=P*sin (i);(P)
Пример 2. В области n
населенных пунктов с населением a1, a2, a3, …, an.
Найти общее население области.
Begin writeln(`Введите
количество населенных пунктов в области`);
Readln(n);:=0;i:=1 to n do writeln(`Введите население`, i, `-го населенного пункта`);
Если количество повторений цикла заранее предсказать невозможно,
применяется цикл с предусловием или с постусловием.
Пока выполняется условие, выполняется тело цикла. Если на первом же шаге
условие не выполнится, тело цикла, соответственно, не выполняется ни разу.
Причем если тело цикла состоит из нескольких операторов, то их надо заключить в
операторные скобки Begin … End.
Пример 1. Найти значение выражения S = sin 1
+ sin 2 + sin 3 + … + sin n + … с точностью e, (т.е. пока очередное слагаемое не
станет по модулю меньше e).
Сумма считается таким же образом, как и в примере 2 раздела 5, т.е. на
каждом шаге цикла мы прибавляем к сумме, накопленной на предыдущем шаге, sin i, учитывая, что на каждом шаге i нужно увеличивать на 1. (Цикл FOR автоматически увеличивает значение счетчика на 1, а в
циклах с пред- и постусловием это нужно делать самостоятельно). Условием
продолжения цикла служит логическое выражение abs(sin(i))>=eps (т.к. использование греческих букв не допустимо в Turbo Pascal, переменную, отвечающую за e (“эпсилон”), назовем eps).
Program z;i:integer;,
eps:real;readln(eps);:=1;:=0;abs(sin(i))>=eps doS:=S+sin i;:=i+1;;(S).
Пример 2. В местности проводятся операции по очищению водоема. Ежедневно
измеряется концентрация загрязняющих веществ в реке до тех пор, пока она не
уменьшится до допустимого уровня процентов.
Program z;conc: real; Writeln(`Введите концентрацию вещества в первый день`);
Begin Writeln(`Введите
концентрацию вещества в следующий день`);
Writeln(`Концентрация
вещества достигла допустимого значения. Операции по очищению данного водоема
прекращены`)
Цикл с постусловием работает следующим образом: тело цикла выполняется,
пока нарушается условие выхода из цикла. Причем если тело цикла состоит из
нескольких операторов, то их, в отличие от цикла с предусловием, не надо
заключать в операторные скобки Begin
… End. Служебные слова Repeat … Until являются аналогом операторных скобок.
Структура цикла с постусловием: Repeat
Здесь тело цикла в любом случае хотя бы один раз выполняется, так как
проверка выполнения условия выхода из цикла осуществляется после выполнения
тела цикла.
Пример 1. Найти номер слагаемого, начиная с которого значение выражения S = sin 1 + sin 2
+ sin 3 + … + sin n + …будет больше 4.
Сумма нахождения таким же образом, как и в предыдущем примере. Условием
выхода из цикла служит логическое выражение S>4 (значение выражения больше 4).
Program z;i:integer;:real;i:=1;:=0;:=S+sin i;:=i+1;S>4;(i).
Пример 2. В местности проводятся операции по очищению водоема и ежедневно
измеряется концентрация загрязняющих веществ в реке до тех пор, пока она не
уменьшится до допустимого уровня процентов.
Writeln(`Введите
концентрацию вещества в следующий день`);
Writeln(`Концентрация
вещества достигла допустимого значения. Операции по очищению данного водоема
прекращены`) End. меньше e).
Пример 1. На протяжении всего апреля каждые сутки в полдень измеряется
температура в городе. Определить среднюю температуру морозных дней в апреле.
Решение. Так как температура измеряется каждый день в апреле, то есть
раз, будем использовать цикл с параметром. При этом на каждом шаге цикла
проверяем, является ли соответствующая суточная температура t отрицательной (морозной), тем самым
внутри цикла используем условный оператор. И если t отрицательна, то добавляем ее значение в сумму sum и увеличиваем, соответственно, на
единицу количество k. После выхода из
цикла, поделив полученную сумму отрицательных температур sum на количество k, найдем среднюю температуру дней с
отрицательной температурой srt.
i, k: integer;sum:=0;:=0;i:=1 to dowrite(`Введите температуру за `, i, `-е апреля `);(t);t<0
thensum:=sum+t;:=k+1;;;:=sum/k;(`Средняя температура морозных дней в апреле `,srt::2)
Пример 2. В условиях предыдущей задачи определить максимальную
температуру за апрель. Решение. Температуру за первое апреля вводим с
клавиатуры и тут же примем ее за максимальное значение max. Все остальные температуры за апрель вводим в цикле
от 2 до и сравниваем значение каждого введенного значения температуры с тем
значением, которое на данном шаге является максимальным на данный момент. И
если текущее введенное значение оказывается больше max, то теперь уже его считаем за max, в противном случае max не изменяется.
Program z;t, max: real;, k: integer;
Begin writeln(‘Введите
температуру воздуха за 1-е апреля’);
Readln(t);:=t;i:=2 to do write(`Введите температуру за `, i, `-е апреля `);
writeln(`Максимальная
температура в апреле `,max::2)
Пример 3. Вычислить значение выражения
для
всех x на промежутке [0,
7] с шагом 0,5.
Program z;a,b,x,s:real;readln(a,b);:=0;x<=7 doIf
x<2.8 then s:=(a+b)/cos(x) elsex<6 then s:=(a+b)/cos(x) else
s:=sin(x)/(x+1);(`x=`,x:5:2,` y=`,y:5:2);:=x+0.5
1. Getting
Started with Jrun; San Francisco: Macromedia - Москва, - 8 c.
2. Армстронг,
ТActiveX: Создание Web-приложений (+ CD-ROM); Киев: BHV - Москва, - 2 c.
. Бобровский,
Сергей Delphi 7Учебный курс; СПб: Питер - Москва, - 6 c.
. Вивек,
Шарма; Раджив, Шарма Разработка Web-серверов для электронной
коммерцииКомплексный подход; М.: Издательский дом Вильямс - Москва, - 0 c.
. Гилман,
Л.; Роуз, АКурс АПЛ: диалоговый подход; Мир - Москва, - 6 c.
. Грунд,
ФПрограммирование на языке ФОРТРАН IV; М.: Мир - Москва, - 3 c.
. Гукин,
Дэн C для "чайников"; М.: Вильямс - Москва, - 2 c.
. Драммонд,
ММетоды оценки и измерений дискретных вычислительных систем; М.: Мир - Москва,
- 4 c.
. Дронов,
ВJavaScript в Web-дизайне; СПб: БХВ - Москва, - 0 c.
. Дьяконов,
В.ПСправочник по алгоритмам и программам на языке бейсик для персональных ЭВМ;
М: Наука - Москва, - 0 c.
. Жешке,
Рекс Толковый словарь стандарта языка Си; СПб: Питер - Москва, - 1 c.
. Калашников
ОАссемблер? Это просто! Учимся программировать (+ CD-ROM); СПб: БХВ - Москва, -
4 c.
. Калверт,
ЧБазы данных в Delphi 4; Киев: ДиаСофт - Москва, - 4 c.
. Касперски,
К.; Рокко, ЕИскусство дизассемблирования; BHV - Москва, - 6 c.
. Касьянов,
В.НОптимизирующие преобразования программ; Наука - , - 6 c.
. Кнут,
ДИскусство программирования для ЭВМ; М.: Мир - Москва, - 9 c.
. Кувыкин,
В.А.; Коваль, И.Г.; Кувыкина, М.Ии дрПрикладное программирование в системе
КАМА; М.: Финансы и статистика - , - 1 c.
. Культин,
Никита Основы программирования в Delphi 7; СПб: БХВ - Москва, - 8 c.
. Кьоу,
Дж.; Джеанини, МОбъектно-ориентированное программированиеПросто и понятно; СПб:
Питер - Москва, - 8 c.
. Либерти,
Джесс Освой самостоятельно C++ за день; М.: Вильямс - Москва, - 6 c.
. Муртаф,
БСовременное линейное программирование; Мир - Москва, - 4 c.
. Намиот,
Д.ЕПрактическое использование MS Windows; Унитех - Москва, - 4 c.
. Нейгел,
КC# для профессионалов; Вильямс - Москва, - 4 c.
Похожие работы на - Язык программирования Turbo Pascal Реферат. Информационное обеспечение, программирование.
Золотая Осень Слободка Левитан Сочинение
Реферат: Судьбы друзей-лицеистов Пушкина
Реферат: Как в клетке возникает разность потенциалов
М Мақатаев Туралы Эссе
Курсовая работа: Лжепредпринимательство как общественно опасное деяние
Реферат по теме Современная цивилизация: ее проблемы и перспективы
Дипломная Работа На Тему Жанрава-Тэматычная Разнастайнасць І Паэтычная Адметнасць Паэзіі Сімяона Полацкага
Реферат: Государственное строение России в 14-15в.в. . Скачать бесплатно и без регистрации
Контрольная работа по теме Построение хранилища данных на базе информационной системы предприятия
Контрольная Работа По Модулю 8 Класс
Ишемический Инсульт Реферат Реабилитация
Реферат: Формы и системы оплаты труда 4
Пособие по теме Методология комплексного экономического анализа, основные показатели хозяйственной деятельности
Подготовка К Историческому Сочинению
Лист Мебиуса Реферат
Рассказ После Бала Сочинение
Как Писать Реферат По Истории В Университете
Курсовая работа: Организация бухгалтерского учета, его сущность и содержание
Сочинение: Роль моральной оценки в характеристике героев «Тихого Дона» М. А. Шолохова
Курсовая работа по теме Конфликт и его роль в менеджменте
Реферат: Плазмозамещающие жидкости
Реферат: Основные принципы учета затрат на производство
Учебное пособие: История развития и становления социологии