Старый 06.01.2007, 01:43   #1
Завсегдатай
 
Аватар для Gek
 
Регистрация: 18.11.2005
Сообщений: 237
Галерея: 0
Р: Gek на пути к лучшему
Нужна помощь в паскале.

!!! Привет всеМ !!!

Моя проблема заключается в следующем
я ламер в паскале так уж довелось что нас в школе ничему не научили...
теперьже кода я в универе с меня требуют.....

Наш препод берет все задачи с http://borlpasc.narod.ru
http://borlpasc.narod.ru/docym/metpas/kr1.htm
http://borlpasc.narod.ru/docym/metpas/kr2.htm
http://borlpasc.narod.ru/docym/metpas/kr3.htm
.................................................. .........................
(мой вариант 14)
Итого их семь

две из них я с горем пополам решил.

КТО НИТЬ ЗНАЕТ ГДЕ ЕСТЬ РЕШЕНИЯ НА ЭТИ ЗАДАЧИ???
Gek вне форума  
Старый 06.01.2007, 02:13   #2
Местный житель
 
Аватар для xaIRu[s]
 
Регистрация: 13.06.2006
Адрес: Ейск
Возраст: 34
Сообщений: 1,906
Галерея: 3
Р: xaIRu[s] на пути к лучшему
Нужна помощь в паскале.

14 решал сам, проверте

Код:
Program z14;
var x,a,b:integer
begib
Writeln ('Введите первое число');
readl(a);
Writeln ('Введите второе число');
readln(b);
IF a>b then
           x:=(a/b)+1;
writeln ('Введеные значения совпадают условию a>b');
writeln ('Ответ равен',x);

IF a=b then
           x:=-2;
writeln ('Введеные значения совпадают условию a=b');
writeln ('Ответ равен',x);

IF a<b then
          x&#58;=&#40;a-b&#41;/a;
writeln &#40;'Введеные значения совпадают условию a<b'&#41;;
writeln &#40;'Ответ равен',x&#41;;
readln;
end.
ЗЫ Надо проверять, хз но по такому принципу работать будет
xaIRu[s] вне форума  
Старый 06.01.2007, 02:14   #3
Guest
 
Сообщений: n/a
Галерея:
Нужна помощь в паскале.

Хаирус ботанег
 
Старый 06.01.2007, 02:18   #4
Завсегдатай
 
Аватар для Gek
 
Регистрация: 18.11.2005
Сообщений: 237
Галерея: 0
Р: Gek на пути к лучшему
Нужна помощь в паскале.

Первую и вторую я решил!

Код:
program lab2var14;
uses CRT;
Label L1;
var a,d,X&#58;real;
begin
ClrScr;
writeln&#40;'     |a/d+1,  Esli a>d'&#41;;
writeln&#40;'   X=|-2,     Esli a=d'&#41;;
writeln&#40;'     |&#40;a-d&#41;/a Esli a<d'&#41;;
L1&#58;
writeln&#40;'Vvedite a'&#41;;
readln&#40;a&#41;;
writeln&#40;'Vvedite d'&#41;;
readln&#40;d&#41;;
if &#40;a<>round&#40;a&#41;&#41; or &#40;d<>round&#40;d&#41;&#41; then
 begin
 writeln&#40;'a ili b ne tseloe'&#41;;
 goto L1;
 end
else;
if a>d then
begin
if d=0 then
  begin
  writeln&#40;'Znamenatel =0'&#41;;
  goto L1;
  end
  else X&#58;=a/d+1;
 end
 else;
if a=d then X&#58;=-2 else;
if a<d then
begin
if a=0 then
  begin
  writeln&#40;'Znamenatel =0'&#41;;
  goto L1;
  end
  else X&#58;=&#40;a-d&#41;/a;
  end;
writeln&#40;'Pri a= ',a,' i ',' d= ',d,' znachenie funkcii ',X&#58;8&#58;3&#41;;
readln;
end.
Вложения
Тип файла: doc LABARATORKA_2.doc (106.5 Кб, 30 просмотров)
Gek вне форума  
Старый 06.01.2007, 02:26   #5
Местный житель
 
Аватар для xaIRu[s]
 
Регистрация: 13.06.2006
Адрес: Ейск
Возраст: 34
Сообщений: 1,906
Галерея: 3
Р: xaIRu[s] на пути к лучшему
Нужна помощь в паскале.

Видать я смысл не понял ))
xaIRu[s] вне форума  
Старый 06.01.2007, 05:22   #6
Поселенец
 
Аватар для xELos
 
Регистрация: 23.02.2006
Адрес: from infinity
Возраст: 35
Сообщений: 474
Галерея: 0
Р: xELos на пути к лучшему
Нужна помощь в паскале.

Я в свое время занял 2-ое место по городу в олемпиаде ... ))
xELos вне форума  
Старый 06.01.2007, 05:29   #7
Automation Engineer
 
Аватар для yage
 
Регистрация: 24.10.2003
Адрес: Solar System
Возраст: 41
Сообщений: 2,488
Галерея: 0
Р: yage на пути к лучшему
Re: Нужна помощь в паскале.

Цитата:
Сообщение от Gek
Первую и вторую я решил!
Третья задача, 14-ый вариант

Код:
program lab3v14;

uses Crt;

const
  n = 20;

var
  A&#58; array&#91;1..n&#93; of Integer;

procedure FillArray;
var
  i&#58; Integer;
begin
  WriteLn&#40;'Reference array&#58;'&#41;;
  Randomize;
  for i&#58;= 1 to n do
    begin
      A&#91;i&#93;&#58;= 32767 - Random&#40;65535&#41;;
      WriteLn&#40;A&#91;i&#93;&#41;;
    end;
end;

procedure GetSum&#40;Mas&#58; array of Integer&#41;;
var
  Res&#58; Real;
  i&#58; Integer;
begin
  Res&#58;= 0;
  WriteLn&#40;'Negative elements&#58;'&#41;;
  for i&#58;= 0 to n-1 do
    if Mas&#91;i&#93;< 0 then
      begin
        WriteLn&#40;Mas&#91;i&#93;&#41;;
        Res&#58;= Res + &#40;&#40;-1&#41;*Exp&#40;3*Ln&#40;Abs&#40;Mas&#91;i&#93;&#41;&#41;&#41;&#41;;
      end;
  WriteLn&#40;'Result&#58;'&#41;;
  WriteLn&#40;Res&#41;
end;

begin
  ClrScr;
  FillArray;
  GetSum&#40;A&#41;;
  WriteLn&#40;'Press "enter" to exit...'&#41;;
  ReadLn
end.
__________________
When you dream... there are no rules. People can fly, anything can happen...
yage вне форума  
Старый 06.01.2007, 15:23   #8
Старожил
 
Аватар для Capri
 
Регистрация: 03.05.2005
Сообщений: 9,221
Галерея: 0
Записей в дневнике: 1
Р: Capri репутация неоспорима Capri репутация неоспорима Capri репутация неоспорима Capri репутация неоспорима Capri репутация неоспорима Capri репутация неоспорима Capri репутация неоспорима Capri репутация неоспорима Capri репутация неоспорима Capri репутация неоспорима Capri репутация неоспорима
Re: Нужна помощь в паскале.

Цитата:
Сообщение от xELos
Я в свое время занял 2-ое место по городу в олемпиаде ... ))
Явно не по русского езыгу.
__________________
И среди моиx друзей людей приличныx нет
И еще плюс ко всему я как мудак одет.
Capri вне форума  
Старый 07.01.2007, 02:24   #9
Завсегдатай
 
Аватар для Gek
 
Регистрация: 18.11.2005
Сообщений: 237
Галерея: 0
Р: Gek на пути к лучшему
Нужна помощь в паскале.

В задаче:
Исходные данные задать самостоятельно, учитывая формат элементов массива A.

Код:
Program lab3var14;
uses CRT;
var i,n&#58;integer;
    s&#58;real;
 A&#58;array &#91;1..20&#93; of integer;
begin
  write&#40;'Vvedite razmer massiva '&#41;;
  readln &#40;n&#41;;
   for i&#58;=1 to n do
    begin
     write&#40;'a&#91;',i,'&#93;='&#41;;
     readln&#40;a&#91;i&#93;&#41;;
    end;
 ..........................
             .............................
end.
вроде так незнаю чё делать.......
Gek вне форума  
Старый 07.01.2007, 03:23   #10
Automation Engineer
 
Аватар для yage
 
Регистрация: 24.10.2003
Адрес: Solar System
Возраст: 41
Сообщений: 2,488
Галерея: 0
Р: yage на пути к лучшему
Re: Нужна помощь в паскале.

Цитата:
Сообщение от Gek
В задаче:
Исходные данные задать самостоятельно, учитывая формат элементов массива A.

Код:
Program lab3var14;
uses CRT;
var i,n&#58;integer;
    s&#58;real;
 A&#58;array &#91;1..20&#93; of integer;
begin
  write&#40;'Vvedite razmer massiva '&#41;;
  readln &#40;n&#41;;
   for i&#58;=1 to n do
    begin
     write&#40;'a&#91;',i,'&#93;='&#41;;
     readln&#40;a&#91;i&#93;&#41;;
    end;
 ..........................
             .............................
end.
вроде так незнаю чё делать.......
Ну если тебя не устраивает заполнение случайными числами типа Integer, то можно воспользоваться такой процедурой (считаю, что массив задан глобальной переменной A: array[1..20] of Integer):

Код:
procedure FillArrayManually;
var
  n&#58; Integer;
  i&#58; Integer;
  tmp&#58; Longint;
  flag&#58; Boolean;
begin
  flag&#58;= True;
  while flag do begin
    Write&#40;'Enter array length from 1 to 20&#58; '&#41;;
    ReadLn&#40;n&#41;;
    if &#40;n<1&#41; or &#40;n>20&#41; then WriteLn&#40;'Incorrect array length, try again'&#41;
      else flag&#58;= False;
  end;
  for i&#58;= 1 to n do begin
    flag&#58;= True;
    while flag do begin
      Write&#40;'Enter A&#91;', i, '&#93;&#58; '&#41;;
      ReadLn&#40;tmp&#41;;
      if &#40;tmp< -32768&#41; or &#40;tmp> 32767&#41; then WriteLn&#40;'Incorrect number, try again'&#41;
        else
          begin
            A&#91;i&#93;&#58;= tmp;
            flag&#58;= False;
          end;
    end;
  end;
end;
__________________
When you dream... there are no rules. People can fly, anything can happen...
yage вне форума  
Старый 07.01.2007, 04:21   #11
Завсегдатай
 
Аватар для Gek
 
Регистрация: 18.11.2005
Сообщений: 237
Галерея: 0
Р: Gek на пути к лучшему
Нужна помощь в паскале.

Спасибо РАБОТАЕТ!!!
Код:
program lab3v14;
uses Crt;
const
  n = 20;
var
  A&#58; array&#91;1..n&#93; of Integer; 
procedure FillArrayManually;
var
  n&#58; Integer;
  i&#58; Integer;
  tmp&#58; Longint;
  flag&#58; Boolean;
begin
  flag&#58;= True;
  while flag do begin
    Write&#40;'Enter array length from 1 to 20&#58; '&#41;;
    ReadLn&#40;n&#41;;
    if &#40;n<1&#41; or &#40;n>20&#41; then WriteLn&#40;'Incorrect array length, try again'&#41;
      else flag&#58;= False;
  end;
  for i&#58;= 1 to n do begin
    flag&#58;= True;
    while flag do begin
      Write&#40;'Enter A&#91;', i, '&#93;&#58; '&#41;;
      ReadLn&#40;tmp&#41;;
      if &#40;tmp< -32768&#41; or &#40;tmp> 32767&#41; then WriteLn&#40;'Incorrect number, try again'&#41;
        else
          begin
            A&#91;i&#93;&#58;= tmp;
            flag&#58;= False;
         end;
    end;
  end;
end;
procedure GetSum&#40;Mas&#58; array of Integer&#41;;
var
Res&#58; Real;
i&#58; Integer;
begin
  Res&#58;= 0;
  WriteLn&#40;'Negative elements&#58;'&#41;;
  for i&#58;= 0 to n-1 do
    if Mas&#91;i&#93;< 0 then
      begin
        WriteLn&#40;Mas&#91;i&#93;&#41;;
        Res&#58;= Res + &#40;&#40;-1&#41;*Exp&#40;3*Ln&#40;Abs&#40;Mas&#91;i&#93;&#41;&#41;&#41;&#41;;
      end;
  WriteLn&#40;'Result&#58;'&#41;;
  WriteLn&#40;Res&#41;
end;
begin
  ClrScr;
  FillArrayManually;
  GetSum&#40;A&#41;;
  WriteLn&#40;'Press "enter" to exit...'&#41;;
  ReadLn
end.
Только есть интересный момент
ответ выдает как:
...........
-1
-2
-3
-4

Result:
-1.0000000000E+02
.........

Как это убрать?
Gek вне форума  
Старый 07.01.2007, 05:02   #12
Automation Engineer
 
Аватар для yage
 
Регистрация: 24.10.2003
Адрес: Solar System
Возраст: 41
Сообщений: 2,488
Галерея: 0
Р: yage на пути к лучшему
Re: Нужна помощь в паскале.

Цитата:
Сообщение от Gek
ответ выдает как:
...........
-1
-2
-3
-4

Result:
-1.0000000000E+02
.........

Как это убрать?
А в каком виде надо ответ? Если список отрицательных элементов не нужен (я его только для проверки выводил) убери строчки
WriteLn('Negative elements:');
и
WriteLn(Mas[i]);
из процедуры GetSum
__________________
When you dream... there are no rules. People can fly, anything can happen...
yage вне форума  
Старый 07.01.2007, 13:55   #13
Завсегдатай
 
Аватар для Gek
 
Регистрация: 18.11.2005
Сообщений: 237
Галерея: 0
Р: Gek на пути к лучшему
Нужна помощь в паскале.

-1.0000000000E+02
-100
Gek вне форума  
Старый 07.01.2007, 15:34   #14
Automation Engineer
 
Аватар для yage
 
Регистрация: 24.10.2003
Адрес: Solar System
Возраст: 41
Сообщений: 2,488
Галерея: 0
Р: yage на пути к лучшему
Re: Нужна помощь в паскале.

Цитата:
Сообщение от Gek
-1.0000000000E+02
-100
Вообще у тебя в условии задачи написано, что для четырнадцатого варианта ответ должен быть вещественным числом. Но если так уж надо целое, то измени чуть-чуть процедуру GetSum

Код:
procedure GetSum&#40;Mas&#58; array of Integer&#41;;
var
  Res&#58; Real;
  i&#58; Integer;
  Res_Out&#58; Longint;
begin
  Res&#58;= 0;
  WriteLn&#40;'Negative elements&#58;'&#41;;
  for i&#58;= 0 to n-1 do
    if Mas&#91;i&#93;< 0 then
      begin
        WriteLn&#40;Mas&#91;i&#93;&#41;;
        Res&#58;= Res + &#40;&#40;-1&#41;*Exp&#40;3*Ln&#40;Abs&#40;Mas&#91;i&#93;&#41;&#41;&#41;&#41;;
      end;
  Res_Out&#58;= Trunc&#40;Res&#41;;
  WriteLn&#40;'Result&#58;'&#41;;
  WriteLn&#40;Res_Out&#41;
end;
__________________
When you dream... there are no rules. People can fly, anything can happen...
yage вне форума  
Старый 07.01.2007, 22:59   #15
Завсегдатай
 
Аватар для Gek
 
Регистрация: 18.11.2005
Сообщений: 237
Галерея: 0
Р: Gek на пути к лучшему
Нужна помощь в паскале.

а как ещё ОДЗ влепить на целые числа
Цитата:
(tmp<>round(tmp))
не работает.
Gek вне форума  
Старый 07.01.2007, 23:15   #16
Automation Engineer
 
Аватар для yage
 
Регистрация: 24.10.2003
Адрес: Solar System
Возраст: 41
Сообщений: 2,488
Галерея: 0
Р: yage на пути к лучшему
Re: Нужна помощь в паскале.

Цитата:
Сообщение от Gek
а как ещё ОДЗ влепить на целые числа
Цитата:
(tmp<>round(tmp))
не работает.
Будь добр, поясни мысль, я как то слабо понял, что на этот раз не так? Если тебе надо было вывести целое число в ответе, то чем не устраивает последний, предложенный мной, вариант?

Цитата:
(tmp<>round(tmp))
А это что еще такое???
__________________
When you dream... there are no rules. People can fly, anything can happen...
yage вне форума  
Старый 07.01.2007, 23:26   #17
Завсегдатай
 
Аватар для Gek
 
Регистрация: 18.11.2005
Сообщений: 237
Галерея: 0
Р: Gek на пути к лучшему
Нужна помощь в паскале.

эт если водишь 1.5 прогу выкидывает...

во второй задаче я делал так:
Код:
............
writeln&#40;'Vvedite a'&#41;;
readln&#40;a&#41;;
writeln&#40;'Vvedite d'&#41;;
readln&#40;d&#41;;
if &#40;a<>round&#40;a&#41;&#41; or &#40;d<>round&#40;d&#41;&#41; then
 begin
 writeln&#40;'a ili b ne tseloe'&#41;;
 goto L1;
 end 
............
из задания:
Цитата:
Задав одномерный массив целочисленных данных А
Gek вне форума  
Старый 08.01.2007, 00:08   #18
Automation Engineer
 
Аватар для yage
 
Регистрация: 24.10.2003
Адрес: Solar System
Возраст: 41
Сообщений: 2,488
Галерея: 0
Р: yage на пути к лучшему
Re: Нужна помощь в паскале.

Цитата:
Сообщение от Gek
эт если водишь 1.5 прогу выкидывает...

во второй задаче я делал так:
Код:
............
writeln&#40;'Vvedite a'&#41;;
readln&#40;a&#41;;
writeln&#40;'Vvedite d'&#41;;
readln&#40;d&#41;;
if &#40;a<>round&#40;a&#41;&#41; or &#40;d<>round&#40;d&#41;&#41; then
 begin
 writeln&#40;'a ili b ne tseloe'&#41;;
 goto L1;
 end 
............
из задания:
Цитата:
Задав одномерный массив целочисленных данных А
Ясно... обновляй процедуру FillArrayManually

Код:
procedure FillArrayManually;
var
  n&#58; Integer;
  i&#58; Integer;
  tmp&#58; Real;
  flag&#58; Boolean;
begin
  flag&#58;= True;
  while flag do begin
    Write&#40;'Enter array length from 1 to 20&#58; '&#41;;
    ReadLn&#40;n&#41;;
    if &#40;n<1&#41; or &#40;n>20&#41; then WriteLn&#40;'Incorrect array length, try again'&#41;
      else flag&#58;= False;
  end;
  for i&#58;= 1 to n do begin
    flag&#58;= True;
    while flag do begin
      Write&#40;'Enter A&#91;', i, '&#93;&#58; '&#41;;
      ReadLn&#40;tmp&#41;;
      if &#40;tmp<>Round&#40;tmp&#41;&#41; or &#40;tmp< -32768&#41; or &#40;tmp> 32767&#41; then WriteLn&#40;'Incorrect number, try again'&#41;
        else
          begin
            A&#91;i&#93;&#58;= Round&#40;tmp&#41;;
            flag&#58;= False;
          end;
    end;
  end;
end;
Надеюсь проверку от ввода не числовых данных делать от вас не требуют?
__________________
When you dream... there are no rules. People can fly, anything can happen...
yage вне форума  
Старый 08.01.2007, 18:47   #19
Завсегдатай
 
Аватар для Gek
 
Регистрация: 18.11.2005
Сообщений: 237
Галерея: 0
Р: Gek на пути к лучшему
Нужна помощь в паскале.

Фуф ели ка отчитал эту работу.
ему не понравилась формула ((-1)exp(3*ln(abs(x)))=... , пришлось переделывать (x*x*x)....

теперь хоть знаю ка со степенями работать........!



Цитата:
ЦЕЛЬ РАБОТЫ. Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику задачи.

В программе должны быть предусмотрены процедуры ввода-вывода элементов массива А и его обработки
Код:
Найти сумму всех ее элементов и заменить ею все диагональные элементы этой матрицы.
Код:
Program LAB4v14;
 var a&#58;array &#91;1..10,1..10&#93; of integer;
 i,j,n,k&#58;integer;
begin
write&#40;'n='&#41;;
readln&#40;n&#41;;
for i&#58;=1 to n do
 for j&#58;=1 to n do
  readln&#40;a&#91;i,j&#93;&#41;;
writeln&#40;'Bila vvedina matrica&#58;'&#41;;
for i&#58;=1 to n do
begin
  for j&#58;=1 to n do
     write&#40;a&#91;i,j&#93;&#41;;
     writeln;
end;
.................................
что дальше делать???
Gek вне форума  
Старый 08.01.2007, 19:09   #20
Automation Engineer
 
Аватар для yage
 
Регистрация: 24.10.2003
Адрес: Solar System
Возраст: 41
Сообщений: 2,488
Галерея: 0
Р: yage на пути к лучшему
Re: Нужна помощь в паскале.

Цитата:
Сообщение от Gek
что дальше делать???
Ну допустим, что сумма это переменная Sum

Код:
for i&#58;= 1 to n do
  for j&#58;= 1 to n do
    Sum&#58;= Sum + A&#91;i,j&#93;;
У диагональных элементов (я так понимаю нужна только главная диаглналь) i=j, следовательно

Код:
for i&#58;= 1 to n do A&#91;i,i&#93;&#58;= Sum;
__________________
When you dream... there are no rules. People can fly, anything can happen...
yage вне форума  
Старый 14.01.2007, 03:07   #21
Завсегдатай
 
Аватар для Gek
 
Регистрация: 18.11.2005
Сообщений: 237
Галерея: 0
Р: Gek на пути к лучшему
Нужна помощь в паскале.

Доделал......

Код:
Program Lab4v14;
Uses CRT;
 Var
 a&#58;array &#91;1..10,1..10&#93; of real;
 i,j,n&#58; integer;
 y,q,w,s&#58;real;
begin
 writeln &#40;'Zadanie&#58;'&#41;;
 writeln &#40;'naiti symmy elementov matrici i zamenit eyu vse diagonalnie elementi'&#41;;
 writeln &#40;''&#41;;
 write &#40;'vvedite razmer matrici, A='&#41;;
 read &#40;n&#41;;
  randomize;
   for i&#58;=1 to n do
     begin
       for j&#58;=1 to n do
       begin
         A&#91;i,j&#93;&#58;=random&#40;10&#41;-random&#40;10&#41;;
       end;
     end;
  s&#58;=0;
  for i&#58;=1 to n do
  for j&#58;=1 to n do
   if j>i then
   s&#58;=s+a&#91;i,j&#93;;
  w&#58;=0;
  for i&#58;=1 to n do
  for j&#58;=1 to n do
   if j<i then
   w&#58;=w+a&#91;i,j&#93;;
  q&#58;=0;
  for i&#58;=1 to n do
  for j&#58;=1 to n do
   if j=i then
   q&#58;=q+a&#91;i,j&#93;;
   ClrScr;
   writeln&#40;'matrica A'&#41;;
  for i&#58;=1 to n do
  begin
   for j&#58;=1 to n do
   write&#40;a&#91;i,j&#93;&#58;8&#58;0,' '&#41;;
   writeln
  end;
 readln;
 writeln;
 readln;
 ClrScr;  &#123;<==для наглядности это можно убрать&#125;
   y&#58;=q+w+s;
   for i&#58;=1 to n do
  for j&#58;=1 to n do
   if j=i then
   a&#91;i,j&#93;&#58;=y;
    y&#58;=q+w+s;
   for i&#58;=1 to n do
  for j&#58;=1 to n do
   if i+j-1=N then
   a&#91;i,j&#93;&#58;=y;
   y&#58;=N;
    for i&#58;=1 to n do
  begin
   for j&#58;=1 to n do
   write&#40;a&#91;i,j&#93;&#58;8&#58;0,' '&#41;;
   writeln
  end;
  Writeln;
  Readln;
 end.


Осталось последнее.

на плоскости X,Y. (10х10) построить треугольник.
X1,Y1; X2,Y2; X3,Y3.

1. Через процедуру M-Вычислить длину и проверить, можно ли построить треугольник.
2. Через функцию S-вычислить площадь.
3. M и S поместить в Unit (модуль).
Gek вне форума  
Старый 17.01.2007, 23:29   #22
Завсегдатай
 
Аватар для Gek
 
Регистрация: 18.11.2005
Сообщений: 237
Галерея: 0
Р: Gek на пути к лучшему
Нужна помощь в паскале.

Закройте тему..........!
Gek вне форума  
Закрытая тема


Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 

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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь XS Project Городская жизнь 1309 14.06.2019 17:23
Нужна помощь gummpv Флейм 5 18.04.2008 23:35
Нужна помощь! ozon Городская жизнь 7 18.12.2007 13:51
Нужна помощь в С\С++ Gek Программирование, компьютерное творчество 3 17.06.2007 00:40
нужна помощь Ravil Флейм 2 03.05.2007 15:16


Часовой пояс GMT +6, время: 06:42.


Powered by vBulletin® Version 3.8.6
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
© megion.net

Rambler's Top100