Вывод: Сегодня я создал и сохранил проекты практических работ, понял и разобрался в структуре программы.
Практическая работа № 2
Тема практической работы: Создание консольного приложения
Цель практической работы: создать консольные приложения, предназначенные для работы в операционной системе MS-DOS.
Ход работы:
Задание №1
Рис 8
Листинг :
program Console1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,x1,x2 : integer; s1,s2:string;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln (‘Hello Pascal’);
readln;
end.
Задание №2
Рис 9
Листинг :
program Console1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,x1,x2 : integer; s1,s2:string;
begin
{ TODO -oUser -cConsole Main : Insert code here }
readln(i,x1,x2);
writeln ('i+x1+x2=',i+x1+x2);
readln (s1);
readln (s2);
writeln ('s1=',s1);
writeln ('s2=',s2);
readln;
end.
Задание №3
Рис 10
Листинг :
program Console1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var i,x1,x2 : integer; s1,s2:string;
function Cyr(S: string): string;
var I: integer;
Ch: char;
begin
for I:=1 to length(S) do
begin
Ch :=S[I] ;
case Ch of
'А'..'п': S[I]:=Chr(Ord(S[I])-64);
'р'..'я': S[I]:=Chr(Ord(S[I])-16);
'Ё': S[I]:=Chr(240);
'ё': S[I]:=Chr(241);
end;
end;
Cyr:=S;
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln (Cyr('Введите 3 числа’));
readln(i,x1,x2);
writeln ('i+x1+x2=',i+x1+x2);
writeln (Cyr('Введите строку s1 и нажмите Enter'));
readln (s1);
writeln (Cyr('Введите строку s2 и нажмите Enter'));
readln (s2);
writeln ('s1= ',s1);
writeln ('s2= ',s2);
readln;
end.
Достарыңызбен бөлісу: |
