Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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


Ответ
 
Опции темы
Старый 27.12.2008, 15:39   #1
Jo Alves
Новичок
Джуниор
 
Регистрация: 27.12.2008
Сообщений: 1
По умолчанию 1 курс информатики

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

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 список преподавателей указанной кафедры.
Jo Alves вне форума Ответить с цитированием
Старый 27.12.2008, 16:32   #2
Horknee
Пользователь
 
Регистрация: 21.09.2008
Сообщений: 70
По умолчанию

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 вне форума Ответить с цитированием
Старый 27.12.2008, 16:42   #3
Horknee
Пользователь
 
Регистрация: 21.09.2008
Сообщений: 70
По умолчанию

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.
Horknee вне форума Ответить с цитированием
Старый 28.12.2008, 12:06   #4
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Сообщений: 104
По умолчанию 1)

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 вне форума Ответить с цитированием
Старый 28.12.2008, 12:14   #5
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Сообщений: 104
По умолчанию 6)

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 вне форума Ответить с цитированием
Старый 28.12.2008, 12:18   #6
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Сообщений: 104
По умолчанию 7)

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 вне форума Ответить с цитированием
Старый 28.12.2008, 12:39   #7
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Сообщений: 104
По умолчанию 8)

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.
Tkirill вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи и курс. на СИ Marselle Фриланс 10 30.06.2008 14:05
2 задачи 1 курс Fraddy Помощь студентам 1 27.12.2007 17:44
Какой компьютерный курс выбрат??? Cantana Свободное общение 2 11.12.2007 07:50
Скачать курс валют nemaster21 Общие вопросы Delphi 1 21.11.2007 17:41


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840