• 

  1 слайд

  Задача №1
  Задача №2
  Задача №3
  Задача №4
  Задача №5
  Задача №6
  Задача №7
  Задача №8
  Задача №9
  Задача №10
  
  
  Ответ к задаче №1
  Ответ к задаче №2
  Ответ к задаче №3
  Ответ к задаче №4
  Ответ к задаче №5
  Ответ к задаче №6
  Ответ к задаче №7
  Ответ к задаче №8
  Ответ к задаче №9
  Ответ к задаче №10
  
  
  Решение задач по теме
  «Программирование линейных алгоритмов»
  

• 

  2 слайд

  Задача №1
  
  
  Написать программу нахождения суммы двух чисел. Числа вводятся с клавиатуры.
  

• 

  3 слайд

  Решение задачи №1
  program summa;
  uses CRT;
  var a,b,s: integer;
  begin
  clrscr;
  write('a=');
  read(a);
  write('b=');
  read(b);
  s:=a+b;
  writeln('s=',s)
  end.
  

• 

  4 слайд

  Задача №2
  
  
  Найти периметр треугольника. Длины сторон вводятся с клавиатуры
  

• 

  5 слайд

  Решение задачи №2
  program perimetr;
  uses CRT;
  var a,b,c,P: integer;
  begin
  clrscr;
  write('a=');
  read(a);
  write('b=');
  read(b);
  write('c=');
  read(c);
  P:=a+b+c;
  writeln('P=',P)
  end.
  
  

• 

  6 слайд

  Задача №3
  
  
  Написать программу нахождения периметра и площади прямоугольника. Стороны прямоугольника вводятся с клавиатуры.
  

• 

  7 слайд

  Решение задачи №3
  program pryam;
  uses CRT;
  var a,b,S,P: integer;
  begin
  clrscr;
  write('a=');
  read(a);
  write('b=');
  read(b);
  P:=(a+b)*2;
  S:=a*b;
  writeln('P=',P);
  writeln('S=',S)
  end.
  

• 

  8 слайд

  Задача №4
  
  
  Написать программу нахождения периметра и площади. Сторона квадрата вводится с клавиатуры.
  

• 

  9 слайд

  Решение задачи №4
  program kvadrat;
  uses CRT;
  var a,S,P: integer;
  begin
  clrscr;
  write('a=');
  read(a);
  P:=4*a;
  S:=sqr(a);
  writeln('P=',P);
  writeln('S=',S)
  end.
  

• 

  10 слайд

  Задача №5
  
  
  Написать программу нахождения площади прямоугольного треугольника. Длины катетов вводятся с клавиатуры.
  

• 

  11 слайд

  Решение задачи №5
  program treug;
  uses CRT;
  var a,b,S,P: real;
  begin
  clrscr;
  write('a=');
  read(a);
  write('b=');
  read(b);
  S:=0.5*a*b;
  writeln('S=',S:2:2)
  end.
  

• 

  12 слайд

  Задача №6
  
  
  Написать программу нахождения значения выражения
  

• 

  13 слайд

  Решение задачи №6
  program prog;
  uses CRT;
  var a,x,y: real;
  begin
  clrscr;
  write('a=');
  read(a);
  write('x=');
  read(x);
  y:=(sqr(x)-sqrt(x*a))/abs(a);
  writeln('y=',y:2:2)
  end.
  

• 

  14 слайд

  Задача №7
  
  
  Написать программу нахождения площади треугольника со сторонами по формуле Герона.
  

• 

  15 слайд

  Решение задачи №7
  program treug;
  uses CRT;
  var a,b,c,p,s: real;
  begin
  clrscr;
  read(a,b,c);
  p:=0.5*(a+b+c);
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('s=',s:2:2)
  end.
  

• 

  16 слайд

  Задача №8
  
  
  Написать программу нахождения суммы цифр двухзначного числа. Число водится с клавиатуры.
  

• 

  17 слайд

  Решение задачи №8
  program summa;
  uses CRT;
  var X,a,b,S: integer;
  begin
  clrscr;
  write('x=');
  read(x);
  a:=x div 10;
  b:=x mod 10;
  S:=a+b;
  write('S=',S)
  end.
  

• 

  18 слайд

  Задача №9
  
  
  Написать программу нахождения суммы цифр двухзначного числа. Число водится с клавиатуры.
  

• 

  19 слайд

  Решение задачи №9
  program summa;
  uses CRT;
  var x,s: integer;
  begin
  clrscr;
  read(x);
  s:=(x mod 10)+(x div 100)+(x mod 10 mod 10);
  write('s=',s)
  end.
  

• 

  20 слайд

  Задача №10
  
  С клавиатуры вводятся скорости двух автомобилей. Какое расстояние будет между ними через 3 часа, если автомобили выехали из одного пункта в одном направлении. Напишите программу.
  

• 

  21 слайд

  Решение задачи №10
  program avto;
  uses CRT;
  var v1,v2,s1,s2,s: integer;
  begin
  clrscr;
  read(v1,v2);
  s1:=3*v1;
  s2:=3*v2;
  s:=abs(s1-s2);
  write('s=',s)
  end.
  

Краткое описание материала