Студентам с лабораторными сюда

08.10.2009, 20:44

Dosia

Участник форума

Регистрация: 05.06.2009

Сообщений: 127

С нами: 8912059

Репутация: 249

Код:

#include <iostream>
#include <time.h>

using namespace std;

void main(void)
{
double MyArray[10000];
double Summ;
int intI;

setlocale(0,"");
srand((unsigned double)time(0));
intI=1;

while (intI<=10000)
{
MyArray[intI]=rand()%10; // Генерируем случайные числа от 0 до 9
Summ = Summ+MyArray[intI];
++intI;
}

cout << "Сумма всех чисел = " << Summ << endl;
system("pause");
}

Результат работы:

Код:

Сумма всех чисел = 45335
Для продолжения нажмите любую клавишу . . .

Последний раз редактировалось Dosia; 08.10.2009 в 20:47..

09.10.2009, 16:06

hallboy

Новичок

Регистрация: 11.11.2008

Сообщений: 7

С нами: 9208749

Репутация: 0

Помогите пожалуйста.Нужно сделать лабораторную..Очень срочно.
Задание:
Создать программы на языках Паскаль и С для обчисления математического примера.Розработать математическую постановку задач и сложыть программы на языках паскаль и Сдля ращета значения.
Оставляйте свой вебмани ил ид вконтакте,одблагодарю)
Кто сможет ,стучите- 49003757пять
задание- http://pic.co.ua/en/view/4f4fc18a242c5f13a80a5ed72e2fe51f/

Методичка на укр.- http://www.sharemania.ru/0192768

09.10.2009, 23:35

ss88

Участник форума

Регистрация: 27.11.2008

Сообщений: 161

С нами: 9185589

Репутация: 128

Цитата:

Сообщение от hallboy

LAB1.C

Код:

#include <stdio.h>
#include <math.h>

int main(int argc, char ** argv){
	double a,x,y,z;
	
	(void) printf("Enter values for X,Y,Z:");
	(void) scanf("%f%f%f",&x,&y,&z);

	a = (3 + exp(y) - 1) / (1 + pow(x,2)*abs(y - tan(z)));
	
	(void) printf("a = %f\n",a);
	
	return 0;
}

Потом доделаю остальные, а сейчас уже спать хочу... Хотя, такие банальные вещи нужно делать самому, это 1-й курс, если я не ошибаюсь?

09.10.2009, 21:11

Spider545

Новичок

Регистрация: 10.04.2009

Сообщений: 26

С нами: 8992516

Репутация: 2

Помогите сделать в C++ Builder
вот такое задание:
1. Реализовать стек при помощи массива. Тип данных стека - int. Со стеком должны выполняться стандартные операции:
1) Push – добавление элемента в стек;
2) Pop – удаление элемента из стека (с выдачей значения удаляемого элемента);
3) Выдача значения верхнего элемента;
4) Очистка стека;
5) Печать количества элементов стека.
2. Реализовать очередь при помощи указателей. Тип данных очереди – int. С очередью должны выполняться стандартные операции:
1) Добавление элемента в очередь;
2) Удаление элемента из очереди (с выдачей значения исключаемого элемента);
3) Выдача значения первого элемента;
4) Очистка очереди;
5) Выдача количества элементов очереди.
Ну пожаааааааааалуста, очень надо((((

09.10.2009, 22:36

Nizhegorodets

Участник форума

Регистрация: 21.03.2009

Сообщений: 207

С нами: 9021828

Репутация: 119

Язык : Pascal
"Произведение цифр"

найти минимальное положительное целое число Q такое, что произведение цифр числа Q в точности равняется N.

Целое число N (0 ≤ N ≤ 109).

Пример:
исходные данные:результат
10:25
12:26

Прошу подсказать алгоритм решения.Заранее спасибо.

10.10.2009, 00:32

Dosia

Участник форума

Регистрация: 05.06.2009

Сообщений: 127

С нами: 8912059

Репутация: 249

Цитата:

Сообщение от Nizhegorodets

Программа генерирует случайное N в заданном промежутке. Программа проверяет все числа от 10 до 999, если произведение цифр числа = N, то цикл будет прерван и программа выдаст число. Иначе сообщит что число не найдено.

Код:

program PROIZV_ZIFR;

var
intI,intC,N,Proizv,Code,tmpI:integer;
strA:string;

begin
randomize;
N:=random(110);
writeln('N randomly set in ',N);
intI:=0;
for intI:=10 to 999 do begin
str(intI,strA);
Proizv:=1;
for intC:=1 to length(strA) do begin
val(strA[intC],tmpI,Code);
Proizv:=Proizv*tmpI;
end;
if Proizv=N then break;
end;
if intI <> 999 then writeln('chislo(Q) = ',strA,' proizvedenie zifr = ',Proizv,' = ',N,'(N)')
else writeln('chislo proizvedenie zifr kotorogo = ',N,' ne naideno');
readln;
end.

Результат работы:

Код:

N randomly set in 49
chislo(Q) = 77 proizvedenie zifr = 49 = 49(N)

N randomly set in 7
chislo(Q) = 17 proizvedenie zifr = 7 = 7(N)

N randomly set in 103
chislo proizvedenie zifr kotorogo = 103 ne naideno

10.10.2009, 18:02

Dosia

Участник форума

Регистрация: 05.06.2009

Сообщений: 127

С нами: 8912059

Репутация: 249

Цитата:

Сообщение от >>serhio<<

Нужна помощь срочно на Turbo Pascale выручайте плизз!!!!!!
Задача 1:
Даны координаты точек на плоскости точек ≤30. Найти пары номера точек, расстояние между которыми наибольшее.
Задача 2:
Дан массив, образовать новый массив состоящий из элементов исходного заканчивающихся на цифру X.

Задача 1:

Для корректной работы программы требуется файл 'input.txt' в котором находятся координаты точек (Файл поместить в директорию с TurboPascal, ну или прописать путь при открытии файла).

Пример:

Код:

Код:

program RASSTOIANIE_MESHDU_TOCHKAMI;

var
f:text;
intI,intB,intM:integer;
MasKorToc:array [1..30,1..2] of integer;
tmpI,MaxRast,tmpRast:real;
goodToch:array[1..30,1..2] of integer;

begin                           
assign(f,'input.txt');
reset(f);
intM:=1;

while eof(f) = false do begin
readln(f,MasKorToc[intM,1],MasKorToc[intM,2]);
writeln('Position = ',intM,' X = ',MasKorToc[intM,1],' Y = ',MasKorToc[intM,2]);
intM:=intM+1;
end;

intM:=intM-1;

for intI:=1 to intM do begin
for intB:=1 to intM do begin

tmpI:=(MasKorToc[intI,1]-MasKorToc[intB,1])*(MasKorToc[intI,1]-MasKorToc[intB,1]);
tmpRast:=sqrt(tmpI+(MasKorToc[intI,2]-MasKorToc[intB,2])*(MasKorToc[intI,2]-MasKorToc[intB,2]));
if tmpRast>MaxRast then begin
goodToch[1,1]:=intI;
goodToch[1,2]:=intB;
MaxRast:=TmpRast;
end;
end;
end;
writeln;
writeln('Maksimalbnoe rasstoianie mezhdu tochkami: ',goodToch[1,1],' i ',goodToch[1,2]);

close(f);
readln;
end.

Результат работы:

input.txt:

Код:

Код:

Position = 1 X = 3 Y = 4
Position = 2 X = 1 Y = 1
Position = 3 X = 5 Y = 3
Position = 4 X = 1 Y = 1
Position = 5 X = 2 Y = 3
Position = 6 X = 0 Y = 0
Position = 7 X = -1 Y = -1

Maksimalbnoe rasstoianie mezhdu tochkami: 3 i 7

input.txt:

Код:

Код:

Position = 1 X = 6 Y = 6
Position = 2 X = 3 Y = 4
Position = 3 X = 1 Y = 1
Position = 4 X = 5 Y = 3
Position = 5 X = 1 Y = 1
Position = 6 X = 2 Y = 3
Position = 7 X = 0 Y = 0

Maksimalbnoe rasstoianie mezhdu tochkami: 1 i 7

Задача 2:

Код:

program MASSIV_ELEMENT_PLUS_X;

var
Ishod:array [1..10] of string;
intI:integer;

begin
writeln('Ishodnui massiv');
for intI:=1 to 10 do begin
str(intI*100,Ishod[intI]);
writeln('Element ',intI,' = ',Ishod[intI]);
end;
writeln;
writeln('Preobrazovannui massiv');
for intI:=1 to 10 do begin
Ishod[intI]:= Ishod[intI]+'10';
writeln('Element ',intI,' = ',Ishod[intI]);
end;

readln;
end.

Код:

Результат работы:
Ishodnui massiv
Element 1 = 100
Element 2 = 200
Element 3 = 300
Element 4 = 400
Element 5 = 500
Element 6 = 600
Element 7 = 700
Element 8 = 800
Element 9 = 900
Element 10 = 1000

Preobrazovannui massiv
Element 1 = 10010
Element 2 = 20010
Element 3 = 30010
Element 4 = 40010
Element 5 = 50010
Element 6 = 60010
Element 7 = 70010
Element 8 = 80010
Element 9 = 90010
Element 10 = 100010

Последний раз редактировалось Dosia; 10.10.2009 в 19:19..

Внести депозит

Депозит создан

Вывести депозит