Javascript must be enabled in your browser to use this page.
Please enable Javascript under your Tools menu in your browser.
Once javascript is enabled Click here to go back to �нтеллектуальная Кобринщина

Операторы ввода и вывода и присваивания информации

Программа, выводящая на экран слово «МИР». Буквы этого слова состоят из символов «*», высота каждой буквы – 6 символов.

Program mir;

Uses Crt;

Begin

Clrscr;

writeln(‘*          *   *          *   *******’);

writeln(‘* *    * *   *        **   *          *’);

writeln(‘*   **   *   *      *  *   *          *’);

writeln(‘*    *    *   *   *     *   *******’);

writeln(‘*          *   * *       *   *            ’);

writeln(‘*          *   *          *   *            ’);

readln;

End.

 

Программа, вычисляющая произведение трёх чисел.

Program umnogenie;

Uses Crt;

var a, b, c: real;

Begin

     Clrscr;

writeln(‘Введите первое число ’);

readln(а);

writeln(‘Введите второе число ’);

readln(b);

writeln(‘Введите третье число ’);

readln(с);

writeln(‘Произведение чисел равно ’, a*b*c );

readln;

End.

 

Определение среднего арифметического двух чисел.

Program sredznach;

Uses Crt;

var a, b: real;

Begin

Clrscr;

writeln(‘Введите первое число ’);

readln(а);

writeln(‘Введите второе число ’);

readln(b);

writeln(‘Среднее значение чисел равно ’, (a+b)/2 );

readln;

End.

 

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

Program treugolnik;

Uses Crt;

var a, b: real;

Begin

Clrscr;

writeln(‘Введите первый угол ’);

readln(а);

writeln(‘Введите второй угол ’);

readln(b);

writeln(‘Третий угол равен ’, 180-a-b );

readln;

End.

 

Вычисление значения арифметического выражения .

Program Uravnenie;

Uses Crt;

var x, y: real;

Begin

Clrscr;

write(‘Введите значение переменной х ’);

readln(x);

write(‘Введите значение переменной y ’);

readln(y);

writeln(‘Значение арифметического выражения равно’, exp(x*ln(y)):5:3);

readln;

End.

Вычисление значения арифметического выражения 

Program Uravnenie;

Uses Crt;

var x, b: real;

Begin

Clrscr;

write(‘Введите значение переменной х ’);

readln(x);

b:= (exp(x*ln(5))+exp(5*ln(х)))/(5+х);

writeln(‘Значение арифметического выражения равно’, b:5:3);

readln;

End.

 

Программа записывающая введённое с клавиатуры трёхзначное число теми же цифрами, но в обратном порядке (то есть, если дано число 149, то получить надо 941). 

Program Naoborot;

Uses Crt;

var x, a, b, c: integer;

Begin

Clrscr;

write(‘Введите трёхзначное число ’);

readln(x);

a:= x mod 10;

b:= x div 10 mod 10;

c:= x div 100;

writeln(‘Число наоборот’, 100*а+10*b+а);

readln;

End.

 

Вычисление площади треугольника по двум сторонам и углу между ними.

Program st;

Uses Crt;

var a, b, c, s: real;

Begin

Clrscr;

writeln(‘Введите длину первой стороны  ’);

readln(а);

writeln(‘Введите длину второй стороны  ’);

readln(b);

writeln(‘Введите угол между ними ’);

readln(с);

s:=0.5*a*b*sin(c);

writeln(‘Площадь треугольника равна ’, s );

readln;

End.

 

Вычисление площади треугольника по 3 вершинам.

Program st;

Uses Crt;

var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;

Begin

     Clrscr;

     writeln('введите A(X1,Y1), B(X2,Y2) и C(X3,Y3)');

     readln( x1,y1,x2,y2,x3,y3 );

     c:=sqrt(sqr(y1-y2)+sqr(x1-x2));

     a:=sqrt(sqr(y2-y3)+sqr(x2-x3));

     b:=sqrt(sqr(y1-y3)+sqr(x1-x3));

     p:=(a+b+c)/2;

     s:=p*sqrt((p-a)*(p-b)*(p-c));

     writeln('площадь треугольника = ',s);

     readln;

End.

 

Вычисление суммы целых частей двух введённых с клавиатуры действительных чисел.

Program summa;

Uses Crt;

var a, b, c: real;

Begin

Clrscr;

writeln(‘Введите первое число ’);

readln(а);

writeln(‘Введите второе число ’);

readln(b);

с:= trunc(a)+ trunc(b);

writeln(‘Произведение чисел равно ’, c );

readln;

End.

 

Программа, которая по правилам математики округляет введённое с клавиатуры действительное число и возводит его в степень, введённую с клавиатуры.

Program okrugl;

Uses Crt;

var a, b, c: real;

Begin

Clrscr;

writeln(‘Введите действительное число ’);

readln(а);

writeln(‘Введите степень ’);

readln(b);

с:=round(a);

d:=exp(b*ln(c));

writeln(‘Округление числа ’, a, ‘=’c );

writeln(‘числа ’, с,’ в степени ’, ’ b’, ‘=’, d );

readln;

End.

 

Вычисление длины отрезка, зная координаты A и B.

Program size;

Uses Crt;

var x1,y1,x2,y2,d:real;

Begin

     Clrscr;

     writeln('введите A(X1,Y1) и B(X2,Y2)');

     readln( x1,y1,x2,y2 );

     d:=sqrt(sqr(y2-y1)+sqr(x2-x1));

     writeln('длина отрезка |AB|=',d);

     readln;

End.