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

Домашнее задание №26 Тема: Ветвления на Паскале. Программирование диалога с компьютером.


1. Составьте на Паскале программу определения минимума из трёх чисел с использованием логических операций. Программа должна иметь дружественный интерфейс. 

Program one
Var a,b,c:integer;
Begin
  WriteLn('a=');
  ReadLn(a);
  WriteLn('b=');
  ReadLn(b);
  WriteLn('c=');
  ReadLn(c);
  If a<b a<c Then WriteLn(a, ' - меньшее')
  Else If b<a b<c Then WtiteLn(b, '- меньшее')
  Else If c<a c<b WriteLn(c, ' - меньшее')
  Else If a=b=c WriteLn('числа равны')
End.

2. Составьте на Паскале программу, которая запрашивает возраст двух детей (Саши и Маши), а затем выводит информацию о том, кто из них старше.    

Program two
Var a,b:integer;
Begin
  WriteLn('Возраст Саши');
  ReadLn(a);
  WriteLn('Возраст Маши');
  ReadLn(b);
  If a>b Then WriteLn('Саша старше Маши')
  Else If b<a Then WtiteLn('Маша старше Саши')
  Else If a=b Then WriteLn ('Возраст Маши равен возрасту Саши')
End.

3. Запишите на языке Паскаль программу, которая по номеру для недели будет выводить его название.    

Program three
Var x:integer;
Begin
  WriteLn('
Введите номер дня недели')
  ReadLn(x);
  If x=1 Then WriteLn('
понедельник')
  Else If x=2 Then WriteLn('
вторник')
  Else If x=3 Then WriteLn('среда')
  Else If x=4 Then WriteLn('четверг')
  Else If x=5 Then WriteLn('пятница')
  Else If x=6 Then WriteLn('суббота')
  Else If x=7 Then WriteLn('воскресенье')
  Else If x>7 Then WriteLn('нет такого дня недели');
End.

4. Что вычисляет приведённая ниже программа? Приведите
два примера исходных данных и результата

Program example;
Var x,y,z,I :integer;
Begin
  ReadLn(a,b,c);
  i:=0;
  If a>0 then i:=i+1;
  If b>0 then i:=i+1;
  If c>0 then i:=i+1;
  WriteLn(i)
End.   


Эта программа вычисляет количество введенных чисел больше нуля.
Пример исходных данных и результата:
I
x=5
y=-3
z=1
i=2
II
x=0
y=28
z=-5
i=1

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

Практическое задание №20 Тема: Знакомство с языком Паскаль




1. Написать на языке Паскаль программу ввода четырёх целых чисел и вычисления их среднего арифметического.

2. Написать программу для вычисления дискриминанта  d   квадратного уравнения  ax2 + bx + c = 0. Разработать тесты проверки правильности работы программы для вариантов, когда d>0, d=0 и d<0.

3. Написать программу для вычисления площади кольца, внешний радиус которого равен R1, а внутренний – R2 (R1>R2).


1.
program my;
 var a,b,c,d,e:real;
begin
read(a,b,c,d);
e:=(a+b+c+d)/4;
writeln(e:0:4);
end.
2.
program my;
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;

readln
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.