1 курс информатики

[Jo Alves]

Помогите пожалст с написанием программ и созданию блок-схем

1) Определить, принадлежит ли точка с координатами (x; y) фигуре, представленной на рис.7



2)Даны две точки А(x1,y1) и В(x2,y2). Составить алгоритм, определяющий, которая из точек находится ближе к началу координат.


3)Дано натуральное число N и вещественное число x . Вычислить


4)Вычислить сумму ряда. Вычисления заканчивать при достижении заданной степени точности (т.е. очередной член ряда становится меньше введенной точности, либо разность между двумя соседними членами ряда становится меньше введенного значения точности ).




5) Даны целые числа A 1, A 2, …, A N . Получить число отрицательных и число нулевых членов данной последовательности.

6) Дана действительная квадратная матрица. Найти среднее арифметическое наибольшего и наименьшего значений её элементов.


7)Дана строка символов. Если в строке нет символа +, то оставить ее без изменения, иначе каждую из цифр, стоящую перед первым символом +, заменить символом *.


8)Дана строка символов: Поменять местами самое длинное и самое короткое слова строки.


9). Написать две программы. Первая формирует файл записей следующей структуры: название дисциплины, количество часов, отводимое на изучение дисциплины, фамилия преподавателя, кафедра, есть или нет экзамен по этому предмету. Вторая программа просматривает файл и определяет:
1 преподавателя, который принимает больше всего экзаменов;
2 кафедру, на которой читается больше всего предметов;
3 список преподавателей указанной кафедры.

[Horknee]

3.

var
   i:integer;
   sum1, sum2, sum: real;
   N:integer;
   x:real;
begin
 writeln('vvedite naturalnoe N=');
 readln(N);
 writeln('vvedite veshectvennoe x=');
 readln(x);
 sum1:=1;
 sum2:=1;
 sum:=1;
 for i:=1 to N do begin
  sum1:=sum1*(x-exp(i*ln(2)));
  sum2:=sum2*(x-exp(i*ln(2))+1);
                  end;
  round(sum1); round(sum2);
  if sum2=0 then begin writeln('delenie na 0'); readln; end
  else begin
  sum:=sum1/sum2;
  writeln(sum); readln;
       end;
end.

[Horknee]

5.

var
   i, n, schet:integer;
   a: array[1..100] of integer;
begin
   writeln('vvedite n');
   readln(n);
   for i:=1 to n do begin
    write('A[',i,']=');
    readln(a[i]);
   end;
   schet:=0;
   for i:=1 to n do begin
    if a[i]<=0 then schet:=schet+1;
                    end;
   writeln('chislo otr. i nylevix=', schet); readln;
end.

[Tkirill]

uses crt;
var
x,y:integer;
begin
clrscr;
write(' Введите координаты точки ');
readln(x,y);
writeln;
if (x*x+y*y<=1) and (y>=0) then write(' Точка с данными координатами принадлежит фигуре ');
readln;
end.

[Tkirill]

uses crt;
var
mas:array[1..5,1..5] of integer;
i,j,max,min:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
mas[i,j]:=random(20);
end;
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
write(mas[i,j],' ');
end;
writeln;
end;
max:=mas[1,1];
min:=mas[1,1];
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if mas[i,j]>max then max:=mas[i,j];
if mas[i,j]<min then min:=mas[i,j];
end;
end;
writeln;
writeln(' Среднее арифметическое max и min -> ',(max+min)/2:4:4);
readln;
end.

[Tkirill]

uses crt;
var
s:string;
i,n:integer;
begin
clrscr;
write(' Введите строку -> ');
readln(s);
writeln;
if pos('+',s)<>0 then
begin
for i:=1 to pos('+',s)-1 do
if s[i] in ['0'..'9'] then s[i]:='*';
writeln(s);
end
else writeln(s);
readln;
end.

[Tkirill]

uses crt;
var
mas:array[1..200] of string;
s,st,slovo:string;
i,j,max,min,m,n,k:integer;
begin
clrscr;
write(' -> ');
readln(s);
writeln;
for i:=1 to 200 do
mas[i]:='';
i:=1;
k:=1;
s:=s+' ';
st:='';
repeat
if s[i]<>' ' then st:=st+s[i]
else begin
mas[k]:=st;
k:=k+1;
st:='';
end;
i:=i+1;
until i>length(s);
min:=1;
max:=1;
for i:=2 to k-1 do
begin
if length(mas[i])>length(mas[max]) then max:=i;
if length(mas[i])<length(mas[min]) then min:=i;
end;
st:=mas[max];
mas[max]:=mas[min];
mas[min]:=st;
st:=mas[1]+' ';
for i:=2 to k-1 do
st:=st+mas[i]+' ';
writeln(st);
readln;
end.