program raf105;
var s,s1:string;
begin
s:= 'информатика';
s1:= s1 + copy(s,3,5);
writeln(s1);
s1:= '';
s1:= s1 + copy(s,10,1) + copy(s,9,1) + copy(s,2,1) + copy(s,4,1);
writeln(s1);
s1:= '';
s1:= s1 + copy(s,10,2) + copy(s,5,1) + copy(s,8,2) + copy(s,2,1) + copy(s,7,1);
writeln(s1);
s1:= '';
end.
<h3><em><u>Язык PascalABC</u></em></h3>
1) var a,b,x:real;
begin
write ('введите числа а и b: '); readln(a,b);
x:=-b/a;
writeln('x= ',x);
end.
2) var r1,r2,s:real;
begin
write ('введите размеры внешнего и внутреннего радиусов: '); read(r1,r2);
s:=pi*r1*r1-pi*r2*r2;
write ('Площадь кольца = ',s);
end.
3) var a,b,c,s,p:real;
begin
write ('введите длины катетов: '); read(a,b);
s:=a*b/2;
c:=sqrt(a*a+b*b);
p:=a+b+c;
write ('Площадь треугольника = ',s);
write ('Периметр треугольника = ',p);
end.
4) var a,b,sr:real;
begin
write ('введите числа а и b: '); readln(a,b);
sr:=(abs(a)+abs(b))/2;
writeln('среднее арифметическое модулей = ',sr );
end.
5) var x1,y1,x2,y2,r:real;
begin
write ('введите координаты точек: '); readln(x1,y1,x2,y2 );
r:=sqrt ( sqr(x2-x1)+sqr (y2-y1));
writeln('расстояние = ',r );
end.
6) var a,b,h, s, p:real;
begin
write ('введите длины оснований и высоту трапеции: '); readln(a,b,h);
s:=(a+b)*h/2;
p:=a+b+h+sqrt (sqr(abs(a-b))+h*h);
write ('Площадь трапеции = ',s);
write ('Периметр трапеции= ',p);
end.
7) var a,e,d,s, p:integer;
begin
write ('введите трехзначное число: '); readln(a);
e:=a mod 10; s:=a div 100;
d:= (a div 10) mod 10; p:=e*d*s;
write ('разность между трехзначным числом и его произведением = ',a-p);
end.
к твоему комментарию
var x,s,m,c: integer;
begin
write('введите количество секунд: ');readln(x);
c:=x div 3600;
m:= (x mod 3600) div 60;
s:=(x mod 3600) mod 60;
writeln('прошло ',c,' часов ',m,' минут ', s,' секунд ');
end.
Информацию измеряют в бит, байт, килобайт...
0 или 1 - бит
восемь 0 или 1 - байт
1024 байт = 1 Кбайт
1024 Кбайт = 1 Мбайт....
если 2048 / 2 = то сколько будет в мегабайтах
если 160 бит / 8 = то сколько будет в байтах
Program rec;
uses graphabc;
var x:integer = 1280;
y:integer = 720;
y2:integer = 1;
y3:integer = 15;
begin
setwindowsize(x,y);
setpencolor(clblack);
setpenwidth(3);
Rectangle(x div 2,y2,x div 2 + 10, y3);
while(y3<710) do
begin
y2+=1;
y3+=1;
Rectangle(x div 2,y2,x div 2 + 10, y3);
FillRectangle(x div 2 -1,y2-3,x div 2 + 11, y2-1);
sleep(50);
end;
end.
Pascal
Оператор ветвления (условный оператор) IF
If (условие) then
Блок, выполняющийся, если условие верно
else
Блок, выполняющийся если условие не верно
Сокращенная форма (else может отцутствовать)
if (условие) then
Блок, выполняющийся, если условие верно
Если условие одно то запись имеет вид
if a >b then...
Если условий несколько, то они берутся в скобки
and (выполняются все); or (выполняется хоть одно)
1 - верно 0 - неверно
( 1 and 1 = 1; 1 and 0 = 0)
(1 or 1 =1; 1 or 0 = 1; 0 or 0 = 0)
if (a>b) and (a > 0) then
Если блок да/нет содержит несколько операторов, то они беруться в операторные скобки
if a > b then
writeln (a) // 1)
if a > b then
begin
writeln (a); // 1)
b := a + b; // 2)
end;
if a > b then
begin
writeln (a); // 1)
b := a + b; // 2)
end
else
begin
writeln (b); //1)
a := a + b; //2)
end;