Студентам с лабораторными сюда (архивная - 2015)

интегрирование функции методо прямоугольников

pascal:

Code:

program lab4_11v;
uses Crt;
const a = 0;
      b = 3;
      E = 0.001;

 function arcsin(x:real):real;
 begin
  if x=1.0 then
     arcsin := Pi/2.0
  else
     arcsin := arctan(x/sqrt(1-x*x));
 end;

 function f(x:double):double;
 begin
  f:= arcsin(sqrt(x/(1+x)));
 end;

 var
  S, h,n,M, x,Xn,I : double;

begin
 ClrScr;

 M := 0.05413; {max|f''(x)|}
 h := sqrt( (24*E) / ((b-a)*M) ); {krok}
 n := (b-a)/h; {4aCTuH}

 S := 0;
 x := a;
 repeat
 begin
     Xn := x+h;
      S := S + f((x+Xn)/2);
      x := Xn;
 end;
 until (Xn <= (b-h));

 I:= h * S;
 writeln('I = ',I:5:5);

 readln;
end.

 

eLWAux, double объявляй как static или global... В стэке нельзя большие массивы хранить, а то будет stack overflow!

 

спасибо за ошибку
// программа расчитана на небольшие системи уравнений
// т.е. и на небольшие массиви
// если у вас >100 уравнений, тогда всюда перед обьявлением массива допишите global ..или static

 

Просили накатать лабу по генератору пассвордов

Вот ложу еще и сюда исходники, вдруг кому надо будет.

Написано с ходу и без особого энтузиазма, кому что не нравиться переделывайте сами


http://depositfiles.com/files/uc1fnf6qt

С сохранением в файл (попросили дописать)
http://depositfiles.com/files/tcqqnia0d

2Модераторы

Звыняюсь если нарушаю но задолбали ПМ-ить , поступайте как знаете.

 

Просили написать софт по решению нелинейных уравнений методом итерации.

С меня +

 

Помогите с курсачом.
Прога на Си.
Имеется граф надо найти количество компонент связанности в дополнениии заданного графа.
Ребра графа дополнения я уже нашел осталось тольок найти сколько в графе который состоит из найденных ребер компонент связанности.
Вот такой вот сломаймозг.
-----------------------------------
to cardons:
http://slil.ru/26609953
К обеду мож прога буит.
-----------------------------вот прога к методичке
/* Lab3 28203 */
#include <stdio.h>
#include <math.h>
#include <conio.h>
main()
{
int n=0;
float x,y,z,c,a,b,x0=1,y0=1,eps=0.001;
x=x0; y=y0;
textcolor(90+1);
clrscr();
puts("n x(k) x(k+1) X(k+1)-X(k) y(k) y(k+1) |Y(k+1)-Y(k)|");
do
{
a=x+(x*x+y-6)-(x+y-4);
b=y+(x*x+y-6)-2*(x+y-4);
//a=(2*x-3*x+2)/1-2*x;
//b=(2*x*x*x-13*x)/1-2*x;

z=x; c=y;
printf("|%d| %.4f| %.4f| %.4f| %.4f| %.4f| %.4f| \n",n++,x,a,fabs(a-x),y,b,fabs(b-y));
x=a; y=b;}

while(fabs(z-x)>eps || fabs(c-y)>eps);
getch();
return 0;
}

 

venom_aerocore, тебе нужен обычный DFS (depth first search - поиск в глубину). Посмотри - реализаций в сети (должно быть) полно

 

Помогите пожалуйста решить однородный массив в паскале!
Имеется список запасов на складе типа:
наименование пр. / количество кг/ стоимость ед
Вывести наименование продукта, общая стоимость которого максимальна.

 

Помогите пожалуйста! очень нужно!

 

Code:

var
stoim:array[1..10] of integer;
kol:array[1..10] of integer;
nai:array[1..10] of string;
i,bufs,j,bufk:integer;
bufc:string;
begin
for i:=1 to 10 do
begin
Writeln('Tovar #',i);
write('Nomenklatura: ');
readln(nai[i]);
write('Cena: ');
readln(stoim[i]);
write('Kol-vo: ');
readln(kol[i]);
end;
for j:=1 to 10 do
for i:=1 to 9 do
begin
if (kol[i]*stoim[i]) < (kol[i+1]*stoim[i+1]) then
begin
bufk:=kol[i];
kol[i]:=kol[i+1];
kol[i+1]:=bufk;
bufs:=stoim[i];
stoim[i]:=stoim[i+1];
stoim[i+1]:=bufs;
bufc:=nai[i];
nai[i]:=nai[i+1];
nai[i+1]:=bufc;
end;
end;
writeln('max:');
write(nai[1]);
write(' ',kol[1]);
write(' ',stoim[1]);
end.

 

Haта, найди максимальную стоимость в массиве, и дыведи его наименование,..

 

если нужна просто стоимость то это

Code:

if (kol[i]*stoim[i]) < (kol[i+1]*stoim[i+1]) then

замени на это

Code:

if stoim[i] < stoim[i+1] then

 

[/URL][/IMG]
Эт на Delphi. Помогите пжалусто. Ни че не понимаю((((

 

вобщем дан массив:
[A1] [A2] [A3] [A4] [A5]
Если индекс а (i) делится без остатка на 2, то он четный и используется формула 1/(i*i+2) иначе 1/i
Вроде так. Делфи не знаю.

 

Помогите мне с лабой..надо написать программу на паскале желательно 7.0 или 7.1.
Вообщем сама задача:
Из каждой очередной тройки букв удалить среднюю букву. Тип списка: циклический.
P.S заранее благодарен .

 

Нужно составить прогу...

Например:

Нужно найти всевозможные комбинации от 1 до 40 состоящиe из 8 чисел... например приведу несколько вариантов комбинаций: 1.2.3.4.5.6.7.8 ; 1.2.3.4.5.6.7.9 ; 1.2.3.4.5.6.7.39 ; 1.2.3.4.5.6.24.40 ; 2.7.9.16.23.25.33.37.

Ну и чтою можно было вводить(изменять) эти значения(т.е. значения 40 и 8).

Буду очень благодарен...
Отблагодарю репутацией.
Спасибо за внимание.

 

Bayazid, http://e-maxx.ru/algo/generating_combinations

Вначале хотел свой код выложить, потом решил, что там тебе больше понравится)

 

Спасибо за внимание, но не мог бы ты сделать саму программу?

 

Лаба

Народ такая проблема. Есть задача, Надо ввести информацию о студентах и потом вывести их список в алфавитном порядке.
Вот код:

Code:

#include <stdio.h>
#include <conio.h>
#include <string.h>
#include <iostream>
#define n 4
using namespace std;
string alf = "ABCDEFGHJabcdefg";
struct w{char fam[15];
char name[15];
char otch[15];
char pol[2];
int vozr,kurs;
};
void main()
{w web[n];
int i=0,k=0;
printf("Vvedite fam\n");
while(gets(web[i].fam)!=NULL && i<n)
{
	printf("Vvedite name\n");
	gets(web[i].name);
	printf("Vvedite otchestvo\n");
	gets(web[i].otch);
	printf("Vvedite pol(m ili f)\n");
	gets(web[i].pol);
	/*printf("Vvedite vozrast i kurs\n");
	cin >> web[i].vozr >> web[i].kurs;*/
	if(i<n)printf("Vvedite sled fam\n");i++;
}
k=i;
puts("isxod table");
puts("       fam         |            name      |         otch");
int j=0,b=0;
for(j=0;j<alf.length();j++)
{
for(i=0;i<k;i++)
if(web[i].fam[0]==alf[j])
printf("%15s%17s%20s\n",web[i].fam,web[i].name,web[i].otch);
}
getch();
}

Но есть проблемы.
Во-первых если раскоментировать ввод возраста и курса то он не дает во второй,третий и т.д. раз вводить фамилию,а сразу перескакивает на ввод имени.
Во-вторых он проверяет только по первой букве, а надо что бы при совпадении проверял еще и по второй,а потом если надо по третьей и т.д.
В-третьих программа не пправильно сортирует фамили которые начинаются то с маленьких,то с больших букв!!!
Помогите плиз кто может исправить эти проблемы!!!

scrat: юзайте CODE

 

Лабы на С

1.Простые числа
а.По определению:вывести все простые числа,меньше заданного натурального числа N,проверяя в цикле каждое число на простоту перебором делителей...
б.Решето Эратосфена.Ревлизовать алгоритм поиска простых чисел в интервале от 2 до заданного N при помощи алгоритма Решето Эратосфена...

2.Треугольник Паскаля
а.По определению:каждый элемент треугольника являеться суммой двух элементов "над" ним.Вывести несколько строк треугольника Паскаля,используя не более одного одомерного массива(т.е хранить только текущую строку)
б.по формуле биномиальных коэфициэнтов.Факториал реализовать рекурсивно

ЗЫ исходники (коды) нужны на "С"
зарание благодарен