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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 27.12.2008, 16:39   #1
Jo Alves
Новичок
 
Регистрация: 27.12.2008
Сообщений: 1
Репутация: 10
По умолчанию 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, 17:32   #2
Horknee
Форумчанин
 
Регистрация: 21.09.2008
Сообщений: 70
Репутация: 20
По умолчанию

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, 17:42   #3
Horknee
Форумчанин
 
Регистрация: 21.09.2008
Сообщений: 70
Репутация: 20
По умолчанию

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, 13:06   #4
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Адрес: Москва
Сообщений: 104
Репутация: 69

icq: 460547998
По умолчанию 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, 13:14   #5
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Адрес: Москва
Сообщений: 104
Репутация: 69

icq: 460547998
По умолчанию 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, 13:18   #6
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Адрес: Москва
Сообщений: 104
Репутация: 69

icq: 460547998
По умолчанию 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, 13:39   #7
Tkirill
Форумчанин
 
Аватар для Tkirill
 
Регистрация: 22.12.2008
Адрес: Москва
Сообщений: 104
Репутация: 69

icq: 460547998
По умолчанию 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 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


15:05.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.