С чего начинается основная программа

• Константами
• Переменными
• Арифметическими выражениями

Этот оператор применяется тогда, если известно заранее число повторений операторов.

Если тело цикла состоит из нескольких операторов, то они заключаются в операторные скобки begin—-end .

for I:=235 to 1000 do

I. Объявление массива.

1. Одномерный массив.

Var a: array [1..n] of integer;

1. Двухмерный массив.

Var a: array [1..n, 1..m] of integer;

II. Ввод массива.

III. Вывод информации.

IV. Основные формулы.

A[i] – элементы массива

IF A[i] = 5 TO A[i]:=2

IF X MOD 2 = 0 THEN

V. Простейшие задачи.

1. S — ? S кв. эл. — ? S ср. ар. — ? P-?

2. подсчитать количество

3. замена элементов

4. распечатка массивов

var a: array [1..n] of integer;

writeln(‘Введите эл. массива’);

Вычислить среднее арифметическое элементов массива.

S:=S+a[i] – рабочая строка

Начинающий руководитель: что важно сделать первым делом? / Александр Высоцкий

За рабочим циклом

Вычислить сумму квадрата элементов массива.

S:=S+a[i] * a[i] – рабочая строка

Вычислить произведение элементов массива.

P:=1 – до рабочего цикла

P:=P * a[i] – рабочая строка

Вычислить n! (факториал )

Нет цикла ввода.

P:=1 – до рабочего цикла

P:=P * i – рабочая строка

Вычислить сумму натуральных чисел

Нет цикла ввода.

S:=S+i – рабочая строка

If a[i]=5 then a[i]:=2 – рабочая строка

Writeln (a[i]); – вывод информации в цикле

var a: array [1..n] of integer;

writeln(‘Введите эл. массива’);

if a[I] = 2 then k:=k+1;

a: array[0..9, 0..9]of integer;

begin write(a[i,j]:4); end;

Прерывание работы оператора FOR…..NEXT.

For n=10 downto 5 do

Writeln(‘Введите число m’);

If m=0 then exit for;

Вопросы для повторения

ком. повт. с параметром.

1. Как записывается оператор?
2. Как он выполняется?
3. Тело цикла должно содержать 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)

Задача: Даны три числа Х 1 , Х 2 , Х 3 .

Написать программу определения наибольшего (наим.) из них.

Var a: array [1..3] of integer; i,max:integer;

For i: =1 to 3 do

For i: =1 to 3 do

Writeln (‘max=’, max);

Задача : Вычислить сумму всех натур. чисел от 5 до12.

Var i, s: integer;

For i: =5 to 12 do

Задача: Вычислить n! ;

Var I, f, n: integer;

For I: =1 to n do

Задача: В массиве из 5 вещественных чисел расположить элементы в обратном порядке (на место 1-5,на 5-1, и т.д.).

Var a: array [1..n] of real; I:integer;

Writeln (‘Введите эл. массива’);

For I: =1 to n do

For I: =n downto 1 do

Задача: Поиск максимального элемента из 7. Запомнить его номер.

Var a: array [1..10] of integer; I,n,max:integer;

Writeln (‘Введите эл. массива’);

For I: =1 to 10 do

For I:=1 to 10 do

Begin max: =a [I]; n: =I end;

Задача : Дана прямоугольная таблица А, состоящая из 2 строк и 5 столбцов. Вычислить суммы элементов каждой из строк.

Var a:array[1..2,1..5] of integer; I,j:byte; S[I]:integer;

Writeln (‘Введите эл. массива’);

For I: =1 to 2 do

Задача : Написать программу для вычисления суммы квадратов элементов стоящих на диагонали массива А [3,3].

Var a: array [1..3, 1..3] of integer; I,j:byte; S: integer;

Writeln (‘Введите эл. массива’);

For I: =1 to 3 do

S: =s + a [I, j]*a [I, j]

Задача : Преобразовать прямоугольную таблицу из 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;

Writeln (‘Введите эл. массива’);

For I: =1 to 2 do

For j: =1 to 4 do

For I: =1 to 2 do

For j: =1 to 4 do

For n: =1 to 8 do

Задача: Поменять местами в массиве столбцы и строчки.

Var a: array [1..4, 1..4] of integer; I, j: byte;

Writeln (‘Введите эл. массива’);

For I: =1 to 4 do

For j: =1 to 4 do

For I: =1 to 4 do

For j: =1 to 4 do

Задача: Найти все двузначные числа, которые делятся на п .

Var a: array [10 .. 99] of integer; n :integer;

For I: =10 to 99 do

If a [I] mod n=0 then

( см. тетрадь Qbasic)

Задача: Подсчитать сумму столбцов.

Program summa_ stolb;

Var a: array [1.. 4, 1..3] of integer; I, j: byte;

B: array [1.. 3] of integer; n: integer;

Writeln (‘Введите эл. массива’);

For I: =1 to 4 do

For j: =1 to 3 do

For I: =1 to 4 do

For j: =1 to 3 do

For j: =1 to 3 do

Задача: Подсчитать число ошибок в устном счете.

Var a: array [1..5] of integer;

N, p1, p, x, y: integer;

Writeln (‘Введите 2 числа х и y ’);

For I: =1 to 5 do

Read (x, y); P: =x*y; Readln (p1);

Begin writeln (‘Неверно’); n: =n+1 end;

writeln (‘кол-во ошибок=’, n);

Предварительный просмотр:

Подписи к слайдам:

Элементарное программирование Презентация урока Учитель информатики: Буцкина Лариса Васильевна

Система программирования Система программирования состоит из языка программирования и языка машины . Язык машины – это язык машинных кодов, 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 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) and (x =6) and (x ’); Write (‘  ‘); readln ( wes, rost); opt : = rost – 100; if wes = opt then Wrineln(‘ Ваш вес оптимален! ‘) else if wes 11 Зима

Определение времени года по номеру месяца Var month: integer; Begin Writeln (‘ Введите номер месяца ( от 1 до 12) и нажмите ‘); Write (‘  ‘); readln (month); Case month of 1,2,12: writeln (‘ Зима ‘); 3..5: writeln (‘ Весна ‘); 6..8: writeln (‘ Лето ‘); 9..11: writeln (‘ Осень ‘) else writeln (‘ Число должно быть от 1 до 12 ‘) end; readln; end .

Домашнее задание Написать программу, которая запрашивает у пользователя номер дня недели и выводит одно из сообщений: «Рабочий день», «Суббота» или «Воскресенье».

По теме: методические разработки, презентации и конспекты

Конспект урока с презентацией «Графика на языке программирования Turbo Pascal»

Урок для учащихся 11 класса по теме «Графика на языке программирования ТР». Содержит теоретический материал, практическую работу и презентацию к уроку. Надеюсь, многим учителям информатики пригодится.

Сборник тестов «Структуры данных в языке Turbo Pascal» к разделу «Алгоритмизация и программирование» курса информатика и ИКТ в профильной классах.

Цель использования разработкиПроведение входного, текущих и итоговых контрольных работ в форме тестов по темам:массивы;строковый тип данных;записи;файлы,а также для подготовки к ЕГЭ.

Основы программирования Turbo Pascal 7.0. Тематическое планирование кружка по информатике в 7 классе.

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

«Алгоритмизация и программирование Turbo Pascal»

Представленная программа представляет собой примерный план элективного курса по предмету «Информатика», углубленного по характеру, с применением методик по развитию логического мышления.В меняющ.

Язык программирования Turbo Pascal

Теоретический материал по теме «Язык программирования Turbo Pascal».

Основы программирования Turbo Pascal 7.0. Тематическое планирование кружка по информатике в 7 классе.

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

Книга по языку программирования Turbo Pascal

Книга по языку программирования Turbo Pascal расчитанна на учащихся школ которые изучают данную тему.В данной книги последовательно излагается матерьял от самых простых и элементарных вещей до сложных.

Источник: nsportal.ru

Алфавит языка Pascal ABC. Переменные. Типы данных.

Воспитательная: дать основные сведения о переменных, константах, описания типов в Pascal.

Развивающая: развитие навыков логического мышления у учеников.

Обучающая: Ознакомить с типами данных и основными операторами Pascal ABC.

Вы уже знаете о суперспособностях современного учителя?

Тратить минимум сил на подготовку и проведение уроков.

Быстро и объективно проверять знания учащихся.

Сделать изучение нового материала максимально понятным.

Избавить себя от подбора заданий и их проверки после уроков.

Наладить дисциплину на своих уроках.

Получить возможность работать творчески.

Просмотр содержимого документа
«Алфавит языка Pascal ABC. Переменные. Типы данных.»

Дубоделов Николай Павлович

МБОУ – Ущерпская СОШ

ТЕМА: «Алфавит языка Pascal ABC. Переменные. Типы данных.»

Воспитательная: дать основные сведения о переменных, константах, описания типов в Pascal.

Развивающая: развитие навыков логического мышления у учеников.

Обучающая: Ознакомить с типами данных и основными операторами Pascal ABC.

Оборудование: компьютер, проектор

	Оргмомент	–	2мин.
	Теоретическая часть	–	25мин.
	Закрепление	–	10мин.
	Домашнее задание	–	3мин.

Ход урока. 1. Оргмомент. Приветствие, проверка присутствующих. Объяснение хода урока. 2. Теоретическая часть. В языке Pascal все данные, используемые программой, должны принадлежать к какому-либо заранее известному типу данных. Тип данных определяет: — формат представления данных в памяти ЭВМ; — множество допустимых значений; — множество допустимых операций. Типы данных в языке программирования Pascal делятся на пять основных классов: — простые типы; — структурированные типы; — ссылочные типы; — процедурные типы; — объектные типы. В данный момент нас больше всего интересуют простые типы. Простые типы данных делятся на порядковые и вещественный типы данных. В математике порядковым числом называется номер элемента при перечислении. Под порядковым типом понимают тип данных, областью значений которых является упорядоченное счетное множество. Каждому элементу такого множества соответствует некоторое порядковое число, являющееся как раз его номером при перечислении. В любом порядковом типе для каждого значения, кроме первого, существует предшествующее значение, и для каждого значения, кроме последнего, существует последующее значение. В языке Pascal существуют стандартные функции, которые позволяют определять соответствующие значения для заданного значения: функция Pred(x) определяет предыдущее значение величины х, функция Succ(x) определяет последующее значение величины х; функция Ord(x) возвращает порядковый номер величины х. Целочисленные типы

Тип	Диапазон возможных значений	Формат
Shorting	-128.. 127	1 байт со знаком
Integer	-32768.32767	2 байта со знаком
Longint	-2147483648..2147483647	4 байта со знаком
Byte	0..255	1 байт без знака
Word	0..65535	2 байта без знака

Вещественные типы

Тип	Диапазон возможных значений	Точность	Формат
Real	2.9Е-39..1.7Е38	11-12 знаков	6 байт
Single	I.5E-45..3.4E38	7-8 знаков	4 байта
Double	5.0E-324..I.7E308	15-16 знаков	8 байт
Extended	3.4Е-4932..1.1Е4932	19-20 знаков	10 байт
Comp	-9.2Е18..9.2Е18	19-20 знаков	8 байт

Логический тип и логические выражения. (BOOLEAN) Переменные, константы и выражения логического типа имеют только два значения: TRUE (истина) или FALSE (ложь). Например, при сравнении чисел А и В результат будет TRUE (истина) или FALSE (ложь в зависимости от значений А и В). Кроме операций сравнения, логический результат дает функция целой величины Odd (нечетный), которая имеет значение TRUE, если ее аргумент нечетный, и FALSE, если ее аргумент четный. Для логических переменных определены операции: NOT, AND, OR, XOR. Логический тип, как и целые типы, относится к порядковым типам. Порядковый тип — это тип данных, для которого определены отношения порядка, то есть для любого элемента можно определить последующий и предыдущий элемент. Логические операции, операции отношения и арифметические операции часто встречаются в одном выражении. Причем отношения, стоящие слева и справа от знака логической операции, должны быть заключены в скобки, поскольку логические операции имеют более высокий приоритет. Вообще, в логическом выражении принят следующий приоритет операций: NOT AND, *, DIV, MOD OR, XOR, +, — операции сравнения Порядок выполнения операций определяется скобками. Например, в логическом выражении A OR В AND NOT(A OR В) сначала выполняется заключенная в скобки операция OR, а затем операции NOT, AND, OR. В языке Turbo Pascal 7.0 нет возможности ввода логических данных с помощью оператора read. Однако предусмотрен вывод значений переменных логического типа с помощью оператора write. В этом случае для идентификаторов FALSE и TRUE автоматически отводится по 6 позиций: две — перед словом TRUE и одна — перед FALSE. Перечисляемый тип данных. Этот тип данных получил название перечисляемого, потому что он задается в виде перечисления некоторых значений. Эти значения образуют упорядоченное множество и являются константами этого типа. Для объявления переменной список возможных значений, разделенных запятой, указывается в круглых скобках. Например, Var month: (January, february, marth, april, may, June, July, august, September, October, november, december). Упорядоченность элементов перечисляемого типа определяется порядком их следования. Самый левый имеет минимальное значение (значение функции ord для него равно 0), а наиболее правый — максимальное.
Символьный тип данных. Описание: идентификатор Char. Диапазон значений: значением переменной этого типа может быть любой символ — это буквы, цифры, знаки препинания и специальные символы. Каждому символу алфавита соответствует индивидуальный числовой код от 0 до 255. Так как символы языка упорядочены, то к символьным данным применимы операции сравнения. Операция сравнения осуществляется следующим образом: из двух символов меньше тот, который встречается в таблице ASCII раньше. Обычно значения для переменных типа char задаются в апострофах: ch:= ‘*’; letter=’G’. Кроме того, имеется возможность задавать значения указанием непосредственного числового значения ASCII-кода: kd:=#65 ; s:=#10 . Так как символьный тип является порядковым типом данных, то для него справедливо все, что было сказано о порядковых типах. Интервальный (ограниченный) тип данных. Интервальный (ограниченный) тип данных представляет собой интервал значений порядкового типа, называемого базовым типом. Описание типа задает наименьшее и наибольшее значения, входящие в этот интервал. Например, Var a:1..25; ch: ‘a’..’z’. Здесь переменные а и ch могут принимать значения только из указанного интервала; базовым типом для переменной а является целый тип, а для переменной ch — символьный. Переменная ограниченного типа сохраняет все свойства переменных базового типа. Для чего вводится ограниченный тип данных? Использование ограниченного типа делает программу более наглядной и понятной. Например, если в программе переменная b может принимать только значения 3, 4, 5, 6, 7, 8, то лучше описать ее следующим образом: var b:3..8; чем var b: integer; так как в случае выхода значения b за диапазон 3..8 в первом случае будет выдано диагностическое сообщение, которое поможет найти ошибку. Во втором случае будет получен неправильный результат, что затруднит поиск ошибки. Таким образом, второй вариант описания переменной следует использовать в тех случаях, когда диапазон значений заранее неизвестен либо занимает весь допустимый интервал значений для рассматриваемого типа. Константы и типизированные константы. Числа, символы, строки множества, которые не изменяют своего значения в процессе выполнения программы, должны объявляться как постоянные, т. е. константы. Например: CONST Е=2.718281828; (Число Эйлера) С=2.99792458Е+8; (скорость света в мс) CUBE =12; (число ребер куба) HELLO = ‘Привет’; (строка — приветствие) On = true; (логические константы) Off=false; Кроме констант, не изменяющих своего значения, последние версии языка допускают так называемые типизированные константы, которые могут изменять свое значение в процессе выполнения программы. Типизированные константы, в сущности, правильнее считать переменными, но правила их объявления ближе к правилу объявления констант, поэтому они получили такое название. Например: CONST FLAG: BOOLENT=TRUE; A_INTEGER=90; 3. Закрепление. На сегодняшнем занятии мы с вами узнали что существуют такие программы (языки программирования) с помощью которых можно создавать другие, необходимые нам программы и приложения. Так же мы узнали о структуре построения программного кода, которая в свою очередь является не чем иным как «АЛГОРИТМ».
4. Домашнее задание. Подготовить ответы на вопросы: 1. Чем характеризуется переменная? 2. Перечислите типы данных? 3. Как описываются переменные? 4. Какова структура программы? 5. С чего начинается основная программа? 6. Чем заканчивается программа?

Источник: kopilkaurokov.ru

Элементарное программирование

Система программирования состоит из
языка программирования и языка машины.
Язык машины – это язык машинных кодов,1 и 0.
Язык программирования – это искусственный язык,
созданный человеком.
Программы- переводчики – переводят из языка
программирования на язык машины.
Компиляторы,
трансляторы,
интерпретаторы.

3. Структура простейшей программы:

program
var
Begin
…….
…….
end.

4. План решения задачи:

1. Ввод информации
2. Решение задачи
3. Вывод информации

5. Основные операторы:

1. Ввода ——- Read (x)
2. Вывода —— Write (‘…‘)

6. Например:

Program
Var a, b, x, y: integer;
Begin
а:=5; b:=7;
x:=a + b; y:=a * b;
Writeln (x, y);
readln;
End.

7.

Каждая строка должна
заканчиваться ;

8. Вопросы для повторения:

С чего начинается программа?
Как описываются переменные?
С чего начинается основная программа?
Как записывается оператор ввода?
Как записывается оператор вывода?
Как записывается оператор присваивания?
Чем заканчивается программа?

9.

Презентация урока:
Учитель информатики: Башкатова С.М.

10.

Условный оператор
If……then…
else…;
If……..then……;
if….then
………….
else
………….;
Ifif…..then
…………;

11.

Если в качестве оператора должна
выполнятся серия операторов, то
они заключаются в скобки
begin……end;

12.

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.

13. Задача: Принадлежит ли число введенное с клавиатуры интервалу (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.

14.

Задача: Вычислить 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.

15. Program klaviat; Var x:char; n:integer; Begin Writeln (‘введите русскую букву а’); Read (x); If x= ’ а’ then Writeln (‘верно’)

Задача: Проверка усвоения клавиатуры.
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.

16.

Задача № 91
Написать программу определения стоимости разговора по
телефону с учетом скидки 20%, предоставляемой по
субботам и воскресеньям.
Цена разговора за одну минуту 2.3 руб.
Рекомендуемый вид экрана программы во время ее
работы:
Вычисление стоимости разговора по телефону.
Введите исходные данные:
Длительность разговора (целое кол. минут) 3
День недели (1- понедельник, … 7- воскресенье) 6
Предоставляется скидка 20%.
Стоимость разговора: 5.52 руб.

17.

Вложенный условный оператор
If…….then
begin
……………
……………
end
else if …….
then begin…………end
else begin………….end;

18. Задача: Составить программу вычисления функции в заданной точке.

1,3x cos( x 4),
x 2
;
3
y 4,1x 3 2 x 5 , 2 x 6 ;
16 ln( 2 x) e x , 6 x 12 ;
2

19.

program abc;
var x:integer; y:real;
begin
writeln (‘Введите целое число’);
readln (x);
If x 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) end
else if (x>=6) and (x <12) then
Begin y:=16*ln(2*x)-exp(-x); writeln (‘y=’,y) end
else
writeln (‘Функция не определена’);
readln;
end.

20. Оператор варианта Case (оператор множественного выбора)

Case n of
Условие 1: действие 1;
Условие 2: действие 2;
Условие 3: действие 3
else
действие 4
end;
В качестве оператора n можно использовать переменную целого типа (integer) или символьного (char) типа.

21.

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.

22. Задача: Написать программу, которая вычисляет оптимальный вес пользователя, сравнивает его с идеальным и выдает рекомендацию о

необходимости поправиться или похудеть.
Оптимальный вес вычисляется по формуле:
рост (в сантим.) – 100.
Рекомендуемый вид экрана:
Введите в одной строке через пробел
рост (см) и вес (кг), затем нажмите Enter.
170 68
Вам надо поправиться на 2.00 кг

23.

Var wes, rost, opt, d:real;
Begin
Wrineln (‘Введите в одной строке через пробел‘);
Wrineln (‘рост (см) и вес (кг), затем нажмите ’);
Write (‘ ‘); readln ( wes, rost);
opt : = rost – 100;
if wes = opt then
Wrineln(‘ Ваш вес оптимален!‘)
else if wes < opt then begin d: = opt – wes;
Wrineln(‘Вам надо поправиться на ‘,d:5:2,’ кг’) end
else begin d: = wes – opt;
writeln( ‘Вам надо похудеть на’, d:5:2, ‘кг’) end;
readln;
end.

24. Задача: Написать программу, которая запрашивает у пользователя номер месяца и выводит соответствующие название времени года. В

случае, если пользователь укажет недопустимое
число, программа должна вывести сообщение
«Ошибка ввода данных».
Рекомендуемый вид экрана:
Введите номер месяца (число от 1 до 12) и нажмите
11
Зима

25. Определение времени года по номеру месяца

Var month: integer;
Begin
Writeln (‘Введите номер месяца ( от 1 до 12) и нажмите ‘);
Write (‘ ‘); readln (month);
Case month of
1,2,12: writeln (‘Зима ‘);
3..5: writeln (‘Весна ‘);
6..8: writeln (‘Лето ‘);
9..11: writeln (‘Осень ‘)
else writeln (‘Число должно быть от 1 до 12 ‘)
end;
readln;
end.

26. Домашнее задание

Написать программу, которая запрашивает у
пользователя номер дня недели и выводит одно из
сообщений:
«Рабочий день», «Суббота» или «Воскресенье».

Источник: ppt-online.org