pastebin - collaborative debugging

pastebin is a collaborative debugging tool allowing you to share and modify code snippets while chatting on IRC, IM or a message board.

This site is developed to XHTML and CSS2 W3C standards. If you see this paragraph, your browser does not support those standards and you need to upgrade. Visit WaSP for a variety of options.

 > Turbo Pascal Онлайн Получить справку

Различия между изменённой записью 627 оставленной Yana 02.12.2016 в 03:57 и
оригинальной записью 626 оставленной Yana 02.12.2016 в 03:56
Показать старую версию | новую версию | обе версии

    
11
program Yana;
22
var  r, h, s: real;
33
begin
44
writeln ('Вычисление площади поверхности цилиндра');
55
writeln ('Введите исходные данные:');
66
write ('радиус основания цилиндра (см) —>');
77
readln (r);
88
write ('высота цилиндра (см) ->');
99
readln (h);
1010
s:=2*pi*r*(h+r);
1111
writeln;
12-
writeln ('Площадь поверхности цилиндра ',s:2:1,'кв.см.');
12+
writeln ('Площадь поверхности цилиндра ',s:6:2,'кв.см.');
1313
 readln;
1414
end.

Использовать подсветку синтаксиса
В текущей реализации JS-DOS Read/ReadLn работают только при подключенном модуле Crt! Для подсветки отдельных строк используйте для них префикс @@


картинка


Запомнить мои настройки