Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Куратор(ы):   Lord_of_Darkness   



Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 985 • Страница 26 из 50 • <  1 ... 23  24  25  26  27  28  29 ... 50  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  overover
Прилепленное (важное) сообщение

Убедительная просьба ко всем, кто выкладывает исходники:
1. Обязательно пользуйтесь тэгом code (иначе очень трудно читать)
2. Старайтесь делать отступы

Если вы хотите чтобы вам помогли в написании программы, внятно излагайте задание!

Прежде чем задать вопрос, воспользуйтесь учебником


Возможно, что нужная вам программа уже написана, поэтому советую просмотреть список здесь и здесь
Отредактировано куратором: Lord_of_Darkness. Дата: 07.07.2006 19:36
Реклама

Партнер
  -NiksoN-

Member
Статус: Не в сети
Регистрация: 28.06.2006
Откуда: Москва
Помогите пожалуйста с прогой крестики-нолики.
Нужно:
написать прогу крестики - нолики с полем 100х100 в паскале, можно без интерфейса. Может у кого исходник есть. Прога нужна до 5 января.
  Foxtrot

Member
Статус: Не в сети
Регистрация: 05.12.2005
Откуда: Rostov-on-Don
OM.Stream Вторую задачу тебе накатал.
Код:
Program Stroka;
Uses Crt;
var s,x,a:string; i,k:integer;
begin
clrscr;
writeln('Vvedite stroky');
readln(s);
writeln('Vvedite stroky dla zameny');
readln(x);
writeln('Vvedite stroky, kotoroy zamenat');
readln(a);
k:=0;
while pos(x,s)<>0 do
begin
     i:=pos(x,s);
     delete(s,i,length(x));
     insert(a,s,i);
     inc(k);
end;
writeln('Rezyltat - ');
writeln(s);
readkey;
end.

Первую - надо множества вспоминать...
Добавлено спустя 2 минуты, 25 секунд
-NiksoN- Воспользуйся Яндексом\Гуглом - исходников полно.

_________________
Intel Inside ;-)

  OM.Stream

Member
Статус: Не в сети
Регистрация: 28.03.2004
Откуда: Surgut
Foxtrot Спасибо за вторую. Я могу дать решение другого варианта по первой - может вам сразу станет все ясно? =)
Вот например:
Код:
Program zadanie_7;
uses crt;
type chisla=set of byte;
var X1,y:chisla;
    i,n,x:byte;
procedure vivod(m:chisla);
          begin
          For i:=1 to 255 do
          If i in m then WRite(i:5);
          writeln;
          end;
begin
clrscr;
x1:=[];
y:=[];
Write('Skolko chisel vvesti? N=');
readln(n);
For i:=1 to n do
    begin
    Write(i,') ');
    readln(x);
    x1:=x1+[x];
    If ((x mod 2)=1) or ((x mod 17)=0) then y:=y+[x]
    end;
clrscr;
Write('Mn-vo X1: ');
vivod(x1);
Write('Mn-vo Y:  ');
vivod(y);
readln;
end.

_________________
:: Overclock your mind !!! ::

  Foxtrot

Member
Статус: Не в сети
Регистрация: 05.12.2005
Откуда: Rostov-on-Don
OM.Stream Что-то туговато вспоминается.. я и синтаксис при описании множеств уже забыл. А поднимать материалы некогда ((( Самому на завтра надо 3 задачи ещё сделать...

_________________
Intel Inside ;-)

  -NiksoN-

Member
Статус: Не в сети
Регистрация: 28.06.2006
Откуда: Москва
сколько искал нигде нинашел, только с полем 3х3.
  Genius Exoticus

Member
Статус: Не в сети
Регистрация: 31.05.2004
-NiksoN-
Яndex
Берешь идею:
ИДЕЯ
включаешь генератор мыслей и с помощью массивов реализуешь мега-блокбастер
крестики VS нолики 100 на 100: Кто кого?
(смотрите также крестики VS нолики 3х3: с чего все начиналось... )
Седня посмотрю что можно сделать.
  E1dar

Member
Статус: Не в сети
Регистрация: 24.07.2006
-----


Последний раз редактировалось E1dar 12.03.2010 3:08, всего редактировалось 1 раз.

  -NiksoN-

Member
Статус: Не в сети
Регистрация: 28.06.2006
Откуда: Москва
Помогите плиз.... Срочно надо задачку к 7-8 января!!! В долгу не останусь!!!
Добавлено спустя 1 минуту, 5 секунд
В паскале знаю только Begin, End, Var)
  WerW0LF

Member
Статус: Не в сети
Регистрация: 26.01.2006
Откуда: Одесса
Если известно, что sin(f)=0.5, как получить, что f=30 градусов? А то вот никак не могу придумать дельного... :)

_________________
Съешь еще этих мягких французских булок, да выпей чаю.

  Foxtrot

Member
Статус: Не в сети
Регистрация: 05.12.2005
Откуда: Rostov-on-Don
E1dar Вот полная твоя задача -
Код:
Program Posl;
Uses Crt;
var max,min,min2,i,k,j:integer;
begin
     clrscr;
     max:=-32768; min:=32767; min2:=32767; i:=1; k:=0; j:=0;
     writeln('Vvedite posledovatelnost(0 - okonchanie vvoda) - ');
     while i<>0 do
     begin
          readln(i); inc(j);
          if max<i then
          begin
               max:=i; k:=j;
          end;
          if min>i then
          begin
               min2:=min; min:=i;
          end;
     end;
     writeln('Maximym - ',max,' Nomer - ',k);
     writeln('Minimymi - ',min,' , ',min2);
     readkey;
end.

WerW0LF Только в голову приходит реализовать нахождение арксинуса через ряды.

_________________
Intel Inside ;-)

  Lord_of_Darkness

Куратор темы
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
WerW0LF посчитай значения одного периода таблично, потом, интерполируя, получишь нужные тебе углы.

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  mein

Advanced member
Статус: Не в сети
Регистрация: 09.03.2004
Откуда: Кишинёв
Lord_of_Darkness думаю рядом будет проще, пяток членов ряда должно хватить для нормальной точности.

Кстати, во Free Pascal'е есть готовый арксинус(arcsin) :) .
  comrad

помогите с кодом программы плиз.
Дана квадратная матрица и надо вывести номер строки и столбца где находится максимальный элемент.
  Foxtrot

Member
Статус: Не в сети
Регистрация: 05.12.2005
Откуда: Rostov-on-Don
comrad Самому никак нельзя? Такие задачи стоило бы и самому делать :)
Код:
Program Matrix;
Uses Crt;
const n=3;
var A:array[1..n,1..n] of real; i,j,k,m:integer; max:real;
begin
     clrscr;
     k:=0; m:=0;
     for i:=1 to n do
     for j:=1 to n do
     begin
          writeln('Vvedite ',i,',',j,' element massiva');
          readln(A[i][j]);
     end;
     max:=A[1][1];
     for i:=1 to n do
     for j:=1 to n do
     if max<A[i][j] then
     begin
          max:=A[i][j]; k:=i; m:=j;
     end;
     writeln('Maksimym - ',max:3:3);
     writeln('Indeksi maksimyma - ',k,' , ',m);
     readkey;
end.

Lord_of_Darkness Мои 3 задачки глянь пожалуйста. Очень надо...

_________________
Intel Inside ;-)

  Foxtrot

Member
Статус: Не в сети
Регистрация: 05.12.2005
Откуда: Rostov-on-Don
Очень прошу помочь с моими задачами. Завтра в 3 по Москве мне сдаваться.. А нормальных вариантов этих задач так и нет.

_________________
Intel Inside ;-)

  vo1

Member
Статус: Не в сети
Регистрация: 30.09.2006
Откуда: Ростов-на-Дону
Кому нужен графический редактор на Паскале - сюда!
http://cp.people.overclockers.ru/cgi-bi ... me=NGE.rar

_________________
Я знаю, что ничего не знаю. Но некоторые не знают даже этого!

  zholf

Member
Статус: Не в сети
Регистрация: 24.02.2006
Откуда: Краснодар
Помогите найти ошибку:

Задать треугольник с вершинами A(x1,y1), B(x2,y2), C(x3,y3) и произвольные k точек. Определить:
1) количество точек внутри треугольника и вне;
2) максимальное число точек внутри треугольника.

Помле ввода A,B,C вылетает и пишет
Error 207: invalid floating point operation

Код:
Program number1;                                                             
  uses crt;                                                                   
 var N,MaxX,MaxY,MinX,MinY,i,j,k,S,T,x,x1,x2,x3,y,y1,y2,y3:integer;           
     AB,BC,AC,AM,BM,CM,ABC,ABM,AMC,BMC:real;                                 
                                                                             
{- - - - - - - - - - - - - - Dlina storoni - - - - - - - - - - - - - - - - } 
 function Length(xx1,yy1,xx2,yy2:integer):real;                               
   begin                                                                     
    Length:=SQRT(SQR(xx2-xx1)+SQR(yy2-yy1))                                   
   end;                                                                       
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - } 
                                                                             
{- - - - - - - - - - - - - - Ploshad treugolnika - - - - - - - - - - - - - } 
  function Square(l,m,n:real):real;                                           
   var p:real;                                                               
    begin                                                                     
     p:=(l+m+n)/2;                                                           
                                                                             
    Square:=SQRT(p*(p-l)*(p-m)*(p-n))                                       
    end;                                                                     
 
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - }
{- - - - - - - - - - - - - - Vvod tochek A,B,C - - - - - - - - - - - - - - } 
 begin  clrscr;                                                               
  writeln('Enter  A');                                                       
    readln(x1,y1);                                                           
  writeln('Enter  B');                                                       
    readln(x2,y2);                                                           
  writeln('Enter  C');                                                       
    readln(x3,y3);                                                           
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - } 
{- - - - - - - - - - - - Dlina storon AB,BC,AC , ploshad ABC - - - - - - - } 
  AB:=Length(x1,y1,x2,y2);                                                   
  BC:=Length(x2,y2,x3,y3);                                                   
  AC:=Length(x1,y1,x3,y3);                                                   
  ABC:=Square(AB,BM,AC);                                                     
{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - } 
    S:=0;T:=0;                                                               
  writeln('Enter chislo tochek');                                             
  readln(k);                                                                 
                                                                             
 for i:=1 to k do begin                                                       
  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help
 writeln('Enter point');                                                     
  readln(x,y);                                                               
{- - - - - - - - - - Dlina AM,BM,CM , ploshad ABM,BMC,AMC - - - - - - - - -} 
   AM:=Length(x1,y1,x,y);                                                     
   BM:=Length(x2,y2,x,y);                                                     
   CM:=Length(x3,y3,x,y);                                                     
   ABM:=Square(AB,BM,AM);                                                     
   BMC:=Square(BC,BM,CM);                                                     
   AMC:=Square(AC,AM,CM);                                                     
{- - - - - - - - - - - - - - Tochki vnutri i vne - - - - - - - - - - - - - } 
 if (ABM+BMC+AMC>ABC) then begin                                             
    writeln('(',x,y,')         -');S:=S+1 end                                 
 else begin                                                                   
    writeln('(',x,y,')         +');T:=T+1 end;                               
   readln                                                                     
 end;                                                                         
    writeln('vnutri ',T);                                                     
    writeln('vne    ',S);                                                     
{ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -} 
{ - - - - - - - - - MAX chislo tochek vnutri treugolnika - - - - - - - - - } 
     N:=0;                                                                   
   maxX:=X1;                                                                 
   minX:=X1;                                                                 
    if MaxX<X2 then MaxX:=X2;                                                 
    if MaxX<X3 then MaxX:=X3;                                                 
    if MinX>X2 then MinX:=X2;                                                 
    if MinX>X3 then MinX:=X3;                                                 
                                                                             
   MaxY:=X1;                                                                 
   MinY:=X1;                                                                 
    if MaxY<Y2 then MaxY:=Y2;                                                 
    if MaxY<Y3 then MaxY:=Y3;                                                 
    if MinY>Y2 then MinY:=Y2;                                                 
    if MinY>Y3 then MinY:=Y3;                                                 
                                                                             
   for i:=MinY to MaxY do                                                     
    for j:=MinX to MaxX do begin                                             
                                                                             
   AM:=Length(x1,y1,x,y);                                                     
   BM:=Length(x2,y2,x,y);                                                     
   CM:=Length(x3,y3,x,y);                                                     
   ABM:=Square(AB,BM,AM);                                                     
   BMC:=Square(BC,BM,CM);                                                     
   AMC:=Square(AC,AM,CM);                                                     
 if (ABM+BMC+AMC>ABC) then N:=N+1 end;                                       
                                                                             
  writeln('maksimalnoe chislo tochek vnutri treugolnika ',N);                 
  readln;                                                                     
{ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -} 
  End.                                                                       

_________________
!"№;%:?*()_+

  KENT8

Member
Статус: Не в сети
Регистрация: 11.10.2006
Здравствуйте! Помогите пожалуйста с прогой. Нужно написать прогу с типом Record. Ввести данные, вывести - это я знаю. Там нужно отсортировать эти данные по возрастанию/убыванию и по алфавиту. Если можно побыстрее - в четверг сдавать.
  Foxtrot

Member
Статус: Не в сети
Регистрация: 05.12.2005
Откуда: Rostov-on-Don
KENT8 Сколько полей должно быть в записе? Или 2-мя можно обойтись? Например название товара и его цена. Данные вводит пользователь или мы считаем их уже заданными?

_________________
Intel Inside ;-)

  Lord_of_Darkness

Куратор темы
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
KENT8
вот, под дельфю писал, но и на паскале должно работать. Функция, правда, не универсальна...

Код:
{ 0 - одинаковые строки
  1 - s1 выше при сорт. по возрастанию
  2 - s1 ниже s2 }
function StringsCompare(s1, s2 : string) : byte;
var
  i, N : cardinal;
begin
  Result := 0;
  if Length(s1) <= Length(s2) then
     N := Length(s1)
  else
     N := Length(s2);

  for i:=1 to N do
  begin
    if UpCase(s1[i]) < UpCase(s2[i]) then
    begin
      Result := 1;
      break;
    end;
    if UpCase(s1[i]) > UpCase(s2[i]) then
    begin
      Result := 2;
      break;
    end;
  end;

  if (Length(s1) <> Length(s2)) and (Result = 0) then
     if Length(s1) > Length(s2) then Result := 2
     else Result := 1;
end;


юзать примерно так

Код:
  repeat
    nm := false;
    for i:=1 to 49 do
      if StringsCompare(items[i].str,items[i+1].str) = 2 then
      begin
        tmpitm := items[i];
        items[i] := items[i+1];
        items[i+1] := tmpitm;
        nm := true;
      end;

  until nm = false;

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 985 • Страница 26 из 50 • <  1 ... 23  24  25  26  27  28  29 ... 50  >
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

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

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan