Новые сообщения · Правила  
  • Страница 2 из 2
  • «
  • 1
  • 2
Лабораторная работа №4
12. Дано целое четырехзначное число. Используя операции div и mod, найти сумму его цифр.
Код программы
Код

var
a,summa,a1,a2,a3,a4:integer;
begin
write('Vvedite4xznachnoe chislo:');
readln(a);
a1:=a mod 10;
a2:=(a div 10) mod 10;
a3:=(a div 100) mod 10;
a4:=a div 1000;
summa:=a1+a2+a3+a4;
write(' summa cifr=' ,summa);
end.

Контрольный расчет
Код

Vvedite4xznachnoe chislo: 4974
summa cifr=24


kiriko
21 | Автор: Vincent_Young | 2014-10-22, 14:04   |  Репутация: [ + 0 ]
7. Дана площадь круга. Найти длину окружности, ограничивающей этот круг.
Код
program Iren456
{***********************************}
{* laba#4 file iren456.pas==ver1.0            *}
{* Zaznoba Irina I-14-1 06.10.14               *}
{***********************************};
var C,S,Pi: real;
begin
Pi:=3.14;
writeln('enter S');
readln (S);
C:=sqrt(4*Pi*S);
writeln('C=',C);
end.
http://195.208.237.170/WDE/?shared=iren4562/Iren456_1.pas



Ирина Зазноба
22 | Автор: iren456 | 2014-11-01, 21:26 | Изменено: iren456 - Пн, 2014-11-03, 13:17   |  Репутация: [ + 0 ]
14. Написать программу вычисления углов треугольника, если заданы координаты вершин.


Код
var x1,x2,x3,y1,y2,y3,v1,v2,v3,cosA,cosB,cosC:real;
begin
write('Введите координаты вершин по часовой стрелке в виде x1 y2 x2 y2 x3 y3: ');
read(x1,y1,x2,y2,x3,y3);
v1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
v2:=sqrt(sqr(x1-x3)+sqr(y1-y3));
v3:=sqrt(sqr(x2-x3)+sqr(y2-y3));

cosA:= arccos(((x1-x2)*(x1-x3)+(y1-y2)*(y1-y3))/(v1*v2));
cosB:= arccos(((x1-x3)*(x2-x3)+(y1-y3)*(y2-y3))/(v2*v3));
cosC:= arccos(((x2-x3)*(x1-x2)+(y2-y3)*(y1-y2))/(v1*v3));
writeln('cosA = ', cosA:3:5, ' cosB = ', cosB:3:5 ,' cosC = ', cosC:3:5)

End.


Контрольный расчет:
Код
Точки: (0;0)  (4;6)  (4;0)
Ответ в радианах
A = 0.98279  B = 1.57079  C = 2.55359
23 | Автор: Bun_Frith | 2014-11-09, 20:44 | Изменено: Bun_Frith - Вс, 2014-11-09, 21:44   |  Репутация: [ + 4 ]
1. Вводят несколько чисел. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей. 

Код
program Dimehion;
uses crt;
    var  i,t,n,a,b,c: integer; S1,S2:real;
  begin
      writeln('Сколько чисел вы хотите ввести? ');
      readln(n);

      b:=0; c:=0;
      writeln('Введите числа:');
      for i:=1 to n do begin
        writeln('Введите ' ,i, ' число: ');
        readln(a);
        b:=b+sqr(a);
        c:=c+abs(a);
        end;
      S1:=b/n;
      S2:=c/n;
      writeln('Среднее арифметическое квадратов чисел: ',S1);
      writeln('Среднее арифметическое модулей чисел: ',S2);
  end.

     
     

Контрольный расчет:
24 | Автор: dimeshion | 2014-11-23, 22:00   |  Репутация: [ + 2 ]
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск: