Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.06.2007, 23:16   #11
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

-=9=-
const
A=10;
B=11;
C=8;
var
FA:array[1..A]of string;
FB:array[1..B]of string;
FC:array[1..C]of string;
i:integer;
ind:boolean;

begin
{ищем ньютона}
ind:=false;
i:=1;
while i<= A do
begin
if FA[i]='Ньютон' then
begin
ind:=true;{показываем, что нашли}
writeln('Ньютон на позиции №',i);
end;
i:=inc(i);
end;
if ind=false then writeln('Ньютон в списке нет!!!');
{ищем Винера}
ind:=false;
i:=1;
while i<= B do
begin
if FB[i]='Винер' then
begin
ind:=true;
writeln('Винер на позиции №',i);
end;
i:=inc(i);
end;
if ind=false then writeln('Винера в списке нет!!!');

{ищем Бора}
ind:=false;
i:=1;
while i<= C do
begin
if FC[i]='Бор' then
begin
ind:=true;
writeln('Бор на позиции №',i);
end;
i:=inc(i);
end;
if ind=false then writeln('Бора в списке нет!!!');
end.
Alex21 вне форума
Старый 14.06.2007, 23:24   #12
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

-=5=-
var
x,i:integer;
y:extended;
{отдельно посчитаем факториал}
procedure Fact(f:integer):longint;
begin
fact:=1;
for i:=1 to f do
fact:=fact*i;
end;
begin
writeln('X = ');
ReadLN(X);
y:=0;
for i:=1 to 10 do
begin
y:=Fact(i)*(x^i/i)+y;
end;
Writeln('Y = ',y);
end.
Alex21 вне форума
Старый 15.06.2007, 14:45   #13
rant
 
Регистрация: 14.06.2007
Сообщений: 7
По умолчанию

Alex, еще раз большое спасибо!

может и с остальными поможешь? а то чем дальше, тем сложней

Последний раз редактировалось rant; 15.06.2007 в 14:50.
rant вне форума
Старый 15.06.2007, 18:22   #14
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

-=7=-
Код:
const
    N=8;
var
  zEX:array[1..N] of string;{шифры цехов}
    K:array[1..N] of integer;{кол-во рабочих в цехе}
    F:array[1..N] of extended;{фонд ЗП в каждом цехе}
    P:array[1..N] of extended;{премиальный фонд}
  i:integer;
  ZR,PR:extended;
begin
WriteLn('Введите ZR : ');
ReadLn(ZR);                      {Вводим ZR}
WriteLn('Введите PR : ');
ReadLn(PR);                      {Вводим PR}
for i:=1 to N do
  begin
    if ((F[i]/K[i])<ZR)and((P[i]/K[i])<PR) then 
     
     {здесь не совсем понятно: премиальный фонд Р[i] - 
      задан на всех рабочих цеха, или на одного???
      Если для одного, то второе условие поменять на
      and(P[i]<PR) }
      WriteLn('Соответствует условию цех : ',zEX[i]);
  end;
end.
Alex21 вне форума
Старый 15.06.2007, 18:38   #15
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

-=8=-
Код:
const
   N=5;
var
a:array[1..N,1..N]of integer;
i,j:integer;
sum:Longint;
Procedure Create_Matr;{создаем случайную матрицу}
begin
Randomize();
for i:=1 to N do
  begin
    for j:= 1 to N do
      begin
  a[i,j]:=Random(100);
      end;
  end;
end;
function SrAri(stolb:byte):extended;{функция ср.арифм}
begin
Sum:=0;
 for i:=1 to N do   
    Sum:=Sum+a[stolb,i];
 SrAri:=Sum/N;
end;
begin
Create_Matr;
for i:=1 to N do
   begin
    if SrAri(i)>a[N,N] then {проверяем условие}
       begin
   Write(i+(a[1,1]*a[N,N]),' '); {если да, то выводим}
       end;
   end;
end.
Alex21 вне форума
Старый 15.06.2007, 18:50   #16
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

-=10=- -=11=- -=12=- Слишком уж утомительно, ищите готовые примеры.

-=11=- - типизированные файлы
-=12=- - работа с графикой, геометрия движения.

P.S.: Поиск по форуму
Alex21 вне форума
Старый 15.06.2007, 20:38   #17
rant
 
Регистрация: 14.06.2007
Сообщений: 7
По умолчанию

Alex, нет слов, спасибо )) выручил это мягко сказанно )

буду остальные искать. Хотя чего-то поиск не работал последний раз у меня... надо еще раз попробывать
rant вне форума
Старый 19.04.2010, 21:11   #18
Z1daN
 
Регистрация: 19.04.2010
Сообщений: 8
Лампочка задача

народ, помогите кто-нибудь с задачей.
Дан массив D(n). Удалите из массива все элементы, равные миниальному. Выведите на экран исходный и полученный массивы.
очень срочно. не успеваю (так как +2 задачи есть ещё)
Z1daN вне форума
Старый 19.04.2010, 21:44   #19
[CODER]
Форумчанин
 
Аватар для [CODER]
 
Регистрация: 02.02.2010
Сообщений: 305
По умолчанию

min = a[1];
for i := 2 to n do
if a[i]<min then
min := a[i];
j:=1;
for i := 1 to n do
if a[i] > min then begin
b[j] := a[i];
inc(j);
end;
for i := 1 to n do
writeln(a[i]);
for i := 1 to j do
writeln(b[i]);
Skype: CODERua
[CODER] вне форума
Старый 19.04.2010, 21:54   #20
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

Код:
Program mas;
uses crt;
var
d:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Введите количество элементов n=');
read(n);
randomize;
writeln('Исходный массив: ');
for i:=1 to n do
 begin
  d[i]:=random(10);
write(d[i],'  ');
end;
writeln;
min:=d[1];
for i:=1 to n do
if d[i]<min then min:=d[i];
writeln('min=',min);
writeln;
writeln('Результирующий массив: ');
for i:=1 to n do
if (d[i]<>min) then write(d[i],'  ');
readkey;
end.
Ну или так.Практически тоже самое.
にんじゃ
ROMA2PVT вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Две задачи на массивы. Nadi Помощь студентам 4 25.04.2011 16:58
Помогите переделать 2 задачи под динамические массивы (Паскаль) mpegable Помощь студентам 2 27.05.2008 17:32
Паскаль. Задачи на массивы pr1mat Паскаль, Turbo Pascal, PascalABC.NET 6 26.05.2008 15:04
Задачи на массивы и указатели в СИ D@rk_Spirit Общие вопросы C/C++ 3 29.12.2007 08:01