Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
2.1.4 Контрольный пример
2.1.5 Листинг программы
uses crt;
var
s:string;
begin
writeln('god osnovanija SP?');
readln(s);
if s='1752' then writeln('pravilno')
else writeln('neych!!! pravilno 1752');
readln;
end.
uses crt;
var s,v,r,h:real;
begin
write('высота цилиндра = '); readln(h);
write('радиус цилиндра = '); readln(r);
v:=2*pi*r*(h+r);
s:=pi*r*r*h;
writeln('Площадь = ',s);
writeln('Объем = ',v);
end.
uses crt;
var ch,i,j:integer;
begin
for i:=1 to 5 do
begin
if (i mod 2 <> 0 ) then
writeln('kvadrat ',i,' = ',sqr(i));
end;
end.
uses crt;
var x,n,i:integer;
BEGIN
clrscr;
randomize;
x:=random(10);
while i<5 do
begin
writeln('chislo');
read(n);
if n=x then
begin
writeln('pozdravlyaem vi ugadali');
i:=i+4;
end
else writeln('vi ne ugadali chislo');
i:=i+1;
end;
readkey;
END.
2.2.5 Листинг программы
program zzz;
var
i:integer;
z:real;
c:real;
begin
writeln('Введите числа');
z:=1;
while z>0 do
begin
readln(z);
c:=c+z;
i:=i+1;
end;
c:=c/i;
writeln('Среднее арифметическое',c);
readln;
end.
uses crt;
var n,i,a,s:integer;
begin
clrscr;
writeln('Введите количество суммируемых чисел и нажмите Enter');
readln(n);
s:=0;
a:=2;
i:=1;
while i <= n do
begin
s:=s+a;
i:=i+1;
a:=a+2;
end;
write('Сумма первых ',n,' четных положительных чисел = ',s);
readln
end.
Program p7;
Var name, surname: string;
i:integer;
Begin;
Writeln('Введите имя...');
Readln(name);
Writeln('Введите фамилию...');
Readln(surname);
FOR i:=1 TO 10 DO
Begin;
Writeln(surname, name);
End;
End.