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


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

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




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



Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 985 • Страница 4 из 50 • <  1  2  3  4  5  6  7 ... 50  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  overover
Прилепленное (важное) сообщение

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

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

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


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

Партнер
  maestroDL

Member
Статус: Не в сети
Регистрация: 19.09.2004
Откуда: СПб
Toshk@ Спасибо, но как-то странно, что файл rar весил 940Кб, а exe 497Кб ??

_________________
I don't know what you heard about me.

  maestroDL

Member
Статус: Не в сети
Регистрация: 19.09.2004
Откуда: СПб
Toshk@ На самом деле учебник не очень... Не всё понятно как делать программы, хорошо у меня друган немного шарит. Но всё равно...

_________________
I don't know what you heard about me.

  Halfback

Member
Статус: Не в сети
Регистрация: 14.08.2003
Откуда: Питер
Дайте плиз функцию, которая сравнивает две строки БЕЗ учета регистров их символов.
Т.е. например FunStr('функция','ФуНкЦиЯ')=true

Добавлено спустя 8 часов, 6 минут, 16 секунд:
Сам отвечаю на свой вопрос: http://www.cracklab.ru/pro/api.php?pg=382

_________________
Лучшая зашита - это нападение.

  arcon56142

Member
Статус: Не в сети
Регистрация: 20.08.2003
Откуда: Архангельск,РФ
Фото: 11
Люди, скажите плиз как решить определённый интеграл на паскале? методом прямоугольников и трапеций.

_________________
Dell Venue 11 pro 7130 | SGS-III | Samsung Gear fit

  Mutant-13

Member
Статус: Не в сети
Регистрация: 23.06.2004
Помогите решить задачу по информатике:
Дан одномерный массив. Отсортировать массив по возрастанию.
УКАЗАНИЕ: Для сортировки надо воспользываться следующим методом - найти минимальный элемент и поменять его со значением первого и так далее..

_________________
Весь мир игра, а мы вней монстры...

  evtil

Member
Статус: Не в сети
Регистрация: 08.03.2004
Mutant-13
Может как-то так...Я точно не уверен.
Код:
Var i,q,w,Max:integer;
    a:array [1..100] of integer;
begin
    For i:=1 to 100 do begin
                      readln (a[i])
                     end;
    Max:=a[1]; 
    For i:=1 to 10 do begin
     For q:=1 to 11-i do begin
       if a[i]>Max then begin a[i]:=Max
                                w:=i;
                                 end;
                         end;
  a[11-i]:=a[w]
  a[11-i]:=Max;
end;
For i:=1 to 100 do begin
   writeln (a[q]);
end;
end.


Добавлено спустя 24 минуты, 47 секунд:
Вот способ поправильней:
Код:
For i:=2 to 100 do begin
      For j:=100 downto i do begin
   if a[j-1]<a[j] then begin k:=a[j-1];
   a[j-1]:=a[j];
   a[j]:=k;
     end;
   end;
  end;
 For i:=1 to 100 do
  writeln (a[i]);
end.
  Asteroid

Member
Статус: Не в сети
Регистрация: 30.01.2003
Откуда: Москва
arcon56142 Пусть есть интеграл от a до b функции f(x), число шагов steps. Тогда:
Код:
Result := 0;
stepsize := ( b - a ) / steps;

// Прямоуггольниками:
// суммируем площадь прямоугольников высотой f[текущая точка] и шириной stepsize
for i := 0 to steps - 1 do
  Result := Result + stepsize * f( a + i*stepsize );

Если трапециями, то:
Код:
// суммируем площадь трапеций с основаниями f[текущая точка] и f[следующая точка] и высотой stepsize
for i := 0 to steps - 1 do
  Result := Result + stepsize * ( f( a + i*stepsize ) + f( a + (i+1)*stepsize ) ) / 2;

Соответственно, i, steps - integer; a, b, stepsize и Result - Single/Double/Extended/Real...
  evtil

Member
Статус: Не в сети
Регистрация: 08.03.2004
arcon56142
Не знаю, что такое интегрировать, но знаю метод трапеции, мож еное поможет:
Код:
Var i, n: integer;
    a,b,f1,f2,d,s,so:real;
begin
   readln (a,b,n);{n-кол-во шагов}
   d:=(b-a)/n;
 For i:=1 to n do begin
   f1:=(функция в a)+2;
   f2:=(функция в (a+b))+2;
 s:=((f1+f2)*d)/2;
 a:=a+d;
 so:=so+s;{so-площадь фигуры}
 end;
writeln ('S=', so :6 :2);
readln;
end.
  Mutant-13

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


Огромное спасибо .. Всё получилось КАЙФ!!!

_________________
Весь мир игра, а мы вней монстры...

  evtil

Member
Статус: Не в сети
Регистрация: 08.03.2004
Mutant-13
:) приятно, что получилось
  Zeal

Member
Статус: Не в сети
Регистрация: 11.08.2004
Откуда: Москва
Подскажите коды кнопок "Вверх","Вниз","Влево","Вправо","Ентер","Пробел"... а то я знаю только "Escape" #27.... и то неуверен. :)

_________________
© <Zeal™>

  vor

Advanced member
Статус: Не в сети
Регистрация: 23.10.2003
Откуда: Иркутск/Майкоп
Zeal
72, 80, 75, 77, 13, 32.

_________________
Края каждого совершенно нового крышка процессора не на 100% гладкая. Это связано с тем, что следов мастерства не избежать. (c) Али.

  arcon56142

Member
Статус: Не в сети
Регистрация: 20.08.2003
Откуда: Архангельск,РФ
Фото: 11
Люди плиз проверьте прогу а то сам чёта немогу:
Вычислить значение суммы членов бесконечного ряда с заданной точностью .На печать вывести значение суммы и число членов ряда, вошедших в сумму.
Код:
uses crt;
var
S,e:real;
i,n,x:integer;
k:real;
          function fact(f:byte):longint;
                   begin
                   if f in[0,1] then fact:=1
                      else
                      fact:=f*fact(f-1);
                      end;
          function stepen(g,l:integer):real;
                   begin
                   k:=1;
                   for i:=1 to abs(g) do
                   k:=k*l;
                   if g<0 then stepen:=1/k else stepen:=k;
                   end;

begin
s:=0;
n:=0;
     clrscr;
     writeln('vvedite X');
     readln(x);
     repeat
     inc(n);
     s:=s+stepen(n,-1)*stepen(2*n,2*x)/fact(2*n);
     until s<0.000001;
writeln('summa = ',S,'   ',stepen(-2,5));
writeln('chislo chlenov = ',n);
readkey;
     end.


и


Код:
uses crt;
var
f,out:text;
x,i:byte;
s:string;
procedure search;
               begin
                    repeat
                    x:=x+i;
                    i:=0;
                         repeat
                         if (s[x]=s[x+i]) then inc(i);
                         until (s[x]<>s[x+i]);
                    if i>1 then write(out,s[x],'(',i,')') else write(out,s[x]);
               until x>=length(s);
end;
procedure probelsdelete;
begin
     repeat
     if s[1]=' ' then delete(s,1,1);
     if s[length(s)]=' ' then delete(s,length(s),1);
     until (s[1]<>' ') and (s[length(s)]<>' ');

     end;
begin

     clrscr;
     assign(f,'f:\in.txt');
     assign(out,'f:\out.txt');
     reset(f);
     rewrite(out);
repeat
x:=1;
i:=0;
readln(f,s);
probelsdelete;
search;
writeln(out,'');
until seekeof(f);
close(f);
close(out);
end.


это типа архиватор, заменяет повторяющиеся символы к примеру ссссс на с(5), но с ней проблемка возникла, в последней строке появляются пробелы, надо их както устранить.

_________________
Dell Venue 11 pro 7130 | SGS-III | Samsung Gear fit

  7AlexF07

Люди, скажите где мона взять коды клавиатурных клавиш на паскаль???
  vor

Advanced member
Статус: Не в сети
Регистрация: 23.10.2003
Откуда: Иркутск/Майкоп
Программу написать.

writeln(ord(readkey))

_________________
Края каждого совершенно нового крышка процессора не на 100% гладкая. Это связано с тем, что следов мастерства не избежать. (c) Али.

  GreatOne

Member
Статус: Не в сети
Регистрация: 20.03.2005
Люди,момогите задачки решить,плиз.
1)Составить программу,которая вычисляет дату следущего дня.Введите цифрами сегодняшнюю дату(число,месяц,год).
Пример-31.12.99 Последний день месяца!
С наступающим новым годом! Завтра 1.1.2000
2)Ввести целое число N с клавиатуры. Подсчитать сумму всех целых чисел до N ,делящихся
нацело (на 5)
3)Дан массив целых чисел(n=10),заполненный случайным образом промежутка [-40;30)
Удалить из него все элементы, которые состоят из одинаковых цифр (включая однозначные числа)
4)Дан массив целых чисел (n=10) ,заполненный случайным образом промежутка [-40;30)
Вставить число k перед всеми элементами в которых есть цифра I(k вводится с клавиатуры)
5)Ввести 15 целых чисел.определить сколько из них принимает наибольшее значение.
6)Составить программу с использованием процедуры умножения матриц A(2,3) и B(3,4)
7)При поступлении в университет лица, получившие оценку ”неудовлетворительно” на первом экзамене, ко второму экзамену не допускаются. .Считая фамилии абитуриентов исходными данными, составить список абитуриентов, допущенных ко второму экзамену.
8)Дан файл т, который содержит номера телефонов сотрудников учреждения: указываются фамилия ,инициалы и номер телефона. Найти номер телефона сотрудника по его фамилии и инициалам.
9)В прямой четырёхугольной призме провести сечение, проходящее через сторону нижнего основания под углом 30 градусов.
Вот такие задачки,решите пожалста ,сессия поджимает :(
  AlexZerg

Member
Статус: Не в сети
Регистрация: 21.10.2003
Откуда: Брест
Фото: 47
GreatOne глянь сюда http://algolist.manual.ru/ - поищи хоть решение, может найдёшь... Останеться лишь написать - а это уже полдела...

Добавлено спустя 1 минуту, 37 секунд:
{Ввести целое число N с клавиатуры. Подсчитать сумму всех целых чисел до N ,делящихся
нацело (на 5)}

{Воспользуемся формулой находждения суммы арифметической прогрессии
S(x)=x*(A_1+A_x)/2, где
A_1 - есть первый член прогрессии,
A_x - есть "X"овый член прогресси,
x - есть количество членов прогрессии }
{прогрессия у нас типа 5,10,15,20,25...}
Код:
Var
 N,S,x : longint;
Begin
 Write('Введите число N: ');
 ReadLn(N);
 {Найдём последний член прогрессии A_x}
 While N mod 5 <> 0 do
  N:=N-1;
 {Найдём их количество x}
 x:=N div 5;
 {Найдём сумму}
 S:=x*(5+N) div 2;
 WriteLn;
 WriteLn('Искомая сумма: ',S);
End.

Это весьма просто...
Остальное труднее... Пока некогда...

_________________
А ещё недавно ждали AMD Steamroller на AM3+

  GreatOne

Member
Статус: Не в сети
Регистрация: 20.03.2005
AlexZerg Спасибо,признателен. :hi: :up: Есть ещё добрые люди!
А на сайте лазил этом.Только чё-то не нашёл.Да и плохо мне Паскаль даётся,да и времени уже нет чтоб изучать,сдавать уже нужно.
За паскаль мне обязательно нужно взяться,я же учусь на программиста всё-таки.(стыдно :oops: ) Ещё раз спасибо.
Люди,помогите решить какие-нибудь задачи мои(стр 6)!
  AlexZerg

Member
Статус: Не в сети
Регистрация: 21.10.2003
Откуда: Брест
Фото: 47
Пятое задание:
{Ввести 15 целых чисел. определить сколько из них принимает наибольшее значение.}
Код:
Var
 Mas : array [1..15] of longint;
 i, count : byte;
 max : longint;
Begin
 max:=0;
 For i:=1 to 15 do
  Begin
   Write('Введите ',i,'-е число : ');
   ReadLn(Mas[i]);
   If Mas[i]>max then max:=Mas[i];
  End;
 count:=0;
 For i:=1 to 15 do
  If Mas[i]=max then inc(count);
 WriteLn('Количество чилес, принимающих наибольшее значение = ',count);
End.


Остальные без теории не получиться...
Есть непонятные задания...например третье и четвёртое.
Первое легкое, но писать больше... может от нечего делать напишу... не знаю...

_________________
А ещё недавно ждали AMD Steamroller на AM3+

Последний раз редактировалось AlexZerg 09.06.2005 22:09, всего редактировалось 1 раз.

  GreatOne

Member
Статус: Не в сети
Регистрация: 20.03.2005
AlexZerg :super:
Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 985 • Страница 4 из 50 • <  1  2  3  4  5  6  7 ... 50  >
-

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

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


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

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

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

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