25.01.2010, 20:10
|
|
Постоянный
Регистрация: 06.06.2007
Сообщений: 575
С нами:
9963746
Репутация:
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..
|
|
|
25.01.2010, 16:59
|
|
Новичок
Регистрация: 28.12.2009
Сообщений: 7
С нами:
8615832
Репутация:
0
|
|
2 atomOK
Первая задача. Написана с минимальными переделками из примера.
Код:
#include<stdlib.h>
#include<stdio.h>
#include<math.h>
#include<conio.h>
void main()
{
float g,f;
int n;
printf("f= ");
scanf("%f",&f);
if (f>=1) {g=cos((f*f)+f-1); n=1;}
else if (f<=-1) {g=f*pow(log(fabs(f)),2); n=3;}
else {g=sin(f/(exp(f)+1)); n=2;}
printf("f= %6.3f g=%8.5f.\n № %d",f,g,n);
scanf("%f",&f);
}
|
|
|
|
25.01.2010, 17:40
|
|
Новичок
Регистрация: 23.01.2010
Сообщений: 8
С нами:
8578375
Репутация:
0
|
|
Сообщение от lokli
2 atomOK
Первая задача. Написана с минимальными переделками из примера.
Код:
#include<stdlib.h>
#include<stdio.h>
#include<math.h>
#include<conio.h>
void main()
{
float g,f;
int n;
printf("f= ");
scanf("%f",&f);
if (f>=1) {g=cos((f*f)+f-1); n=1;}
else if (f<=-1) {g=f*pow(log(fabs(f)),2); n=3;}
else {g=sin(f/(exp(f)+1)); n=2;}
printf("f= %6.3f g=%8.5f.\n № %d",f,g,n);
scanf("%f",&f);
}
Спасибо! 
|
|
|
|
нужна помощ срочно по делфи |
25.01.2010, 19:51
|
|
Новичок
Регистрация: 03.03.2009
Сообщений: 1
С нами:
9047645
Репутация:
0
|
|
нужна помощ срочно по делфи
|
|
|
|
28.01.2010, 17:11
|
|
Участник форума
Регистрация: 12.04.2009
Сообщений: 107
С нами:
8990158
Репутация:
18
|
|
Помогите пожалуйста с практической работой .
Написать нужно на Pascal графическую программу .
Травка , Дерево , Облака , солнышко.
Гусеницу которая заползает на дерево .
Гусеница должна быть вот такой  |
|
|
|
28.01.2010, 21:05
|
|
Новичок
Регистрация: 22.01.2010
Сообщений: 25
С нами:
8580623
Репутация:
0
|
|
Напесать программу на СИ очень срочно нужно
Написать программу, реализует две функции с одинаковыми именами, но разными входными параметрами (перегрузка).
Функция Kol, которая находит количество положительных чисел с n введенных и количество символов в слове.
|
|
|
|
28.01.2010, 21:24
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 29
С нами:
8633638
Репутация:
0
|
|
Массивы
Здравствуйте.
Задачка на делфи. Помогите пожалуйста.
В массиве B(n,n) элементы строки, содержащей наибольший элемент, заменить на A:
 |
|
|
|
28.01.2010, 22:23
|
|
Новичок
Регистрация: 16.12.2009
Сообщений: 29
С нами:
8633638
Репутация:
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
С нами:
8633638
Репутация:
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
С нами:
8580623
Репутация:
0
|
|
http://content.foto.mail.ru/mail/0262610/_animated/i-2.gif
очень срочн нужно создать програму на си
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
