close

Вход

Забыли?

вход по аккаунту

?

lab1 (2)

код для вставкиСкачать
program A1;
{ Зубик Ю.В. Группа 3В-102Б }
Uses Crt;
Var c,e:real;
d,f,g:word;
a,b,i,j,h:char;
Const k=true;
begin
Clrscr;
writeln('Ввведите значения переменных вещественного и целого типов ');
readln(c,e,d,f,g);
writeln('Введите значения переменных символьного типа');
readln(a,b,h,i,j);
writeln;
writeln('Бесформатный вывод данных');
writeln(' целого типа: d=',d,',f=',f,',g=',g);
writeln(' символьного типа: a=',a,',b=',b,',i=',i,',j=',j,',h=',h);
writeln(' логического типа: k=',k);
writeln(' вещественного типа:c=',c,',e=',e);
writeln;
writeln('Вывод данных по формату 5');
writeln(' целого типа: d=',d:5,',f=',f:5,',g=',g:5);
writeln(' символьного типа: a=',a:5,',b=',b:5,',i=',i:5,',j=',j:5,',h=',h:5);
writeln(' логического типа: k=',k:5);
writeln(' вещественного типа:c=',c:5,',e=',e:5);
writeln;
writeln(' Вывод данных по формату 5:2');
writeln(' вещественного типа:c=',c:5:2,',e=',e:5:2);
readln
end.
Содержимое экрана монитора , полученное в результате выполнения программы A1.
Ввведите значения переменных вещественного и целого типов
0.01 -48.3 358 754 32768
Введите значения переменных символьного типа
sH+32
Бесформатный вывод данных
целого типа: d=358,f=754,g=32768
символьного типа: a=s,b=H,i=3,j=2,h=+
логического типа: k=TRUE
вещественного типа:c= 1.00000000000051E-0002,e=-4.82999999999884E+0001
Вывод данных по формату 5
целого типа: d= 358,f= 754,g=32768
символьного типа: a= s,b= H,i= 3,j= 2,h= +
логического типа: k= TRUE
вещественного типа:c= 1.0E-0002,e=-4.8E+0001
Вывод данных по формату 5:2
вещественного типа:c= 0.01,e=-48.30
Документ
Категория
Рефераты
Просмотров
8
Размер файла
13 Кб
Теги
lab1
1/--страниц
Пожаловаться на содержимое документа