Forum of Computer Science Faculty of Baku State University

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » Forum of Computer Science Faculty of Baku State University » Programming » Экзамен

Экзамен

Страница:   1 2 3

Сообщений 101 страница 120 из 120

101

  • Автор: ДИЛЯРА
  • Активный участник
  • ДИЛЯРА
  • Откуда: БАКУ
  • Зарегистрирован: 2009-12-06
  • Приглашений: 0
  • Сообщений: 52
  • Уважение: +6
  • Пол: Женский
  • Возраст: 33 [1991-10-16]
  • Провел на форуме:
    13 часов 53 минуты
  • Последний визит:
    2011-05-02 23:05:23

Eto Tvoya Programma.i V Nachale N Vved'on

0

102

  • Автор: Kamran Rzayev
  • Участник
  • Зарегистрирован: 2009-12-02
  • Приглашений: 0
  • Сообщений: 24
  • Уважение: +12
  • Провел на форуме:
    7 часов 21 минуту
  • Последний визит:
    2011-01-09 20:28:39

Ребята если возможно предоставьте решение 94 задачи

0

103

  • Автор: Jahangir Najafov
  • Мироздатель
  • Jahangir Najafov
  • Откуда: Baku, Azerbaijan
  • Зарегистрирован: 2009-12-01
  • Приглашений: 0
  • Сообщений: 233
  • Уважение: +29
  • Пол: Мужской
  • Возраст: 32 [1992-07-21]
  • Провел на форуме:
    2 дня 10 часов
  • Последний визит:
    2011-04-09 17:34:04
Kamran Rzayev написал(а):

решение 94 задачи

Код:
CONST
 NA=11;
 A:array [1..NA] of real=(1,-48,45.89,465,7,5,3,13,-53,77,89.39);

VAR
  i,j,k:byte;
  t:real;

BEGIN
  for i:=1 to NA do
    write(A[i]:2:2,' ');
  writeln;
  k:=1;
  for i:=0 to 2 do
    for j:=1 to NA do
      if (trunc(A[j])=A[j]) and (trunc(A[j]) mod 3=i) then
        begin
          t:=A[k];
          A[k]:=A[j];
          A[j]:=t;
          INC(k);
        end;
  for i:=1 to NA do
    write(A[i]:2:2,' ');
  writeln;
END.

trunc(A[j])=A[j] хочу поменять, так как данная версия "некультурна". Но на Borland Pascal она и так работает.

Отредактировано Jahangir Najafov (2010-01-25 22:19:19)

+1

104

  • Автор: Kamran Rzayev
  • Участник
  • Зарегистрирован: 2009-12-02
  • Приглашений: 0
  • Сообщений: 24
  • Уважение: +12
  • Провел на форуме:
    7 часов 21 минуту
  • Последний визит:
    2011-01-09 20:28:39

спасибо)

0

105

  • Автор: Jahangir Najafov
  • Мироздатель
  • Jahangir Najafov
  • Откуда: Baku, Azerbaijan
  • Зарегистрирован: 2009-12-01
  • Приглашений: 0
  • Сообщений: 233
  • Уважение: +29
  • Пол: Мужской
  • Возраст: 32 [1992-07-21]
  • Провел на форуме:
    2 дня 10 часов
  • Последний визит:
    2011-04-09 17:34:04
Jahangir Najafov написал(а):

94.Даны натуральное число n   и действительные натуральные числа a1, a2,…, an Переместить: элементы массива так, чтобы вначале шли числа, делящиеся на 3,  затем числа, дающие при делении на 3 остаток 1,     затем числа, дающие при делении на 3 остаток 2.

Внимание, в условие экзамеционной задачи внесена корректива.

0

106

  • Автор: Jahangir Najafov
  • Мироздатель
  • Jahangir Najafov
  • Откуда: Baku, Azerbaijan
  • Зарегистрирован: 2009-12-01
  • Приглашений: 0
  • Сообщений: 233
  • Уважение: +29
  • Пол: Мужской
  • Возраст: 32 [1992-07-21]
  • Провел на форуме:
    2 дня 10 часов
  • Последний визит:
    2011-04-09 17:34:04
Jahangir Najafov написал(а):

хочу поменять

Jahangir Najafov написал(а):

в условие экзамеционной задачи внесена корректива.

Тогда решение примет нижеследующий вид :

Код:
CONST
 NA=11;
 A:array [1..NA] of integer=(1,-48,45,465,7,5,3,13,-53,77,89);

VAR
  i,j,k:byte;
  t:integer;

BEGIN
  for i:=1 to NA do
    write(A[i]:2:2,' ');
  writeln;
  k:=1;
  for i:=0 to 2 do
    for j:=1 to NA do
      if (trunc(A[j])=A[j]) and (trunc(A[j]) mod 3=i) then
        begin
          t:=A[k];
          A[k]:=A[j];
          A[j]:=t;
          INC(k);
        end;
  for i:=1 to NA do
    write(A[i]:2:2,' ');
  writeln;
END.

+1

107

  • Автор: Kamran Rzayev
  • Участник
  • Зарегистрирован: 2009-12-02
  • Приглашений: 0
  • Сообщений: 24
  • Уважение: +12
  • Провел на форуме:
    7 часов 21 минуту
  • Последний визит:
    2011-01-09 20:28:39

а вопрос 44 или по пособию задача 6.8?)))
так же нужна теория по 31,32,33,34,35,39,40,44,46,47,48)))

0

108

  • Автор: ruvinbgu
  • Модератор
  • Зарегистрирован: 2009-12-01
  • Приглашений: 0
  • Сообщений: 161
  • Уважение: +26
  • Провел на форуме:
    1 день 2 часа
  • Последний визит:
    2012-02-20 12:51:19
Jahangir Najafov написал(а):

CONST
NA=11;
A:array [1..NA] of integer=(1,-48,45,465,7,5,3,13,-53,77,89);

VAR
  i,j,k:byte;
  t:integer;

BEGIN
  for i:=1 to NA do
    write(A[i]:2:2,' ');
  writeln;
  k:=1;
  for i:=0 to 2 do
    for j:=1 to NA do
      if (trunc(A[j])=A[j]) and (trunc(A[j]) mod 3=i) then
        begin
          t:=A[k];
          A[k]:=A[j];
          A[j]:=t;
          INC(k);
        end;
  for i:=1 to NA do
    write(A[i]:2:2,' ');
  writeln;
END.

Красава Джака,кстати тогда и код 93 можно сильно укоротить :cool:

+1

109

  • Автор: Kamran Rzayev
  • Участник
  • Зарегистрирован: 2009-12-02
  • Приглашений: 0
  • Сообщений: 24
  • Уважение: +12
  • Провел на форуме:
    7 часов 21 минуту
  • Последний визит:
    2011-01-09 20:28:39

44 уже не нада ,а остальные вопросы нужныы)

0

110

  • Автор: Jahangir Najafov
  • Мироздатель
  • Jahangir Najafov
  • Откуда: Baku, Azerbaijan
  • Зарегистрирован: 2009-12-01
  • Приглашений: 0
  • Сообщений: 233
  • Уважение: +29
  • Пол: Мужской
  • Возраст: 32 [1992-07-21]
  • Провел на форуме:
    2 дня 10 часов
  • Последний визит:
    2011-04-09 17:34:04
Jahangir Najafov написал(а):

Код:CONST
NA=11;
A:array [1..NA] of integer=(1,-48,45,465,7,5,3,13,-53,77,89);

VAR
  i,j,k:byte;
  t:integer;

BEGIN
  for i:=1 to NA do
    write(A[i]:2:2,' ');
  writeln;
  k:=1;
  for i:=0 to 2 do
    for j:=1 to NA do
      if (trunc(A[j])=A[j]) and (trunc(A[j]) mod 3=i) then
        begin
          t:=A[k];
          A[k]:=A[j];
          A[j]:=t;
          INC(k);
        end;
  for i:=1 to NA do
    write(A[i]:2:2,' ');
  writeln;
END.

Извините, я не все ошибки оттуда стёр.  :tomato:  Вот, конечная версия.

Код:
 
CONST 
 NA=11;
 A:array [1..NA] of integer=(1,-48,45,465,7,5,3,13,-53,77,89);

VAR
  i,j,k:byte;
  t:integer;

BEGIN
  for i:=1 to NA do
    write(A[i]:2:2,' ');
  writeln;
  k:=1;
  for i:=0 to 2 do
    for j:=1 to NA do
      if A[j] mod 3=i then
        begin
          t:=A[k];
          A[k]:=A[j];
          A[j]:=t;
          INC(k);
        end;
  for i:=1 to NA do
    write(A[i]:2:2,' ');
  writeln;
END.

0

111

  • Автор: Jahangir Najafov
  • Мироздатель
  • Jahangir Najafov
  • Откуда: Baku, Azerbaijan
  • Зарегистрирован: 2009-12-01
  • Приглашений: 0
  • Сообщений: 233
  • Уважение: +29
  • Пол: Мужской
  • Возраст: 32 [1992-07-21]
  • Провел на форуме:
    2 дня 10 часов
  • Последний визит:
    2011-04-09 17:34:04

Тут несостыковочка вышла с заданием 76/110.  У меня с РУвином не тольео решение, но и ответ не сходятся.
СУть программы в чём? Если даны чмсла, допустим : 1,2,7,1,48,7,19,2,89,19,89,7,3. Результат должен быть : 1,2,7,48,19,89,3 ?

Мой код :

Код:
CONST
  NA=10;
  A:array [1..NA] of integer=(1,7,1,8,9,6,7,1,8,9);

VAR
  i,j:integer;

BEGIN
  write(A[1],' ');
  for i:=2 to NA-1 do
    if A[i]<>A[1] then
      begin
        write(A[i],' ');
        for j:=i+1 to NA do
          if A[j]=A[i] then
            A[j]:=A[1];
      end;
END.

0

112

  • Автор: Jahangir Najafov
  • Мироздатель
  • Jahangir Najafov
  • Откуда: Baku, Azerbaijan
  • Зарегистрирован: 2009-12-01
  • Приглашений: 0
  • Сообщений: 233
  • Уважение: +29
  • Пол: Мужской
  • Возраст: 32 [1992-07-21]
  • Провел на форуме:
    2 дня 10 часов
  • Последний визит:
    2011-04-09 17:34:04

Опять разница, но тут уже не столь значимая.

№ 77/11

CONST
  NA=10;
  A:array [1..NA] of integer=(1,8,9,1,9,7,4,2,4,13);

VAR
  i,j,q,gq:integer;

BEGIN
  gq:=0;
  i:=1;
  repeat
    INC(i);
  until (i=NA) or (A[i]=A[1]);
  if (i<>NA) or (A[NA]=A[1]) then INC(gq);
  for i:=2 to NA-1 do
    if A[i]<>A[NA] then
      begin
        q:=0;
        for j:=i+1 to NA do
          if A[j]=A[i] then
            INC(q);
        if q>0 then INC(gq);
      end;
  writeln(gq);
END.

Рувин, твоя версия, по-моему, чуть мeнeе рациональна, но проявится это значимо лишь при очень большом количестве рассматриваемых чисел.

0

113

  • Автор: VaFLiK)
  • Активный участник
  • Зарегистрирован: 2009-12-02
  • Приглашений: 0
  • Сообщений: 67
  • Уважение: +6
  • Провел на форуме:
    12 часов 45 минут
  • Последний визит:
    2011-01-17 12:58:44

ребята номера 41 42 43 44 как делать?

0

114

  • Автор: Jahangir Najafov
  • Мироздатель
  • Jahangir Najafov
  • Откуда: Baku, Azerbaijan
  • Зарегистрирован: 2009-12-01
  • Приглашений: 0
  • Сообщений: 233
  • Уважение: +29
  • Пол: Мужской
  • Возраст: 32 [1992-07-21]
  • Провел на форуме:
    2 дня 10 часов
  • Последний визит:
    2011-04-09 17:34:04
VaFLiK) написал(а):

ребята номера 41 42 43 44 как делать?

41. Пособие Pascal1 . Глава 8.2.3
42. Пособие Pascal1 . Глава 8.2.2

0

115

  • Автор: VaFLiK)
  • Активный участник
  • Зарегистрирован: 2009-12-02
  • Приглашений: 0
  • Сообщений: 67
  • Уважение: +6
  • Провел на форуме:
    12 часов 45 минут
  • Последний визит:
    2011-01-17 12:58:44

31 32 33,,,, как?? хелп

0

116

  • Автор: VaFLiK)
  • Активный участник
  • Зарегистрирован: 2009-12-02
  • Приглашений: 0
  • Сообщений: 67
  • Уважение: +6
  • Провел на форуме:
    12 часов 45 минут
  • Последний визит:
    2011-01-17 12:58:44

и еще 43 44 нок и нод как делать

0

117

  • Автор: prosto tofik
  • Участник
  • Зарегистрирован: 2009-12-04
  • Приглашений: 0
  • Сообщений: 29
  • Уважение: +6
  • Провел на форуме:
    12 часов 28 минут
  • Последний визит:
    2010-07-23 15:06:22
VaFLiK) написал(а):

31 32 33,,,, как?? хелп

31. posobie: glava 13
32. posobie: glava 14
33. posobie: primer 14.4

0

118

  • Автор: prosto tofik
  • Участник
  • Зарегистрирован: 2009-12-04
  • Приглашений: 0
  • Сообщений: 29
  • Уважение: +6
  • Провел на форуме:
    12 часов 28 минут
  • Последний визит:
    2010-07-23 15:06:22
VaFLiK) написал(а):

и еще 43 44 нок и нод как делать

primer 6.4, opat posobie

0

119

  • Автор: Jahangir Najafov
  • Мироздатель
  • Jahangir Najafov
  • Откуда: Baku, Azerbaijan
  • Зарегистрирован: 2009-12-01
  • Приглашений: 0
  • Сообщений: 233
  • Уважение: +29
  • Пол: Мужской
  • Возраст: 32 [1992-07-21]
  • Провел на форуме:
    2 дня 10 часов
  • Последний визит:
    2011-04-09 17:34:04

Вот, и мой пакет, eсли кому понадобится.
http://depositfiles.com/files/rmcfm3gfu

0

120

  • Автор: Channing Tatum
  • Модератор
  • Откуда: Какое-то помещение
  • Зарегистрирован: 2009-12-26
  • Приглашений: 0
  • Сообщений: 181
  • Уважение: +18
  • Пол: Мужской
  • Возраст: 33 [1991-11-23]
  • Провел на форуме:
    15 часов 12 минут
  • Последний визит:
    2011-04-27 20:28:07

сколько всего произошло,пока меня не было,обидно же!!!я так хотел участвовать в обсуждениях... :'(

0

Страница:   1 2 3

Вы здесь » Forum of Computer Science Faculty of Baku State University » Programming » Экзамен