Задание: На печать вывести значения вводимых исходных данных и результаты вычислений, сопровождая вывод наименованиями выводимых переменных.
Решение:
Program Two;
var a,b,x,s:real; //Объявляем переменные (Вещественный тип (числа с плавающей запятой))//
begin
writeln('Введите a,b,x'); //вводим переменные//
Readln(a,b,x); //программа считывает переменные//
s:=x*x*x*(sin((x+b)*(x+b)))/(cos((x+b)*(x+b)))*(sin((x+b)*(x+b)))/(cos((x+b)*(x+b)))+a/sqrt(x+b); // Обращаемся к переменной s и присваиваем ей значение x*x*x*(sin((x+b)*(x+b)))/(cos((x+b)*(x+b)))*(sin((x+b)*(x+b)))/(cos((x+b)*(x+b)))+a/sqrt(x+b)
// Допустим a = 2 b = 3 x = 1 то//
// (sin((x+b)*(x+b)))/(cos((x+b)*(x+b)))*(sin((x+b)*(x+b))) равна 0,09037974494432//
// и тогда s= 1*1*1*0,09037974494432+2/sqrt4 . Т.е. 1.09037974494432//
writeln('s=',s);//выводим решение на экран//
Readln;//приостанавливаем программу//
end.
Начало Ввод a,b,x Вывод s Конец
Задание: Найти среднее арифметическое и среднее геометрическое двух целых чисел. Исходные данные и результаты вывести на печать с соответствующими пояснениями.
Решение:
Program Project3;
var a,b:integer; //Объявляем переменные (с плавающей запятой)//
s,g:real; //целые//
begin
writeln('Введите a,b'); //вводим переменные//
read(a,b); //программа считывает переменные//
s:=(a+b)/(2); // Обращаемся к переменной s и присваиваем ей значение:=(a+b)/(2)//
//Находим среднее арифметическое , допустим a=-3 b=2, то среднее арифметическое равно -0.5//
g:=sqrt(abs((a)*(b))); // Обращаемся к переменной s и присваиваем ей значение sqrt(abs((a)*(b)))//
//Находим среднее арифметическое , допустим a=-3 b=2, то среднее арифметическое равно -0.5//
writeln('Sr arifm',s); //выводим s//
writeln('Sr geom',g); //выводим g//
// a=-3 b=2 , равно sqr(6) = 2.44948974278318//
readln(s,g);
end.
Начало
Ввод a,b s=
g=
Вывод s,g Конец
Задание: Осуществить вывод значений вводимых исходных данных и результат вычисления значения функции, сопровождая вывод наименованиями переменных.
Решение:
program One;
var a,x,y,w:real;//Объявляем переменные
begin
write('x=');// вводим переменные
read (x);
a:=2.5; //
if x>a then w:=x*x*x*sqrt(x-a) else //Если x=3 то w= 19,0918830920368
begin if x=a then w:=x*sin(a*x) else //Если x=2.5 w= -0.0829480413688920
w:=exp(-a*x)*cos(a*x); // Если x=0 w=1
end;
write('w',w);
readln(w);
end.
Начало Ввод x a=2.5 x>a x=a Вывод
w Конец