Program begin 22; Схема обмена переменными,

Маленькое предисловие.

Если Вы с интересом следили за похождениями Джона Коннера из Терминатора, то эта книга для Вас.

Если Вы плачете о злоключениях Скарлетт, то лучше займитесь икебаной.

3) Если Вы только один раз подтягиваетесь на перекладине, с 17-ой попытки попадаете в баскетбольное кольцо, бледнеете при разговоре с первой красавицей школы, то эта книжка точно для Вас, т.к. Вы сможете стать самым "крутым" парнем разбирающемся в программировании.

АЛФАВИТ И СЛОВАРЬ ЯЗЫКА

Буквы: a b c … x y z, цифры: 0 1 … 9.

Специальные символы: . , : ; ( ) + - = > < { } [ ]

Состав ные символы:

: = присваивание

< = меньше или равно

> = больше или равно

< > не равно

.. диапазон значений

Команды набираются только латинскими буквами!

КОНСТАНТЫ И ПЕРЕМЕННЫЕ

Переменные: не должны начинаться с цифры, содержат только цифры, буквы, нижний пробел.

Примеры :

a, x, y1, massiv, koren_3

4dlina - ошибка, идентификатор начинается с цифры

nomer.mas - ошибка, идентификатор содержит точку

Константы:

сonst

mах = 1000;

vxod= 'Строка-17';

3. ТИПЫ ДАННЫХ		4. АРИФМЕТИЧЕСКИЕ ОПЕРАЦИИ
Тип	Диапазон	Название	Действие
byte	0 ... 255	сложение	+
shortint	- 128 ... + 127	вычитание	-
integer	- 32768 … 32767	умножение	*
word	0 ... 655535	деление	/
longint	-2147483648 … 2147483647

СТРУКТУРА ПРОГРАММЫ

program <имя>; { program – программа }

var <имена переменных>; { var – переменные }

begin { begin – начало }

<операторы> //{ } - комментарии

end . { end – конец }

1. Дана сторона квадрата a. Найти его периметр .

Программа:

program nom1; { имя программы: nom 1 }

var a,p: integer; { a и p – целые переменные }

begin { начало программы }

a:= 5; { переменной a присвоено 5 }

p:= 4*a; { переменная p вычислена как p =4* a }

writeln (p); { вывод на экран значение p : 20 }

writeln ('p= ', p); { вывод на экран значение p : p = 20 }

writeln ('периметр = ', p, ' см'); { вывод: периметр = 20 см }

end. { конец программы }

ОПЕРАТОРЫ ВВОДА И ВЫВОДА

read: ввод числовых данных, символов в 1 строке

readln: ввод и перевод курсора на новую строку

write: вывод на экран в 1 строке

writeln: вывод на экран и перевод курсора на новую строку

Та же задача: На экране после запуска:

program nom2; Ввод данных:

var a,p: integer; 6

begin Окно вывода:

read (a); 24

p:=4*a;

writeln (p);

End .

Begin2 Дана сторона квадрата a. Найти его площадь .

Вход: Выход:

Begin3 Даны стороны прямоугольника a и b. Найти его площадь и периметр .

Вход: Выход:

Begin4 Дан диаметр окружности d. Найти ее длину . В качестве значения π использовать 3.14.

Вход: Выход:

program begin4;

const pi = 3.14; // константа PI

Var d , L : real ; // real - Вещественный тип данных, т.е. дробные числа

Begin

read ( d );

L:= d*pi;

writeln ( ' dlina okr.= ', L );

End .

Begin5 Дана длина ребра куба a. Найти объем куба и площадь его поверхности .

Вход: Выход:

Begin6 Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем и площадь поверхности .

Вход: Выход:

Begin7 Найти длину окружности L и площадь круга S заданного радиуса R:

, .

Вход: Выход:

АРИФМЕТИЧЕСКИЕ ОПЕРАЦИИ

– квадрат х – корень из х

a:=5; a:=36;

b:=sqr (a); b=25 b:=sqrt (a); b=6

– модуль х – следующее число после X (+1)

a:= – 5; a:=5;

b:= abs (a); b=5 b:= inc (a); b=6

– следующее число после X (+1) – предыдущее число до X (–1)

a:=5; a:=5;

b:= succ (a); b=6 b:= pred (a); b=4

– целочисленное деление X на Y

z:= (20 div 3); z=6

a:= (–100 div 11); a=–9

d:= (5 div 7); d=0

– остаток от деления X на Y

z:= (20 mod 3); z=2

a:= (–100 mod 11); a=–1

d:= (5 mod 7); d=5

Begin8 Даны два числа a и b. Найти их среднее арифметическое: .

Вход: Выход:

Begin9 Даны два неотрицательных числа a и b. Найти их среднее геометрическое, то есть квадратный корень из их произведения: .

Вход: Выход:

program begin9;

var a,b,sg: real;

Begin

readln (a,b);

sg:=sqrt (a*b);

writeln (' sg =', sg : 5 : 2);

{:5:2 - вывод числа шириной 5 символов и 2 знака после запятой}

End .

Begin10 Даны два ненулевых числа. Найти сумму, разность, произведение и частное их квадратов.

Вход: Выход:

Begin11 Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.

Вход: Выход: сумма модулей=11 разность модулей=3

произведение модулей=28 частное модулей=1.75

Begin12 Даны катеты прямоугольного треугольника. Найти его гипотенузу С, периметр P и площадь S.

Вход: Выход: гипотенуза=15 периметр=36 площадь=54

Begin13 Даны два круга, с радиусами R 1 и R 2. Найти площадь кругов S 1, S 2 и площадь кольца S.

Вход:

Выход: площадь 1 круга= 50.24 площадь 2 круга= 78.5 площадь кольца= 28.26

Begin14 Дана длина окр-ти L. Найти R окр-ти и S круга.

Вход: Выход: радиус= 1.59 площадь = 7.96

Begin15 Дана площадь круга S. Найти его диаметр D и длину окр-ти L.

Вход: Выход:

Begin20 Даны две точки плоскости с координатами и

Найти расстояние между точками

Вход: Выход:

Begin21 Даны координаты трёх вершин треугольника . Найти его периметр и площадь. - полупериметр,

- формула Герона.

Вход: 1.09 -7.15 9.5 -1.05 -5.36 0.87

Выход: p= 35.66 s= 53.40

Begin22 Поменять местами содержимое переменных A и B.

Вход: Выход:

program begin 22; Схема обмена переменными,

var a , b , c : real ; "треугольник Тарасова":

begin

Readln (a,b);

c:=a;

a:=b;

b:=c;

writeln ('a=',a,' b=',b);

End .

Begin25 Найти значение функции при заданном Х.

Вход: Выход:

Var x , y , y 1: real ;

begin read (x);

y:=3*sqr(sqr(x)*x)-6*sqr(x)-7; y1:=3*x*x*x*x*x*x-6*x*x-7;

write ('x=', x, ' y=', y:6:2, ' y1=', y1:6:2);

End .

Begin35 Скорость лодки в стоячей воде V км/ч. Скорость течения реки U км/ч. Время движения по озеру T 1 ч, а по реке (против течения) – T 2 ч. Найти путь, S.

Вход: Выход:

Begin36 Скорость первого автомобиля V 1 км/ч, второго – V 2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили удаляются друг от друга, двигаясь в противоположных направлениях.

Вход: Выход:

Begin37 Скорость первого автомобиля V 1 км/ч, второго – V 2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили первоначально двигаются навстречу друг другу.

Вход: Выход:

Begin38 Решите линейное уравнение , заданное своими коэффициентами A и B ( .

Вход: Выход:

Begin39 Решить квадратное уравнение .

Вход: Выход:

Begin40 Решить систему линейных уравнений:

Вход:

Выход:

Integer1 Дано расстояние L в см. Найти количество полных метров в нём.

Вход: Выход:

var L, Lm: integer;

Begin

read (L);

Lm := L div 100;

write ('Длина в см = ', L ,' Целых метров = ', Lm );

End .

Integer3 Дан размер файла в байтах. Найти количество полных килобайтов.

Вход: ; Выход:

Integer6 Дано двузначное число. Вывести вначале десятки, затем единицы.

Вход: ; Выход: Десятки:4 Единицы:8

Integer7 Дано двузначное число. Найти сумму и произведение его цифр.

Вход: ; Выход: Сумма=12 Произведение=32

Integer8 Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа.

Вход: ; Выход: 79

Integer10 Дано трёхзначное число. Вывести сотни, десятки, единицы.

Вход:401; Выход: Сотни=4 Десятки=0 Единицы=1

Integer11 Дано трёхзначное число. Найти сумму и произведение его цифр.

Вход: ; Выход: Сумма=16 Произведение=90

Integer12 Дано трёхзначное число. Вывести число, полученное при перестановке цифр исходного числа справа налево.

Вход: ; Выход: 709

Integer19 С начала суток прошло N секунд (N- целое). Найти количество полных часов, минут и секунд, прошедших с начала суток.

Вход: 3666; Выход: часов=1 минут=1 секунд=6

Integer25 Дни недели пронумерованы следующим образом: 0 – воскресенье, 1 – понедельник, …, 6 – суббота. Дано целое число K, лежащее в диапазоне 1-365. Определить номер дня недели для K-ого дня года, если известно, что в этом году 1 января был четвергом.

Вход: 91; Выход: 3

Integer29 На прямоугольнике размера AxB размещено максимально возможное количество квадратов со стороной C (без наложений). Найти количество квадратов, размещенных на прямоугольнике, а также площадь незанятой части прямоугольника.

Вход: Выход: Кол-во квадратов 32, площадь 226

Дата добавления: 2019-09-13; просмотров: 179; Мы поможем в написании вашей работы!

Поделиться с друзьями:

12 3 4 Следующая ⇒

Мы поможем в написании ваших работ!