Составление алгоритма и написание программы

Задание 1

Разработайте  алгоритм и напишите программу вычисления стоимости покупки некоторого количества яблок

Решение

Текст программы 

program pr1;

uses crt;

var

kol,price,sum:real;

begin

clrscr;

write('Enter apple price:');

readln(price);

write('Enter apple count:');

readln(kol);

sum:=price*kol;

writeln('Summa=',sum:2:2);

readkey;

end. 

Блок-схема

Результат выполнения 

 
 
 

Задание 2

Разработайте  алгоритм и напишите программу, которая  устанавливает, принадлежит ли точка  кругу с центром в начале координат единичного радиуса

Решение

Текст программы 

program pr2;

uses crt;

var

x,y:real;

begin

clrscr;

write('Enter x:');

readln(x);

write('Enter y:');

readln(y);

if (sqr(x)+sqr(y)<=1) then writeln('In circle')

else writeln('Out circle');

readkey;

end. 

Блок-схема

Результат выполнения 

 
 
 

Задание 3

Разработайте  алгоритм и напишите программу, которая  вычисляет и выводит на экран  таблицу значений функции  для с шагом

Решение

Текст программы 

program pr3;

uses crt;

var

x,y,a,b,h:real;

i,n:integer;

begin

clrscr;

a:=0.01;b:=1.01;

h:=0.1;

n:=round((b-a)/h);

writeln('  x         y ');

for i:=0 to n do

begin

x:=a+i*h;

y:=(x-1)*ln(x)-1;

writeln(x:1:1,'       ',y:2:3);

end;

readkey;

end. 
 
 
 
 
 
 

Блок-схема

Результат выполнения 

 
 

Задание 4

Разработайте  алгоритм и напишите программу, которая  в заданном одномерном массиве целых  чисел  все четные элементы уменьшает 2 раза, остальные оставляет без изменений

Решение

Текст программы 

program pr4;

uses crt;

var

A:array[1..100] of integer;

i,n:integer;

begin

clrscr;

write('Enter n=');

readln(n);

for i:=1 to n do

begin

write('A[',i,']=');

readln(a[i]);

end;

for i:=1 to n do

begin

if (A[i] mod 2 =0) then A[i]:=round(A[i]/2);

end;

writeln('--------------------------');

for i:=1 to n do writeln('A[',i,']=',a[i]);

readkey;

end. 
 

Блок-схема

 

Результат выполнения 

 
 

Задание 5

Разработайте  алгоритм и напишите программу, которая в заданном двумерном массиве целых чисел вычисляет среднее арифметическое отрицательных элементов, стоящих ниже главной диагонали

Решение

Текст программы 

program pr5;

uses crt;

var

A:array[1..100,1..100] of integer;

sum,kol,i,j,n:integer;

begin

clrscr;

write('Enter n=');

readln(n);

for i:=1 to n do

for j:=1 to n do

begin

write('A[',i,',',j,']=');

readln(a[i,j]);

end;

sum:=0;kol:=0;

for i:=1 to n do

for j:=1 to i-1 do

begin

if (a[i,j]<0) then

begin

sum:=sum+a[i,j];

kol:=kol+1;

end;

end;

if (kol=0) then write ('Not negative elements')

else write('Result=',sum/kol:2:3);

readkey;

end. 
 

Блок-схема

Результат выполнения