Процедуры ввода и вывода

Процедура вывода данных.

Для вывода данных используется процедура:

1. Write (d1,d2..dn);при использованиипроцедуры выводимое значение размещаются в одной строке.

2. Writeln (d1,d2..dn);после вывода последнего значения осуществляется переход к новой строке.

3. writeln;обеспечивает пропуск к строке и переход к началу следующей строке

4. Writeln (d1:m:n);write(d1:m:n);форматированы вывод,где m – количество позиций отводимое под запись значений, n – количество позиций из m отводимый под дробною часть числа.

5. для наглядности программы можно использовать пояснительный текст, который заключается в одинарные кавычки (опостыв) . writeln(‘площадь =’,s);

Процедура ввода данных.

1. read(b1,b2..bn); числовые значения м/о вводить ч/з пробел или клавишу Enter.

2. readln(b1,b2..bn); считывает значения в текущей строке и переводит позицию на начало следующей строке, даже если в текущей строке остались непрочитанные данные.

3. readln; ждет нажатия клавиши Enter.

1.Дан радиус окружности. Найти длину окружности и площадь круга.

Var r,l,s:real;

begin

writeln('vvediye radiuc');

readln(r);

l:=2*pi*r;

s:=pi*sqr(r);

writeln('dlina=',l,'ploshad=',s);

readln

end.

2.Дано натур. число n(n>99). Найти число сотен в нем.

Var n,c:intereg;

begin

writeln('vvediye chifru');

readln(n);

c:=n mod 1000 div 100;

writeln('c=',c);

readln

end.

1. Определите площадь и периметр прямоугольника со сторонами a и b.
2. Определите количество теплоты необходимое для нагревания жидкости массой m, обладающей теплоёмкостью c от температуры t1 до температуры t2.
3. Определите количество теплоты, выделяемое проводником с сопротивлением R за время t при прохождении через него электрического тока силой I.
4. Вычислите объём параллелепипеда со сторонами a, b и c.
5. Выведите на экран своё имя высотой в восемь строчек.

6. Поменяйте между собой значения двух переменных А и В.