Перечень лабораторных работ по дисциплине «информатика и икт» для специальности «компьютерные сети и комплексы», лабыпо инфе помогите!!! Опции

[GANGSTER96]

№2
Даны основания равнобедренной трапеции и угол при большем основании. Найти площадь трапеции и ее периметр
№3
цифры данного четырехзначного числа N образуют строго возрастающую последовательность
№7
дано натуральное n.Вычислить
S=1-1/2+1/4-1/8+...+(-1)n*1/2n
n-все в степени
№8
В диапазоне от N до M вывести числа, сумма цифр которых равна самому числу

Сообщение отредактировано: GANGSTER96 - 20.04.2012 22:19

[Artem7]

№8

Program Summa_zifr;
Var a,b,i,n,s1,s2,j:integer;
Function Summa(n:integer):integer;
Var s:integer;
Begin
    s:=0;j:=0;
    While n<>0 do
    Begin
    s:=s+(n mod 10);
    n:=(n div 10);
    End;
    Summa:=s;
End;
Begin
     write('Введите число N= ');readln(N);
     write('Введитен отрезок [A,B] ');readln(A,B);
     s1:=Summa(N);
     For i:=A to B do
     Begin
     s2:=Summa(i);
     if s1=s2 then Begin write(i:4);inc(j); end;
     s2:=0;
     End;
     writeln;
     if j<>0 then writeln('Всего таких чисел ',j)
     else writeln('На данном отрезке нет таких чесел');
     readln;
End.

№2

program trapeziy;
var h,ug,a,b,x,s,p:real;
begin
write('Ввидете а ');readln(a);
write('Введите b ');readln(b);
write('Введите угол ');readln (ug);
x:=(a-b)/2;
h:=x*sin(ug)/cos(ug);
s:=(a+b)*(a-b)/4*sin(ug)/cos(ug);
p:=a+b+a+b;
writeln('Площадь s=',s:0:3);
writeln('Периметр p=',p:0:3);
readln;
end.

Сообщение отредактировано: Artem7 - 21.04.2012 13:45

[Lapp]

М

Артем, извини, но ЭТОТ РАЗДЕЛ не для публикации решений!