Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Составление блок-схемы

Автор: STRIKER221 17.12.2006, 11:53

Задача 1
Условие: Составьте блок-схему и программу на языке Pasсal для задачи: Ввести число Х и проверить, что больше:
Sin (x), Cos (x), tg (x).
X – исчисляется в радианах. Примечание: tg вычислять через sin и cos.
Решение:

Код


program one;
type z=array [1..3] of real;
var
  a:z;
  i,j,ind: integer;
  x, m: real;
begin
  writeln('Vvedite X');
  read (x);
  a[1]:=sin (x);
  writeln ('sinx= ' , a[1]);
  a[2]:=cos(x);
  writeln ('cosX= ', a[2]);
  a[3]:=sin(x)/cos(x);
  writeln ('tgx= ', a[3]);

  for i:=1 to 2 do
    begin
      ind := i;
      m:=a[i];
      for j:=i+1 to 3 do
        if a[j] < m then
          begin
            m := a[j];
            ind := j;
          end;
      a[ind] := a[i];
      a[i] := m;
    end;
    writeln ( ' minimalnoe ', a[1]:5:10);
    writeln ( ' srednee ', a[2]:5:10);
    writeln ( ' maksimalnoe ', a[3]:5:10);
end.

Задача 2
Условие: Составьте блок-схему и программу на языке Pasсal для задачи: Найти сумму последовательности введённых чисел. Признаком конца последовательности является ввод нуля.
Вводимые слагаемые расположить в столбик, а сумму вывести под чертой (как в школе)
Решение:

Код


program two;
var
  a,s:integer;
begin
  repeat
      write('a=');
      readln(a);
      s:=s+a;
  until a = 0;
  writeln ( '________' );
  writeln ( 'S=',s);
end.