ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|

25.01.2010, 20:10
|
|
Постоянный
Регистрация: 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..
|
|
|

28.01.2010, 17:11
|
|
Участник форума
Регистрация: 12.04.2009
Сообщений: 107
Провел на форуме: 1345980
Репутация:
18
|
|
Помогите пожалуйста с практической работой .
Написать нужно на Pascal графическую программу .
Травка , Дерево , Облака , солнышко.
Гусеницу которая заползает на дерево .
Гусеница должна быть вот такой 
|
|
|

28.01.2010, 21:05
|
|
Новичок
Регистрация: 22.01.2010
Сообщений: 25
Провел на форуме: 63520
Репутация:
0
|
|
Напесать программу на СИ очень срочно нужно
Написать программу, реализует две функции с одинаковыми именами, но разными входными параметрами (перегрузка).
Функция Kol, которая находит количество положительных чисел с n введенных и количество символов в слове.
|
|
|

28.01.2010, 21:24
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 29
Провел на форуме: 101927
Репутация:
0
|
|
Массивы
Здравствуйте.
Задачка на делфи. Помогите пожалуйста.
В массиве B(n,n) элементы строки, содержащей наибольший элемент, заменить на A:

|
|
|

28.01.2010, 22:23
|
|
Новичок
Регистрация: 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..
|
|
|

29.01.2010, 00:21
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 29
Провел на форуме: 101927
Репутация:
0
|
|
Спасибо.
Написал, но теперь появились ошибки, а исправить не получается. Помогите пожалуйста. Кто поможет киньте в пм свой WMR. Немного отблагодарю.
Вот код:
PHP код:
program MAX_ZAMEN;
{$APPTYPE CONSOLE}
uses
SysUtils;
const n=3;
var
b:array[1..n,1..n] of real;
I,j:integer;
max,mm,a,pr:integer;
label prog1,prog2,prog3;
// OPISANIE PROGRAM 2
const
n2=10;
type
ar=array[1..n2] of real;
var
c2:array [1..10] of real ;
a2,b2:array [1..5] of 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,j] then 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=0) then
c2[i2]:=B2[i2];
for i2:=1 to 10 do
writeln(C2[i2]);
READLN;
readln;
prog3:
end;
end.
|
|
|

29.01.2010, 01:02
|
|
Новичок
Регистрация: 22.01.2010
Сообщений: 25
Провел на форуме: 63520
Репутация:
0
|
|
http://content.foto.mail.ru/mail/0262610/_animated/i-2.gif
очень срочн нужно создать програму на си
|
|
|

29.01.2010, 01:29
|
|
Новичок
Регистрация: 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);
}
|
|
|

29.01.2010, 01:41
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 29
Провел на форуме: 101927
Репутация:
0
|
|
Ну что, никто немного заработать не хочет? Там всего лишь одна - две ошибки. На массив ругается... Срочно нужно просто... Сдать утром.
|
|
|

29.01.2010, 05:59
|
|
Познающий
Регистрация: 23.08.2007
Сообщений: 96
Провел на форуме: 454396
Репутация:
16
|
|
Ai,j = √i + j/2
Bi,j = √i - j/2
Поменять местами значения масива А с максимальным и минимальным значением и перемножить матрицы А і В
Очень нужно срочно решение этой задачи!!
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|