Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
29.04.2009, 14:37
|
|
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
Провел на форуме:
813785
Репутация:
314
|
|
Сообщение от ZorGan
Добрый день, вот задали 2 задачки
Условие
Найти значение переменной у после выполнения программы на языке Pascal.
 Ответ: B0AR0AN
Сообщение от ZorGan
и еще вот эту:
Найти значение выражение Fun(6), вычисленное при обращении к функциям в программе,написанной на языке Pascal
function fun(n: integer): integer;
begin
if n=0 then fun:=1
else fun:=n*fun(n-1)-2
end;
Ответ: -1754
Сообщение от ZorGan
Пожалуста объясните как решать,очень нужно  Просто загнать в паскаль/делфи и скомпилировать
|
|
|
29.04.2009, 16:07
|
|
Новичок
Регистрация: 28.04.2009
Сообщений: 4
Провел на форуме:
13469
Репутация:
0
|
|
Сообщение от s0l_ir0n
Ответ: B0AR0AN
Ответ: -1754
Просто загнать в паскаль/делфи и скомпилировать
спасибо, но просто мне надо ее решать письменно-это задание одного из вариантов моего теста, который мы решаем не на компьютерах,а просто в аудиториях...
если не сложно объясни как у тебя получилось -1754
|
|
|
|
29.04.2009, 19:14
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
Провел на форуме:
1686751
Репутация:
138
|
|
Кому не трудно и кто умеет писать на паскале , нужно сделать вот такую задачку:
Создать файл F из целых чисел.Переписать в файл G те элементы файла F,которые при деление на 5 дают в остатке 1 или 4.
Исходные данные: F={16;19;21;20;12;31;29;}
|
|
|
|
29.04.2009, 20:58
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от ZorGan
спасибо, но просто мне надо ее решать письменно-это задание одного из вариантов моего теста, который мы решаем не на компьютерах,а просто в аудиториях...
если не сложно объясни как у тебя получилось -1754
итак.. fun(n) - какая-то штука, которая использует fun(n-1).
посмотрим:
fun(0)=1;
fun(1)=1*1-2=-1
fun(2)=2*(-1)-2=-4
fun(3)=3*(-4)-2=-14
и т.д.
вот и посчитали)
а вообще-то, конкретно тут, нам задана рекуррента
которую можно и так решить
//не знаю, сколько проживёт ссылка на картинку - прямая такая: http://www.d120.de/cgi-bin/mathtex.cgi?%5Cleft%5C{%5Cbegin{array}{l}x_0%20=%2 01%5C%5C%20%20x_n%20=n%5Ccdot%20x_{n-1}-2%5Cend{array}%5Cright.
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
30.04.2009, 02:21
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
Провел на форуме:
1686751
Репутация:
138
|
|
АП! Срочно просто надо! Моя задачка на пост выше
|
|
|
|
30.04.2009, 03:53
|
|
Новичок
Регистрация: 28.04.2009
Сообщений: 4
Провел на форуме:
13469
Репутация:
0
|
|
Сообщение от desTiny
итак.. fun(n) - какая-то штука, которая использует fun(n-1).
посмотрим:
fun(0)=1;
fun(1)=1*1-2=-1
fun(2)=2*(-1)-2=-4
fun(3)=3*(-4)-2=-14
и т.д.
вот и посчитали)
а вообще-то, конкретно тут, нам задана рекуррента
которую можно и так решить
//не знаю, сколько проживёт ссылка на картинку - прямая такая: http://www.d120.de/cgi-bin/mathtex.cgi?%5Cleft%5C{%5Cbegin{array}{l}x_0%20=%2 01%5C%5C%20%20x_n%20=n%5Ccdot%20x_{n-1}-2%5Cend{array}%5Cright. спасибо огромное
Последний раз редактировалось ZorGan; 30.04.2009 в 05:45..
|
|
|
|
30.04.2009, 07:52
|
|
Участник форума
Регистрация: 14.03.2009
Сообщений: 237
Провел на форуме:
813785
Репутация:
314
|
|
Сообщение от oOoOoOo
Кому не трудно и кто умеет писать на паскале , нужно сделать вот такую задачку:
Код:
program Project1;
const
_F:array[1..7] of integer=(16,19,21,20,12,31,29); //Исходные данные
var
f,g:textfile; //файлы в которые будем писать
i:integer; // счетчик
begin
Assign(f,'f.dat'); //Открыть файл f
Rewrite(f); //на запись
for i:=1 to 7 do // 7 раз повторить
Writeln(f,_F[i]); //записать в файл f, значение массива _F с индексом i
CloseFile(f); //Закрыть файл
Assign(g,'g.dat'); //Открыть файл g
Rewrite(g); //на запись
for i:=1 to 7 do begin // 7 раз повторить-----------------------------------------------|
if _F[i] mod 5 = 1 //если при делении значения массива _F с индеком i на 5, остаток = 1 |
Then Writeln(g,_F[i]); //тогда записать это значение в файл g |
if _F[i] mod 5 = 4 //если при делении значения массива _F с индеком i на 5, остаток = 1 |
Then Writeln(g,_F[i]); //тогда записать это значение в файл g |
end; // вот тут повтор заканчивается-----------------------------------------------------|
CloseFile(g); //Закрыть файл g
end.
|
|
|
|
01.05.2009, 15:53
|
|
Участник форума
Регистрация: 10.02.2009
Сообщений: 203
Провел на форуме:
3226894
Репутация:
379
|
|
В общем в инсте проблема у меня, надо сдать лабу и она на делфи, и его мы должны сами изучить
Вот хочу попросить что бы кто-нибудь смог написать программку по нему..
Она должна быть простенькой т.к нам дали делфи на самообучение.
*******************
Вычислить площадь плоской фигуры, заключенной между дугами кривых: y(x) = -Ln(x) и y(x) = R-x
При каком значении R площадь этой фигуры не превышает единицы
|
|
|
|
03.05.2009, 11:46
|
|
Новичок
Регистрация: 15.05.2008
Сообщений: 9
Провел на форуме:
29934
Репутация:
1
|
|
Подскажите пожалуйста что здесть не так?
PHP код:
#include <graphics.h> //Подключение библиотек
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
#include <math.h>
#include <dos.h>
#define mash 40 //Масштаб - количество пикселей равное числу 0.2
#define PI 3.141592653 //Первая математическая константа(Число Пи(^_^))
#define angle5 0.0872665 //Пять градусов в радианах
#define step 0.0001 //Шаг перебора значений переменной t, при маленьких значениях увеличивается время работы, при больших целостность графика теряется
double A,B,C,D,x1,y1,x2,y2,t,anglex=0.0;
int x,y,maxx,maxy,pmsh=0,sdx=0,sdy=0,g=0;
void drawgraph();
void drawset(){ //Начало функции построения системы координат
int i;
clrscr(); //очистка текстового экрана (Возвращение каретки в начало)
setfillstyle(SOLID_FILL, 0);
bar(0,0,maxx,maxy); //Очистка графического экрана
printf("\n\n\n y=%.2lf*(exp(x/2)+exp(-x/2))/2",A); //Zamenit' na viravnivanie po pravoi stenke!!!
if(A>0.0)
printf("\n max - none\n min = %.2lf",A);
if(A<0.0)
printf("\n max = 0.0\n min = 0.0");
if(A==0.0)
printf("\n max = %.2lf\n min - none",A);
//printf("\n\t\t\t\t\t y=sin(%.2lf+%.2lf*t)*cos(%.2lf+t)",A,B,D);
settextstyle(SMALL_FONT, HORIZ_DIR, 4); //Выбор шрифта
setlinestyle(SOLID_LINE, 1, 1); //Выбор пунктирной линии
if(g%2==0){
line(0,maxy/2,maxx,maxy/2); //Построение линий координатной сетки
line(maxx/2,0,maxx/2,maxy);
moveto(maxx/2+5,maxy/2+5);
outtext("0");
outtextxy(maxx/2-10,5,"Y");
outtextxy(maxx-14,maxy/2-14,"X");
for(i=1;(i*mash<maxx/2)||(i*(mash+pmsh)<maxy/2);i++){ //Цикл построение шкалы
line(maxx/2+i*(mash+pmsh),maxy/2+5,maxx/2+i*(mash+pmsh),maxy/2-5); //Деления на положительной части шкалы абсцисс
line(maxx/2-i*(mash+pmsh),maxy/2+5,maxx/2-i*(mash+pmsh),maxy/2-5); //Деления на отрицательной части шкалы абсцисс
line(maxx/2-5,maxy/2-i*(mash+pmsh),maxx/2+5,maxy/2-i*(mash+pmsh)); //Деления на положительной части шкалы ординат
line(maxx/2-5,maxy/2+i*(mash+pmsh),maxx/2+5,maxy/2+i*(mash+pmsh)); //Деления на отрицательной части шкалы ординат
moveto(maxx/2+i*(mash+pmsh)+5,maxy/2+5); //Нанесение значений шкалы х
switch(i){
case 1: outtext("1");break;
case 2: outtext("2");break;
case 3: outtext("3");break;
case 4: outtext("4");break;
case 5: outtext("5");break;
case 6: outtext("6");break;
case 7: outtext("7");break;
case 8: outtext("8");break;
}
moveto(maxx/2-i*(mash+pmsh)+5,maxy/2+5); //Нанесение значений шкалы х
switch(i){
case 1: outtext("-1");break;
case 2: outtext("-2");break;
case 3: outtext("-3");break;
case 4: outtext("-4");break;
case 5: outtext("-5");break;
case 6: outtext("-6");break;
case 7: outtext("-7");break;
case 8: outtext("-8");break;
}
moveto(maxx/2+5,maxy/2-1+i*(mash+pmsh)); //Нанесение значений шкалы у
switch (i){
case 1: outtext("-1");break;
case 2: outtext("-2");break;
case 3: outtext("-3");break;
case 4: outtext("-4");break;
case 5: outtext("-5");break;
case 6: outtext("-6");break;
case 7: outtext("-7");break;
case 8: outtext("-8");break;
case 9: outtext("-9");break;
case 10: outtext("-10");break;
case 11: outtext("-11");break;
}
moveto(maxx/2+6,maxy/2+1-i*(mash+pmsh)); //Нанесение значений шкалы у
switch (i){
case 1: outtext("1");break;
case 2: outtext("2");break;
case 3: outtext("3");break;
case 4: outtext("4");break;
case 5: outtext("5");break;
case 6: outtext("6");break;
case 7: outtext("7");break;
case 8: outtext("8");break;
case 9: outtext("9");break;
case 10: outtext("10");break;
case 11: outtext("11");break;
}
} //Конец цикла
}
drawgraph();
} //Конец функции
void drawgraph(){ //Функция построения графика
t=maxx/(2*(mash+pmsh));
for(x1=-t;x1<=t;x1+=step){ //Перебор ОДЗ t
y1=A*(exp(-x1/2)+exp(x1/2))/2; //Получение координаты х
x2=x1*cos(anglex)-y1*sin(anglex); //Смещение координат в случае
y2=y1*cos(anglex)+x1*sin(anglex); //Поворота графика на угол anglex
x =x2*(mash+pmsh)+sdx; //Координата х с учетом возможного сдвига и масштаба
y =-y2*(mash+pmsh)+sdy; //Координата у с учетом возможного сдвига ,масштаба и добавочного масштаба для у
putpixel(maxx/2+x,maxy/2+y,5); //Нанесение полученной точки на экран
}
//drawset(); //Вызов функции drawset
} //Конец функции построения графика
void main(){ //Основная функция
char ci;
int gdriver = DETECT, gmode, errorcode;
clrscr();
printf("\nGraffic y=A*(exp(x/2)+exp(-x/2))/2\n");
printf("\nEnter A:");
while(scanf("%lf", &A)!=1){ //Ввод коэффициентов графика
printf("\nError! Re-enter please> ");
ci='c'; while((ci!='\n') && (ci!=EOF)) ci=getchar();}
clrscr();
printf("\nControl:\n\nQ - quit\nG - hide set\n\nA - dicrease \"y\" scale\nS - increase \"y\" scale\nD - reset \"y\" scale\n\nZ - rotate -5gr\nX - rotate 5gr\nC - reset rotate angle");
printf("\n\n2 - y-15pix\n8 - y+15pix\n4 - x-15pix\n6 - x+15pix\n5 - reset");
getch();
initgraph(&gdriver, &gmode, "C:\\BORLANDC\\BGI"); //Инициализация графического режима
errorcode = graphresult();
if (errorcode != grOk){
printf("Graphics error: %s\n", grapherrormsg(errorcode)); //Вывод сооьветствующего сообщения в случае ошибки инициализации графического режима
printf("Press any key to halt:");
getch();
exit(1);}
maxx=getmaxx();//Получение разрешения экрана
maxy=getmaxy();
while(1){ //Вывод графика и ожидание действий
drawset();
ci=getch();
if(ci=='q') break;
if(ci=='g') g++;
if(ci=='x') anglex+=angle5;
if(ci=='z') anglex-=angle5;
if(ci=='a') pmsh-=(mash+pmsh)/10;
if(ci=='s') pmsh+=(mash+pmsh)/10;
if(ci=='c') anglex=0;
if(ci=='d') pmsh=0;
if(ci== 50) sdy+=15;
if(ci== 52) sdx-=15;
if(ci== 53) sdy=sdx=0;
if(ci== 54) sdx+=15;
if(ci== 56) sdy-=15;}
closegraph(); //Закрытие видеорежима
} //Конец программы
Помогите, заранее благодарен! Спасибо! |
|
|
|
03.05.2009, 13:21
|
|
Участник форума
Регистрация: 13.11.2008
Сообщений: 131
Провел на форуме:
776255
Репутация:
52
|
|
Такая задача: (Паскаль)
Два прямоугольника со сторонами, непараллельными осям экрана, заданы координатами трех последовательных вершин. Выяснить, находится ли какой-нибудь из прямоугольников в средине другого..
Заранее благодарен за помощь!
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
