Всем привет, сегодня мы будем решать простые задачи на линейные алгоритмы. Перейдем сразу к делу.
Задача 1:
Вывести периметр и площадь квадрата, длину стороны вводит пользователь.
Program a1; - имя программы
Var a,p,s: integer; - объявим 3 целые переменные для длины стороны квадрата, периметра и площади.
Begin - начало
Writeln ('Введите длину стороны квадрата'); - запрашиваем у пользователя длину
Readln(a); - записываем введённое число в переменную а
P:=a*4; - присваеваем переменной p значение периметра по формуле
S:=sqr(a); - присваеваем переменной s значение площади по формуле, функция sqr() возвращает квадрат числа
Writeln (p,s); - если у нас в выводе несколько аргументов, то есть несколько переменных или переменная и текст, то между ними ставится запятая
End. - конец программы
Задача 2:
Вывести длину гипотенузы прямоугольного треугольника, длины катетов вводятся пользователем.
Program a2; - имя программы
Var a,b,c: real; - объявляем 3 переменные вещественного типа, так как вычленение корня и деление можно проводить только с ними
Begin - начало программы
Writeln ('Введите длины катетов прямоугольного треугольника'); - запрашиваем в пользователя 2 числа
Readln(a,b); - записываем числа в переменные, два аргумента, поэтому между ними запятая.
C:=sqrt(sqr(a)+sqr(b)); - присваевается переменной с значение формулы из теоремы Пифагора, sqr(), как я сказал ранее, возвращает квадрат числа, а sqrt() - корень числа
Writeln(c); - выводить значение переменной c
End. - конец программы
Задача 3:
Вывести сумму десятков и единиц двузначного числа, введённого пользователем.
Пример: на входе 25, на выходе 7, то есть 2+5=7
В этой программе нам понадобятся две новых функции div и mod
Div - функция деления без остатка
Пример: 37 div 10 будет равно 3
С помощью этой функции мы сможем найти десятки числа
Mod - функция, которая возвращает остаток от деления
Пример: 37 mod 10 будет равно 7 или 3 mod 2 будет равно 1
С помощью этой функции мы сможем найти единицы числа
Эти функции работают только с целыми числами.
К программе:
Program a3; - название программы
Var a, b, c, sum: integer; - объявляем 4 переменные целого типа, для самого числа, единиц, десятков и их суммы
Begin - начало
Writeln ('Введите двузначное число'); - запрашиваем у пользователя число
Readln(а); - считываем число в переменную а
b:= a div 10; - присваеваем значение десятков, используя функцию деления на цело
C:= a mod 10; - присваеваем значение единиц, используя функцию, возвращающую остаток от деления
Sum:=b+c; - находим сумму десятков и единиц
Writeln (sum);- выводить сумму десятков и единиц
End. - конец программы
На этом всё. Попробуйте сами решить следующие задачи:
1. Написать программу, для нахождения периметра и площади прямоугольника, длины сторон вводятся с клавиатуры
2. Написать программу для поиска площади треугольника по формуле Герона, длины сторон вводятся с клавиатуры (учтите, что для деления и вычленения корня переменные должны быть вещественными)
3. Вводятся 2 числа с клавиатуры, вывести их сумму, разность, произведение, частное и среднее арифметическое(также как и в прошлой задаче объявите вещественные переменные)
На этом все на сегодня, если вам понравилось, то оценивайте. Если хотите увидеть больше статей по программированию то подписывайтесь, статьи кстати выходят каждый день. Всем удачи!