Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|

17.05.2009, 22:26
|
|
Новичок
Регистрация: 08.08.2005
Сообщений: 22
Провел на форуме: 44501
Репутация:
5
|
|
Народ, а бейсик решаете?)
|
|
|

18.05.2009, 12:42
|
Регистрация: 29.05.2002
Сообщений: 1,793
Провел на форуме: 2050916
Репутация:
0
|
|
Сообщение от PreVarioS
Народ, а бейсик решаете?)
Только в военное время 
|
|
|

18.05.2009, 23:58
|
|
Постоянный
Регистрация: 05.07.2008
Сообщений: 555
Провел на форуме: 3134311
Репутация:
1467
|
|
Сообщение от MRAK9
собственно мессага
нужно построить график функции x*x*x*x-13*x*x+36 в заданом интервале(вводится с клавиатуры
//PASCAL
. Посмотри тут, в принципе не сложно  зделай сам) http://books.kulichki.com/data/pascal/pas1/6_2_5.htm
|
|
|

19.05.2009, 00:58
|
|
Познающий
Регистрация: 03.02.2009
Сообщений: 32
Провел на форуме: 326183
Репутация:
18
|
|
"Народ, а бейсик решаете?)"
Могу помочь
|
|
|

19.05.2009, 06:12
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме: 1740746
Репутация:
435
|
|
для MRAK9
Проверить всю правильность кода возможности нету так как моя видиокарта почему-то не хочет работать с GRAPH в режиме совместимости. Можно конечно было сделать и через VGA256, но так уж принято чертить графики через GRAPH.
y:=x*x*x*x-13*x*x+36; - оставила так как есть, ибо не хочется заморачиваться на преоброзовании и округлении типов. Если будет необходимость работать с real и считать степени по человечески то вот формула y:=exp(ln(X) *4)-13*Sqr(x)+36;
Исходный код:
PHP код:
program kl;
uses Graph;
var dv,mv,i,x,y,ta,tb: integer;
begin
write('vvedite pervoe znachenie diaposona: ');
read(ta);
write('vvedite vtoroe znachenie diaposona: ');
read(tb);
DV:=Detect;
InitGraph(DV,MV,'C:\TP7\UNITS\GRAPH');
for i:=ta to tb do
begin
x:=i;
y:=x*x*x*x-13*x*x+36;
LineTo(x,y);
end;
read(x);
ClozeGraph;
end.
Если кажется что линиями слишком грубо, то можете сделать через точки, только не забывайте преобразовывать типы:
PHP код:
x:=ta;
While x<=tb do
begin
y:=exp(ln(X) *4)-13*Sqr(x)+36;
...
...
PutPixel(x, y, 15);
x:=x+ 0.01;
end;
Процедуры и функции модуля CRAPH
Процедуры.
* Arc (X,Y:Integer; U1, U2, R:Word)
Строит дугу окружности текущим цветом с текущими параметрами линии. X, Y – координаты центра дуги; U1 – угол до начальной точки дуги, отсчитываемый против часовой стрелки от горизонтальной оси, направленной с лева на право; U2 – угол до конечной точки дуги, отсчитываемый так же, как U1; R – радиус дуги.
* Bar (X1, Y1, X2, Y2:Integer)
Строит прямоугольник, закрашенный текущим цветом с использованием текущего стиля (орнамента, штриховки). X1, Y1, X2, Y2 – координаты левого верхнего и правого нижнего углов прямоугольника.
* Bar3D (X1, Y1, X2, Y2:Integer; Glubina: Word; Top:Boolean)
Строит параллелепипед, используя текущий стиль и цвет. X1, Y1, X2, Y2 – координаты левого верхнего и правого нижнего углов передней грани; Glubina – ширина боковой грани (отсчитывается по горизонтали); Top – признак включения верхней грани (если True – верхняя грань вычерчивается, False – не вычерчивается).
* Circle (X, Y: Integer; R: word)
Рисует текущим цветом окружность радиуса R с центром в точке (X, Y).
* ClearDevice
Очищает графический экран, закрашивает его в цвет фона.
* ClearViewPort
Очищает выделенное графическое окно, закрашивает его в цвет фона.
* CloseGraph
Закрытие видеорежима. Когда все запланированные графические работы выполнены, необходимо выйти из графического режима. Это делается с помощью не имеющей параметров процедуры ClozeGraph. В процессе выполнения эта процедура освобождает память, распределенную под драйверы графики, файлы шрифтов и промежуточные данные, и восстанавливает режим работы адаптера в то состояние, в котором он находился до выполнения инициализации системы.
* Ellipse (X, Y: Integer; U1, U2, XR, YR: Word)
Рисует дугу эллипса текущим цветом. X, Y – координаты центра эллипса; U1, U2 – углы до начальной и конечной точек дуги эллипса (см. процедуру Arc); XR, XY – горизонтальная и вертикальная полуоси эллипса.
* Fill Ellipse (X, Y: Integer; U1, U2, XR, YR: Word)
Рисунт заштрихованный эллипс, используя X, Y как центр и XR, YR как горизонтальную и вертикальную полуоси эллипса.
* FillPoly (N: Word; Var PolyPoints)
Рисует и штрихует многоугольник, содержащий N вершин с координатами в поле PolyPoints.
* InitGraph (Var Driver, Mode:Integer; Path: String)
InitGraph(DV,MV,'C:\TP7\UNITS\GRAPH'); Организует переход в графический режим. Переменные Driver и Mode содержат тип графического драйвера и его режим работы. Третий параметр определяет маршрут поиска графического драйвера. Если строка пустая (т.е. равна ’’), считается, что драйвер находится в текущем каталоге. Смотрите у Вас где находится файл GRAPH.TPU
* Line (X1, Y1, X2, Y2:Integer)
Рисует линию от точки X1, Y1, до точки X2, Y2.
* LineTo (X,Y:Integer)
Рисует линию от текущего указателя к точке X, Y.
* MoveTo (X,Y:Integer)
Смещает текущий указатель к точке X, Y.
* OutTextXY (X,Y:Integer; TextString: String)
Выводит текст в заданное место экрана.
* PieSlice (X,Y:Integer; U1, U2, Radius: Word)
Строит сектор круга, закрашенный текущей штриховкой и цветом заполнения. X, Y – координаты центра сектора круга; U1 и U2 – начальный и конечный углы сектора, отсчитываемые против часовой стрелки от горизонтальной оси, направленной в право; Radius – радиус сектора.
* PutPixel (X,Y:Integer; Color: Word)
Выводит точку цветом Color с координатами X, Y.
* Rectangle (X1, Y1, X2, Y2)
Рисует контур прямоугольника, используя текущий цвет и тип линий. X1, Y1 – координаты левого верхнего угла прямоугольника; X2, Y2 - координаты левого правого нижнего угла прямоугольника.
* Sector (X, Y: Integer; U1, U2, XR, YR: Word)
Рисует и штрихует сектор эллипса радиусом XR, YR с центром в X, Y от начального угла U1 к конечному углу U2.
* SetBkColor (Color: Word)
Устанавливает цвет фона.
* SetColor (Color: Word)
Устанавливает основной цвет рисования.
* SetFillStyle (Pattern, Color: Word)
Устанавливает образец штриховки и цвета.
* SetLineStyle (LineStyle, Pattern, Thickness: Word)
Устанавливает толщину и цвет линии.
* SetTextStyle (Font, Direction, CharSize: Word)
Устанавливает текущий шрифт, направление (горизонтальное или вертикальное) и размер текста.
* SetViewPort (X1, Y1, X2, Y2:Integer; ClipOn: Boolean)
Устанавливает прямоугольное окно на графическом экране. Параметр ClipOn определяет “отсечку” элементов изображения, не умещающихся в окне.
Функции.
GetMaxX и GetMaxY
Возвращает значения максимальных координат экрана в текущем режиме работы соответственно по горизонталь и вертикали.
* GraphResult
Возвращает значение GrOk, соответствующее коду 0, если все графические операции программы выполнились без ошибок, или возвращает числовой код ошибки (от -1 до -14).
|
|
|

19.05.2009, 10:19
|
|
Участник форума
Регистрация: 11.06.2008
Сообщений: 142
Провел на форуме: 540493
Репутация:
38
|
|
народ помогите плиз на V Basic решить задачу, есди можно то исходники в ПМ на ссылку скачивания скиньте плиз, очень буду благодарен
y=1!+2!+3!+...+n! (n>1); до n=10
|
|
|

19.05.2009, 12:06
|
|
Новичок
Регистрация: 06.12.2007
Сообщений: 10
Провел на форуме: 186010
Репутация:
6
|
|
Народ....Блиет по программированни...задачу на С++ сделал а вот с Ассемблером больште проблемы...
Прошу помочь в написаниие надо сделать на ассемблере
Задача:
Ввести в строку символьных данных,задавая буфер равный 15 словам.Заменить в этой строке нечетные символы на символ "J".Выдать полученную строку символов.
Пжлст....нужно оячень скоро
Заранее благодарен!
|
|
|

19.05.2009, 15:55
|
|
Новичок
Регистрация: 09.05.2009
Сообщений: 1
Провел на форуме: 562
Репутация:
0
|
|
Доброго времени суток!
Необходимо написать(C#) простенький менеджер горячих клавиш(запуск файла, открытие текстового документа итд).
Есть заготовка - как отлавливать сами нажатия. Нужно дописать их обработку и проверку.
http://webfile.ru/3626453
Заранее спасибо!
|
|
|

20.05.2009, 02:20
|
|
Новичок
Регистрация: 18.05.2009
Сообщений: 12
Провел на форуме: 129116
Репутация:
19
|
|
Простые числа
Нужен код с++ для вычисления 100 Простыч чисел с индексами от 10 миллионов (10 000 000) до 1 миллиард (1 000 000 000).
т.е. как пример: простые числа: 2, 3, 5, 7, 11, 13, 17
Число 11 имеет индекс - 5
Гугл дал код:
Код:
/*
-: Copyright © 1999-2003 AY-programs. All Rights Reserved. :-
E-mail: ay@supermail.ru
-------------------------------------------------------------------------------------
Programma poiska prostih chisel.
Po-umolchaniu programma poluchaet dannie iz "input.txt": chislo, do kotorogo
nujno nayti vse prostie chisla. Resultat vivodit v "output.txt". Kluchem -l programma
nachnet rabotat' v rejime polnogo razbora(s klaviaturi poluchaet imena vhodnogo i
vihodnogo fila, po okonchanii raboti vivodit ih na ekran). Cherez komandnuu stroku
ona mojet poluchat' imena vhodnogo i vihodnogo fila.
-------------------------------------------------------------------------------------
*/
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#define STR_FILE_IN_NAME "input.txt"
#define STR_FILE_OUT_NAME "output.txt"
int MkOutFile(FILE *f_in, FILE *f_out);
bool bAll=false;
int main(int argc, char* argv[])
{
char sFInName[256]=STR_FILE_IN_NAME, sFOutName[256]=STR_FILE_OUT_NAME, *pNothingDo;
FILE *f_in, *f_out;
char cRead;
if(argc>1){
if((argv[1][0]=='-')&&(argv[1][1]=='l')&&(argv[1][2]=='\0')){
bAll=true;
} else {
pNothingDo=strcpy(sFInName,argv[1]);
if(argc>2) pNothingDo=strcpy(sFOutName,argv[2]);
}
}
//----------------begin all---
if(bAll){
printf("Input name of Input File:");
scanf("%s",sFInName);
printf("Input name of Output File:");
scanf("%s",sFOutName);
}
//----------------end all-----
f_in=fopen(sFInName,"r");
f_out=fopen(sFOutName,"w");
if (!f_in){
printf("Error: can't open file with name %s\n", sFInName);
if(bAll) scanf("%c", &cRead);
return -1;
}
if (!f_out){
printf("Error: can't open file with name %s\n", sFOutName);
if(bAll) scanf("%c", &cRead);
return -1;
}
if(MkOutFile(f_in, f_out)>=0){
printf("Program was finished successfully!\n");
} else {
printf("Program was finished unsuccessfully!\n");
}
fclose(f_in);
fclose(f_out);
//----------------begin all---
if(bAll){
double dRead;
f_in=fopen(sFInName,"r");
f_out=fopen(sFOutName,"r");
printf("Input File:\n");
while(fscanf(f_in, "%lg", &dRead)==1){
printf("%lg ",dRead);
}
printf("\n");
printf("Output File:\n");
while(fscanf(f_out, "%lg", &dRead)==1){
printf("%lg ",dRead);
}
printf("\n");
fclose(f_in);
fclose(f_out);
}
if(bAll) scanf("%c", &cRead);
//----------------end all-----
return 0;
}
int MkOutFile(FILE *f_in, FILE *f_out) //osnovnaya funktsiya
{
long int iSimple;
if(fscanf(f_in, "%ld", &iSimple)!=1) return -1;
if(iSimple<=1) return 1;
if (iSimple==2) {
fprintf(f_out,"%d\n",2);
return 1;
}
if (iSimple==3) {
fprintf(f_out,"%ld\n",2);
fprintf(f_out,"%ld\n",3);
return 1;
}
long int *aiSimples = new long int[(iSimple/2)+1];
if(!aiSimples) return -2;
long int iNOS = 2;
long int iCandidat;
aiSimples[0]=2;
aiSimples[1]=3;
fprintf(f_out,"%ld\n%ld\n",2,3);
iCandidat=3;
iCandidat+=2;
while(iCandidat<=iSimple){
long int iNSravn = 1;
bool bYes = true;
while((aiSimples[iNSravn]*aiSimples[iNSravn])<=iCandidat){
if(!(iCandidat%aiSimples[iNSravn])){
bYes=false;
break;
}
iNSravn++;
}
if(bYes){
iNOS++;
aiSimples[iNOS-1]=iCandidat;
fprintf(f_out,"%ld\n",aiSimples[iNOS-1]);
}
iCandidat+=2;
}
delete [] aiSimples;
return 1;
}
/*
-: Copyright © 1999-2003 AY-programs. All Rights Reserved. :-
E-mail: ay@supermail.ru
*/
Программа выдает последнее число - 1 010 065 393
У этого числа индекс немного выше 50 000 000
вычисленные значения:
Код:
10 000 000 179,424,673
20 000 000 373,587,883
30 000 000 573,259,391
40 000 000 776,531,401
50 000 000 982,451,653
|
|
|

20.05.2009, 15:21
|
|
Познающий
Регистрация: 08.12.2008
Сообщений: 58
Провел на форуме: 153361
Репутация:
10
|
|
Народ помогите решить немного задач на паскале, моет я и о многом прошу, но думаю для большинства это не составит труда, если можно то побыстрее, в пятницу надо уже сдать. Задачи не сложные.
Вот условия:
1. Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а.
2. 1. Расстояние между двумя словами равной длины – это количество позиций, в которых различаются эти слова. В заданном предложении найти пару слов заданной длины с максимальным расстоянием.
3. Дан текстовый файл с расширением inp, в котором каждая строка содержит последовательность действительных чисел. Выяснить, будут ли последовательности возрастающие. Результат анализа (Да или Нет) записать в выходной файл с расширением out (построчно).
4. В данной действительной квадратной матрице порядка n отсортировать строку, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственен. Во входном файле с расширением mas, в первой строке дан размер матрицы n, а в следующих n строках и n столбцах записаны элементы матрицы. Результат выполнения программы вывести на экран.
5. Создать типизированный файл Task5.txt с возможностью добавления, содержащий сведения о веществах: название вещества (текст(10), его удельный вес (действительное) и проводимость (проводник, полупроводник, изолятор) (текст[13]). Необходимо создать отчет (использовать подпрограммы):
a) выписать удельные веса и названия всех полупроводников и вывести на экран с заголовком "Полупроводники";
b) выбрать данные о проводниках с удельным весом не более 10 и вывести на экран после информации о полупроводниках, вставив заголовок "Проводники";
c) вывести все содержимое типизированного файла в текстовый файл Task5.sol.
Пример входного файла Task5.txt:
Фарфор 2.3 изолятор
Железо 7.9 проводник
Золото 19.3 проводник
Кремний 2.3 полупроводник
Железо 7.9 проводник
Стекло 2.5 изолятор
Последний раз редактировалось Djezul; 20.05.2009 в 15:26..
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|