понедельник, 21 апреля 2014 г.

1.
Program K;
Var a,b,c, min:integer;
Begin
Readln (a, b, c);
if (a<b) and (a<c) then min:=a;
if (b<a) and (b<c) then min:=b else min:=c;
writeln(min);
End.
2.
Program vozrast;
var x, y,max: integer;
Begin
Writeln ("Возраст Саши, возраст Маши");
Readln (x,y);
if x>y then writeln ("Саша старше Маши") else writeln ("Маша старше Саши");
If x=y then writeln ('Возраст Маши равен возрасту Саши');
End.
3.
Program Two;
var x:integer;
begin
Writeln('Введите номер дня недели: ');
Readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('Вторник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Суббота');
if (x = 7)then writeln('Воскресенье');
End.
4.
Данная программа вычисляет количество введенных чисел больше нуля.
Пример исходных данных и результата:
1 пример
x=6
y=-3
z=7
i=2
2 пример
x=0
y=-2
z=-5
i=0

четверг, 3 апреля 2014 г.

Практическая работа. Информатика. 3.04.2014


1.    Program Numbers;
var a, b, c, d, f: integer;
begin
  readln (a, b, c, d);
  f:=(a+b+c+d)/4;
  writeln (f)
end.


2.    Program mine;
     var a,b,c,d:integer; x1,x2:real;
     begin
      writeln('Введите коэффициенты');
      readln(a,b,c);
      d:=b*b-4*a*c;
     if (d<0) then writeln('Нет решения')
    else if (d=0) then
    begin
    x1:=-b/(2*a);
    writeln('x=',x1);
    end.
    else begin
    x1:=(-b+sqrt(d))/(2*a);
    x2:=(-b-sqrt(d))/(2*a);
    writeln('x1= ',x1,'x2=',x2);
    end.

3. program my;
    var R1, R2: real;
    begin
       write('Введите данные - ');
       read(R1, R2);
       writeln('Pi = ', pi); 
       writeln('S = ', pi * abs(R1 * R1 - R2 * R2));

end.