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

Рейтинг:   / 1
ПлохоОтлично 

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

Программа, выводящая на экран слово «МИР». Буквы этого слова состоят из символов «*», высота каждой буквы – 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.

http://pishevarenie.com/article/mozhno-li-pri-yazvennom-kolite-pit-kefir . http://diabetmed.net/ pdf сахарный диабет центр.

Критические заметки

Здесь представлены комментарии некоторых спортивных состязаний, а также оценка вопросов, сыгранных в телевизионных клубах "Что? Где? Когда?" России и Беларуси.  Особое внимание будет уделено игровым видам спорта (футбол, хоккей). Найдут для себя полезное и любители шахмат и шахматной композиции. 

Читать

Лучшие книги

Здесь представлены лучшие, на наш взгляд, книги по математике, физике, астрономии, информатике, и некоторым другим предметам. Также предлагается подборка научно-популярной литературы и книг по интеллектуальным играм. Здесь указаны ссылки, по которым Вы можете их скачать.

Перейти к книгам