ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #2291  
Старый 25.01.2010, 20:10
cupper
Постоянный
Регистрация: 06.06.2007
Сообщений: 575
Провел на форуме:
1180737

Репутация: 180


По умолчанию

Цитата:
Сообщение от atomOK  
Помогите плиз переводчице сделать еще 5 лаб по с++

воть http://narod.ru/disk/17246678000/laba.doc.html

С 6ой уже помогли.

Если надо с меня качественный рерайт, перевод.
5-я:
Код:
#include<stdlib.h>
#include<stdio.h>
#include<math.h>
#include<conio.h>
void main()
{
	int x[20];
	int k=0;
	clrscr();
	randomize();
	for(int i=0;i<18;i++)
	{
		x[i]=(random(100) - random(100));
		printf("x[%2d]=%2d\n",i,x[i]); 
	}
	printf("-------");
	for(i=0;i<18;i++){
		if (x[i] < 0){
			printf("x[%2d] = %2d \n", i, x[i]);
			break;
		}
	}
	scanf("%d",&k);
}
4-я: (также с минимальными изменениями)
Код:
#include<stdlib.h>
#include<stdio.h>
#include<math.h>
#include<conio.h>
long factor(int k)
{long res;
if((k==1)||(k==0)) res=1;
else res=factor(k-1)*k;
return res;
}
float chlen(int m,float h)
{ float res;
//res=(m+2)*cos(m)/(factor(2*m+1)+pow(log(m*pow(h,2)),3));
res=pow(-1,m+1) * sqrt(m*pow(h,m)) / factor(m+1);
return res;
}
void main()
{clrscr();
float x=0.8,s=0,y=1,toch=1e-5;
int i=1;
while(fabs(y)>=toch)
{y=chlen(i,x);s+=y;
printf("%4d %10.8f %10.8f\n",i,y,s);
i++;}
printf("%f",s);
scanf("%f",&x);
}

Последний раз редактировалось cupper; 25.01.2010 в 20:22..
 
Ответить с цитированием

  #2292  
Старый 28.01.2010, 17:11
AmadeoRache
Участник форума
Регистрация: 12.04.2009
Сообщений: 107
Провел на форуме:
1345980

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

Помогите пожалуйста с практической работой .
Написать нужно на Pascal графическую программу .
Травка , Дерево , Облака , солнышко.
Гусеницу которая заползает на дерево .
Гусеница должна быть вот такой
 
Ответить с цитированием

  #2293  
Старый 28.01.2010, 21:05
KrabKN
Новичок
Регистрация: 22.01.2010
Сообщений: 25
Провел на форуме:
63520

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

Напесать программу на СИ очень срочно нужно

Написать программу, реализует две функции с одинаковыми именами, но разными входными параметрами (перегрузка).
Функция Kol, которая находит количество положительных чисел с n введенных и количество символов в слове.
 
Ответить с цитированием

Массивы
  #2294  
Старый 28.01.2010, 21:24
a1ertso
Новичок
Регистрация: 16.12.2009
Сообщений: 29
Провел на форуме:
101927

Репутация: 0
По умолчанию Массивы

Здравствуйте.
Задачка на делфи. Помогите пожалуйста.
В массиве B(n,n) элементы строки, содержащей наибольший элемент, заменить на A:
 
Ответить с цитированием

  #2295  
Старый 28.01.2010, 22:23
a1ertso
Новичок
Регистрация: 16.12.2009
Сообщений: 29
Провел на форуме:
101927

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

Цитата:
program MAX_zamen;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=3;
var
b:array[1..n,1..n] of real;
I,j:interger;
a:array [1..n] of real;
begin
writeln(‘введите значения элементов матрицы по строкам’);
writeln(‘в конце каждой строки нажимайте Enter’);
for i:=1 to n do
begin
for j:=1 to n do read(b[i,j]);
writeln;
end;
for i:=1 to n do
begin
a[i]:=b[i,1];
for j:=2 to n do
if a[i]<b[i,j] then a[i]:=b[i,j];
end;
writeln (‘Наибольшие значения строк матрицы S’);
writeln (‘Номер строки Наибольшее значение’);
for i:=1 to n do
writeln (i:6,’ ’:20,a[i]);
readln;
end.
Нашел наибольший, а вот как заменить? У меня все не как не получится, то что-то не хватает, то лишнее выполняю. Помогите дописать пожалуйста. Хотя вроде все правильно...

Последний раз редактировалось a1ertso; 28.01.2010 в 22:35..
 
Ответить с цитированием

  #2296  
Старый 29.01.2010, 00:21
a1ertso
Новичок
Регистрация: 16.12.2009
Сообщений: 29
Провел на форуме:
101927

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

Спасибо.
Написал, но теперь появились ошибки, а исправить не получается. Помогите пожалуйста. Кто поможет киньте в пм свой WMR. Немного отблагодарю.
Вот код:
PHP код:
program MAX_ZAMEN;
{
$APPTYPE CONSOLE}
uses
  SysUtils
;

const 
n=3;
var
b:array[1..n,1..nof real;
I,j:integer;
max,mm,a,pr:integer;
label prog1,prog2,prog3;

// OPISANIE PROGRAM 2

const
n2=10;
type
ar
=array[1..n2of real;

var
c2:array [1..10of real ;
    
a2,b2:array [1..5of real;

  
i2:integer;


  
//---- end ---

BEGIN
    Writeln
('Press 1 to run program 1, Press 2 to run program 2. Press 3 for exit');
    
read(pr);
    if 
pr=1 then goto prog1;
      if 
pr=2 then goto prog2;
        if 
pr=3 then goto prog3  ;


 
prog1:
begin
writeln
('введите значения элементов матрицы по строкам');
writeln('в конце каждой строки нажимайте Enter');
for 
i:=1 to n do
begin
 
for j:=1 to n do read(b[i,j]);
 
readln;
end;

write('Значение A -> ');
readln(a);
 
mm:=1;
for 
i:=1 to n do
begin
 max
:=1;
 for 
j:=2 to n do
 if 
b[i,max] < b[i,jthen max:=j;
 
writeln(i,'-я строка = ',max[i,max]:0:4);
 if 
mm<max then mm:=i;
end;
for 
j:=1 to n do b[mm,j]:=a;

writeln('Преобразованная матрица');
for 
i:=1 to n do
begin 
 
for j:=1 to n do write(b[i,j]:0:4,' ');
 
writeln;
end;
readln;
end;


prog2:





Begin
   Writeln
('vvedite',n2,'veschestvenyu elementov');
    for 
i2:=1 to 5 do begin
    readln
(A2[i2]);
    
readln(B2[i2]);
   
end;
  for 
i2:=1 to 10 do
   if (
i2 mod 2=0then
   c2
[i2]:=B2[i2];
  for 
i2:=1 to 10 do
   
writeln(C2[i2]);
   
READLN;
   
readln;
prog3:

   
end;

   
end
 
Ответить с цитированием

  #2297  
Старый 29.01.2010, 01:02
KrabKN
Новичок
Регистрация: 22.01.2010
Сообщений: 25
Провел на форуме:
63520

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

http://content.foto.mail.ru/mail/0262610/_animated/i-2.gif

очень срочн нужно создать програму на си
 
Ответить с цитированием

  #2298  
Старый 29.01.2010, 01:29
lokli
Новичок
Регистрация: 28.12.2009
Сообщений: 7
Провел на форуме:
119162

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

Насколько я понял "где Р(к)=а+к" относиться ко второму рядку. И так как о к тоже ничего не сказано я посчитал, что к тоже натуральное число. Так что KrabKN держи
Код:
#include <stdio.h>
#include <math.h>
void main()
{
int a,k,p;
printf("enter a: ");
scanf("%d", &a);
printf("enter k: ");
scanf("%d", &k);
if(k>a)
p=pow((k+a),2);
else
p=k+1;
printf("p=%d",p);
}
 
Ответить с цитированием

  #2299  
Старый 29.01.2010, 01:41
a1ertso
Новичок
Регистрация: 16.12.2009
Сообщений: 29
Провел на форуме:
101927

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

Ну что, никто немного заработать не хочет? Там всего лишь одна - две ошибки. На массив ругается... Срочно нужно просто... Сдать утром.
 
Ответить с цитированием

  #2300  
Старый 29.01.2010, 05:59
GenaD
Познающий
Регистрация: 23.08.2007
Сообщений: 96
Провел на форуме:
454396

Репутация: 16
Exclamation

Ai,j = √i + j/2
Bi,j = √i - j/2
Поменять местами значения масива А с максимальным и минимальным значением и перемножить матрицы А і В
Очень нужно срочно решение этой задачи!!
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сюда выкладываем все проги для фрикринга мобильников, которых знаем! 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