ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1371  
Старый 03.05.2009, 16:14
Аватар для MRAK9
MRAK9
Участник форума
Регистрация: 29.07.2007
Сообщений: 124
Провел на форуме:
1266562

Репутация: 60
По умолчанию

[pascal]

собственно мессага: ввод массива чисел(размер не менее 15), ввод числа и поиск его в массиве, если значений несколько-опр. их количество и порядковые номера, если значений нет-поиск ближайшего большего

заранее спасибо( + за мной не заржавеет )
 
Ответить с цитированием

C++
  #1372  
Старый 03.05.2009, 19:16
Аватар для TR0J@N
TR0J@N
Участник форума
Регистрация: 30.03.2007
Сообщений: 131
Провел на форуме:
1449774

Репутация: 127
Отправить сообщение для TR0J@N с помощью ICQ
Post C++

Ну очень надо) Язык C++ (консольки)
В большинстве лабораторок прилогается блок схема и программа на бейсике!

1.

2.

3.

4.

5.

6.

7.

Всё в одном архиве

Последний раз редактировалось TR0J@N; 03.05.2009 в 19:18..
 
Ответить с цитированием

  #1373  
Старый 03.05.2009, 20:43
Аватар для Flame of Soul
Flame of Soul
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746

Репутация: 435
Отправить сообщение для Flame of Soul с помощью MSN
По умолчанию

Цитата:
Сообщение от MRAK9  
[pascal]

собственно мессага: ввод массива чисел(размер не менее 15), ввод числа и поиск его в массиве, если значений несколько-опр. их количество и порядковые номера, если значений нет-поиск ближайшего большего

заранее спасибо( + за мной не заржавеет )



собственно код: (он на дельфи но переделаешь в лёт )
PHP код:
program Project1;
uses
  SysUtils
;
var
  
s: array [0..14of integer;
  
i,x,j,binteger;
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..
 
Ответить с цитированием

  #1374  
Старый 04.05.2009, 02:45
Аватар для fker
fker
Участник форума
Регистрация: 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 проге
 
Ответить с цитированием

  #1375  
Старый 04.05.2009, 02:55
Аватар для fker
fker
Участник форума
Регистрация: 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.
 
Ответить с цитированием

  #1376  
Старый 04.05.2009, 04:50
Аватар для Ftopky!
Ftopky!
Познающий
Регистрация: 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..
 
Ответить с цитированием

  #1377  
Старый 04.05.2009, 12:16
Аватар для Si{R}ius
Si{R}ius
Участник форума
Регистрация: 13.11.2008
Сообщений: 131
Провел на форуме:
776255

Репутация: 52
По умолчанию

Помогите мне с задачей на паскале!

Два прямоугольника со сторонами, непараллельными осям экрана, заданы координатами трех последовательных вершин. Выяснить, находится ли какой-нибудь из прямоугольников в средине другого и вывести ответ..
 
Ответить с цитированием

  #1378  
Старый 04.05.2009, 15:04
Аватар для Qrty
Qrty
Новичок
Регистрация: 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) не попав при этом под удар черной фигуры.
Рассмотреть следущий вариант сочетаний белой и черной фигуры
Слон и ферзь
 
Ответить с цитированием

  #1379  
Старый 04.05.2009, 21:16
Аватар для SHAXID
SHAXID
Познающий
Регистрация: 13.12.2007
Сообщений: 56
Провел на форуме:
469345

Репутация: 51
Отправить сообщение для SHAXID с помощью ICQ
По умолчанию

Помогите, пожалуйста, разработать программу нахождения значения определенного интеграла методом Симпсона (на паскале).
Вот, собственно, функция для интегрирования:

y=log3(внизу)х (х+х^2)^-1 .


Исходные данные: интервал интегрирования, количество разбиений отрезка.
Результат нужно получить такой: значение интеграла, график заданной функции.

Решение интерпретировать графически (автоматическое масштабирование, название графика, метки на осях и обозначение осей).
Также нужно предусмотреть переключение между графическим и текстовым окнами для ввода исходной информации и вывода результатов интегрирования и графической интерпретации. И предусмотреть проверку корректности данных.
 
Ответить с цитированием

  #1380  
Старый 04.05.2009, 21:31
Аватар для TR0J@N
TR0J@N
Участник форума
Регистрация: 30.03.2007
Сообщений: 131
Провел на форуме:
1449774

Репутация: 127
Отправить сообщение для TR0J@N с помощью ICQ
Post

C++

Плиз укаво есть время добейте задания из поста #1383

Задания номер: 1,5,6,7
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сюда выкладываем все проги для фрикринга мобильников, которых знаем! nigger Сотовый фрикинг 5 11.04.2009 11:15
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ