Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.11.2014, 10:14   #1
Bedaaaa
 
Регистрация: 15.11.2014
Сообщений: 6
По умолчанию Пожалуйста,постройте блок-схемы

1.
Код:
Program zadacha1;
var a,a28:real; 
begin 
readln(a);
a28:=sqr(sqr(a*sqr(sqr(a)*a)));;
writeln('a^28=',a28); readln
end.
2.
Код:
program zadacha2;
var
 a1,a2,a3:integer;
 b1,b2:integer;
 c1,c2,c3,c4,c:integer;
begin
  a1:=9;a2:=9;a3:=9;
  b1:=9;b2:=9;

  c:=a1+b1;
  c1:=c mod 10;
  c:=c div 10;

  c:=a2+b2+c;
  c2:=c mod 10;
  c:=c div 10;

  c:=a3+c;
  c3:=c mod 10;
  c:=c div 10;

  c4:=c;

  writeln(c4,c3,c2,c1);
  readln;
end.
3.
Код:
Program zadacha4;
var S:real;
    t:integer;
begin
   S:=10;
   t:=1;
   Repeat
      t:=t+1;
      S:=S+S*0.1;
   Until S>20;
   Write('t=',t,'; S=',S);
   Readln;
end.
4.
Код:
Program zadacha5;
var p:array[1..15] of integer;
    i,min,max,count:integer;
    sred:real;
begin
   Randomize;
   For i:=1 to 15 do
   begin
      p[i]:=Random(1000);
      Writeln(p[i]);
   end;
   min:=p[1];
   max:=p[1];
   For i:=2 to 15 do
   begin
      If min>p[i] then
         min:=p[i];
      If max<p[i] then
         max:=p[i];
   end;
   sred:=(min+max)/2;
   Writeln('min=',min,'; max=',max,'; sred=',sred);
   count:=0;
   For i:=1 to 15 do
      If p[i]>sred then
      begin
         Write(i,', ');
         count:=count+1;
      end;
   Writeln('Itogo: ',count);
   Readln;
end.
5.
Код:
Program zadacha6;
var d:array[1..4,1..4] of integer;
    i,j,min,max:integer;
begin
   Randomize;
   For j:=1 to 4 do
      For i:=1 to 4 do
      begin
         d[i,j]:=Random(1000);
         If i=4 then
            Writeln(d[i,j]) else
            Write(d[i,j],'  ');
      end;
   max:=0;
   For j:=1 to 4 do
      For i:=j+1 to 4 do
         If max<d[i,j] then
            max:=d[i,j];
   Writeln('max=',max);
   min:=d[4,1];
   For i:=1 to 4 do
      If min>d[4-i+1,i] then
         min:=d[4-i+1,i];
   Writeln('min=',min);
   For i:=1 to 4 do
      For j:=1 to 4 do
         If min=d[i,j] then
            Writeln('(',i,'; ',j,')');
   Readln;
end.
Bedaaaa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нарисуйте, пожалуйста, блок-схемы. Pascal ABC sfuwf Помощь студентам 3 29.11.2013 08:44
Помогите пожалуйста составить блок схемы для 3 задач=) Андрей123321 Паскаль, Turbo Pascal, PascalABC.NET 0 27.11.2013 23:50
Проверьте пожалуйста блок-схемы к задачам.. nersafer Помощь студентам 0 16.12.2009 22:39
Помогите пожалуйста нарисовать блок-схемы к задачкам Анюта141 Паскаль, Turbo Pascal, PascalABC.NET 2 03.06.2009 06:04