Система задач и упражнений по языку программирования Pascal. Часть 1 - 47 стр.

UptoLike

ВУЗ: 

ЯГПУ им. Ушинского | Ярославль

Составители: 

Рубрика: 

47
Приложение
Тексты программ для выполнения лабораторных работ
Файл PRIMER1.pas
program upr1;
uses crt;
var f,i,o:string[15]; v,g,year:integer;
begin
clrscr;
write('Введите номер текущего года ');readln(year);
write('Введите Вашу фамилию ');readln(f);
write('Введите Ваше имя ');readln(i);
{write('Введите Ваше отчество ');readln(o);}
write('Введите Ваш возраст ');readln(v);
write('Введите номер Вашей группы ');readln(g);
gotoxy (15,15);write('Ваша фамилия - ',f);
gotoxy (1,17);write('Вас зовут ',i);
{gotoxy (5,18);write('Ваше отчество ',o);}
gotoxy (51,20);write('Вы родились в ',year-v,’ году’);
gotoxy (11,25);write('Вы учитесь в ',g,’ группе’);
end.
Файл PRIMER2.pas
Begin
clrscr;
soob:='Круговой сектор';
write(soob,' ','R=');readln(r);
write('alpha=');readln(alpha);
s:=r*r*alpha/2;
writeln('S=',S:3:0);
writeln('l=',2*S/r:5:2);
end.
Файл PRIMER3.pas
program upr4;
uses crt;
var a,b,c:real;
begin
{Соотношения в прямоугольном треугольнике}
write('a=');readln(a);
write('b=');readln(b);
c:=sqrt(a*a+b*b);
write('c=',c);
end.
Файл PRIMER2à.pas
program upr4;
uses crt;
var r,s,alpha:real;
soob:string[15];
begin clrscr;
soob:='Круговой сектор';
write(soob,' ','R=');readln(r);
write('alpha=');readln(alpha);
s:=r*r*alpha/2;
writeln('S=',S:9);
writeln('l=',2*S/r:5:2);end.
Файл PRIMER4.pas
Program upr1;
Uses crt;
var b:char;
begin clrscr;
write('input letter ');readln(b);
writeln(b+b+b+b+b+b);
writeln(b,' ',b); writeln(b,' ',b);
writeln(b,' ',b); writeln(b,' ',b);
writeln(b,' ',b);
writeln(b+b+b+b+b+b);
end.

Страницы