1-Текстовый документ-это документ содержащий речевую информацию,зафиксированную любым типом письма или любой системой звукозаписи
2-"Ввод текста
Редактирование текста
Форматирование текста
Печать документа
3-можно изменить регистр символов, изменить атрибуты (жирный, курсив, подчеркнутый, зачеркнутый и т. д.) , изменить кегль шрифта (10,12,14 и т. д.) , тип шрифта (Таймс, Тахома, Ариал и т. д. ) ну и т. д.
4-Форматирование текста необходимо осуществлять для придания документу такого вида, который он будет иметь на бумаге. На этом этапе можно выравнивать абзацы, менять шрифт, размер шрифта, его начертание, цвет, маркировать списки.
5-Принтер
Если всё так как написанно, то программа вообще не скомпилируется. Должно быть
a:=1;b:=1;
while a<2 do
begin
b:=b+2;
end;
s:=a+b;
в теле цикла переменная а не изменяется, поэтому цикл будет бесконечным. То есть пока Ctrl-Break не нажмешь будет кажаться что программа зависла.
program krug;
var r:real;
begin
write('введите радиус: ');
readln(r);
writeln('С=',2*3.14*r);
writeln('S=',3.14*r*r);
readln;
end.
кажись так
Var x1, y1, x2, y2, x3, y3, P: real;
function length(x1: real; y1: real; x2: real; y2: real): real;
begin
length := sqrt(sqr(x1 - x2) + sqr(y1 - y2));
end;
begin
read(x1, y1, x2, y2, x3, y3);
P := length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3);
writeln('Perimeter is ', P);
<span>end.
------------------------------
#include <cmath>
#include <iostream>
float length(float x1, float y1, float x2, float y2)
{
return pow((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2), 0.5);
}
int main()
{
float x1, y1, x2, y2, x3, y3, P;
std::cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
P = length(x1, y1, x2, y2) + length(x3, y3, x2, y2) + length(x1, y1, x3, y3);
std::cout << "Perimeter is " << P;
<span>}</span></span>
Program t1;
Var a: array[1..n,1..m] of integer;
i,n,m,max,s: integer;
Begin
Read (n,m);
S:=0;
Max:=0;
For i:=1 to n do
Begin
S:=s+a[i];
End;
For i:=1 to m do
Begin
If (max>a[i]) then
Max:=max
Else max:=a[i];
End;
Write (s);
Write (max);
End.