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

03.05.2009, 16:14
|
|
Участник форума
Регистрация: 29.07.2007
Сообщений: 124
Провел на форуме: 1266562
Репутация:
60
|
|
[pascal]
собственно мессага: ввод массива чисел(размер не менее 15), ввод числа и поиск его в массиве, если значений несколько-опр. их количество и порядковые номера, если значений нет-поиск ближайшего большего
заранее спасибо( + за мной не заржавеет  )
|
|
|

03.05.2009, 19:16
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 131
Провел на форуме: 1449774
Репутация:
127
|
|
C++
Последний раз редактировалось TR0J@N; 03.05.2009 в 19:18..
|
|
|

03.05.2009, 20:43
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме: 1740746
Репутация:
435
|
|
Сообщение от MRAK9
[pascal]
собственно мессага: ввод массива чисел(размер не менее 15), ввод числа и поиск его в массиве, если значений несколько-опр. их количество и порядковые номера, если значений нет-поиск ближайшего большего
заранее спасибо( + за мной не заржавеет  )
собственно код: (он на дельфи но переделаешь в лёт )
PHP код:
program Project1;
uses
SysUtils;
var
s: array [0..14] of integer;
i,x,j,b: integer;
begin
writeln('********************************'+#10+
'Vvedie element`i massiva:');
for i:=0 to 14 do
begin
read(s[i]);
end;
writeln('________________________________' + #10 +
'Massiv zapolnen do 15 znachenii' + #10 +
'Vvedite chiclo poiska v massive');
read(x);
writeln('################################' + #10);
b:=0;
for i:=0 to 14 do
begin
if s[i]=x then
begin
writeln('> ='+IntToStr(i));
b:=b+1;
end;
end;
if b>0 then
begin
writeln('Odinakovih elementov:' + IntToStr(b));
end
else
begin
x:=s[0];
for i:=1 to 14 do
begin
if s[i]>x then
begin
x:=s[i];
b:=i;
end;
end;
writeln('Odinakovih elementov nety:' + #10 +
'Samii Bolshoi Element:' + IntToStr(x) + #10 +
'On stoit v massive pod nomerom: '+IntToStr(b));
end;
read(x);
end.
i,x,j,b: integer;-Не обращай на j внимание, просто мега обфускация.
Последний раз редактировалось Flame of Soul; 03.05.2009 в 20:52..
|
|
|

04.05.2009, 02:45
|
|
Участник форума
Регистрация: 26.11.2008
Сообщений: 158
Провел на форуме: 2816163
Репутация:
158
|
|
2 TR0J@N
2.
Код:
#include<stdio.h>
#include<conio.h>
#include<math.h>
void main()
{
clrscr();
float A,B,C,S,G;
float G1,P,R,R1;
printf("Input A,B,S -> ");
scanf("%f%f%f",&A,&B,&S);
G=2*S/(A*B);
G1=sqrt(1-G*G);
C=sqrt(A*A+B*B-2*A*B*G1);
P=A+B+C;
R=A*B*C/(4*S);
R1=2*S/P;
printf(" P = %.2f\n R = %.2f\n R1 = %.2f\n",P,R,R1);
getch();
}
3.
Код:
#include<stdio.h>
#include<conio.h>
#include<math.h>
void main()
{
clrscr();
float a,b,c,d,y,x;
printf("BBegu c, d, b, x -> ");
scanf("%f%f%f%f",&c,&d,&b,&x);
a=c*d/(c*c-d*d);
printf("%f\n",a);
if(a<5)
y=a+b/sqrt(25+x*x);
else
y=b*cos(a);
printf("y = %.2f\n",y);
getch();
}
Последний раз редактировалось fker; 05.05.2009 в 05:38..
Причина: ошибка в 3 проге
|
|
|

04.05.2009, 02:55
|
|
Участник форума
Регистрация: 26.11.2008
Сообщений: 158
Провел на форуме: 2816163
Репутация:
158
|
|
продолжение..
4.
Рис. 6.
Код:
#include<stdio.h>
#include<conio.h>
#include<math.h>
void main()
{
clrscr();
int x,n,i,f=1;
float e=1;
printf("BBegu X u N -> ");
scanf("%d%d",&x,&n);
for(i=1; i<=n; i++){
f*=i;
e+=pow(x,i)/f;
// printf("%f %d %f\n",e,f,pow(x,i));
}
printf("e = %.2f\n",e);
getch();
}
Рис. 6.
Код:
#include<stdio.h>
#include<conio.h>
#include<stdlib.h>
int main()
{
clrscr();
int i,j,x,y,min;
int a[10][10];
int n,m;
printf("BBegu pa3mep maccuBa -> ");
scanf("%d%d",&n,&m);
for(i=0; i<n; i++){
for(j=0; j<m; j++){
a[i][j]=rand()%100;
printf("%3d ",a[i][j]);
}
printf("\n");
}
min=a[0][0];
for(i=0; i<n; i++)
for(j=1; j<m; j++)
if(a[i][j]<min){
min=a[i][j];
x=i;
y=j;
}
printf("\nMin - %d (%d cTpoka, %d sTolbec)\n",min,x+1,y+1);
getch();
return 0;
}
ps:
в с++ если что сам переделаешь, там только надо заменить printf и scanf.
|
|
|

04.05.2009, 04:50
|
|
Познающий
Регистрация: 25.03.2009
Сообщений: 57
Провел на форуме: 1153678
Репутация:
51
|
|
Помогите пожалуйста! язык Delphi
Задание: Решить поставленные задачи двумя способами . с применением рекурсии и без
нее.
1. Найти наибольший общий делитель чисел M и N. Используйте теорему
Эйлера: Если M делится на N, то НОД (N, M)=N, иначе НОД (N, M)=
=НОД (M mod N, N)
Последний раз редактировалось Ftopky!; 04.05.2009 в 04:56..
|
|
|

04.05.2009, 12:16
|
|
Участник форума
Регистрация: 13.11.2008
Сообщений: 131
Провел на форуме: 776255
Репутация:
52
|
|
Помогите мне с задачей на паскале!
Два прямоугольника со сторонами, непараллельными осям экрана, заданы координатами трех последовательных вершин. Выяснить, находится ли какой-нибудь из прямоугольников в средине другого и вывести ответ..
|
|
|

04.05.2009, 15:04
|
|
Новичок
Регистрация: 03.05.2009
Сообщений: 1
Провел на форуме: 4949
Репутация:
0
|
|
Задача на Паскале
Помагите пожалуйста решить эти задачки:
1) Дано натуральное число n и целые числа a1,a2,.....,an. Выяснить, верно ли, что количество отрицательных чисел ai, превышают x.
2) Дано предложение. Напечатать все его различные слова
3) Поле шахматной доски определяеться парой натуральных чисел, кажде из каторых не превосходит 8. первое число номер вертикали (при счете слева направо ), второе - номер горизантали (при счете снизу вверх ). Дано натуральное числа а,b,c,d,e,f каждое из каторых не превосходит 8.
На поле (a,b) расположена белая фигура, на поле (c,d)- черная фигура.Определить может ли белая фигура пойти на поле (e,f) не попав при этом под удар черной фигуры.
Рассмотреть следущий вариант сочетаний белой и черной фигуры
Слон и ферзь
|
|
|

04.05.2009, 21:16
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме: 469345
Репутация:
51
|
|
Помогите, пожалуйста, разработать программу нахождения значения определенного интеграла методом Симпсона (на паскале).
Вот, собственно, функция для интегрирования:
y=log3(внизу)х (х+х^2)^-1 .
Исходные данные: интервал интегрирования, количество разбиений отрезка.
Результат нужно получить такой: значение интеграла, график заданной функции.
Решение интерпретировать графически (автоматическое масштабирование, название графика, метки на осях и обозначение осей).
Также нужно предусмотреть переключение между графическим и текстовым окнами для ввода исходной информации и вывода результатов интегрирования и графической интерпретации. И предусмотреть проверку корректности данных.
|
|
|

04.05.2009, 21:31
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 131
Провел на форуме: 1449774
Репутация:
127
|
|
C++
Плиз укаво есть время добейте задания из поста #1383
Задания номер: 1,5,6,7
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|