• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Студентам. Помощь в программировании

  • Автор темы Автор темы Matrix
  • Дата начала Дата начала
Статус
В этой теме нельзя размещать новые ответы.
Спасибо большое Владимир!я очень вам блогодарен
 
Спасибо Вам Владимир!я очень благодарен Вам!!!
 
а остальные не посмотрите???плиз
 
Sektor написал(а):
а остальные не посмотрите???плиз
Нажмите для раскрытия...

Посмотрю, как выберу время. Пара вопросов:
1. В задаче 2 - какой формат таблицы? Она что - в файле? Есть ли разделители столбцов?
2. В задаче 3 - обязательно ли с подпрограммой? Вполне можно и без нее обойтись.
 
Sektor написал(а):
3. Дан массив, содержащий N элементов. Написать программу с подпрограммой, которая будет выполнять упорядочение элементов массива по возрастанию
Нажмите для раскрытия...

Например, так. Только она без подпрограмм - как-то неохота мне их туда запихивать.

CONST
N=8;
Max:INTEGER=100;
VAR
Min,i,j,Jmin:INTEGER;
A,B:ARRAY[1..N] of INTEGER;
BEGIN
Randomize;
FOR i:=1 TO N DO
BEGIN
A:=Random(Max)-(Max div 2);
Write(A:4);
END;
Writeln;
FOR i:=1 TO N DO
BEGIN
Min:=Max;
FOR j:=1 TO N DO
IF A[j]<Min THEN
BEGIN
B:=A[j];
Jmin:=j;
Min:=A[j];
END;
A[Jmin]:=Max;
END;
FOR i:=1 TO N DO Write(B:4);
Writeln;
Readln;
END.
 
А не могли бы вы посмотреть вот такую еще задачку. Тоже в C.
Дан текст из нескольких строк. Составить слово из последних букв слов k-ой строки.
Заранее спасибо)
 
Революционерка написал(а):
А не могли бы вы посмотреть вот такую еще задачку. Тоже в C.
Дан текст из нескольких строк. Составить слово из последних букв слов k-ой строки.
Заранее спасибо)
Нажмите для раскрытия...

Могу только на Паскале в такие игры поиграть. Надо?
P.S. Ведь собирался пару лет назад С выучить, да так и не собрался.
 
Революционерка написал(а):
А не могли бы вы посмотреть вот такую еще задачку. Тоже в C.
Дан текст из нескольких строк. Составить слово из последних букв слов k-ой строки.
Заранее спасибо)
Нажмите для раскрытия...

Есть пара вопросов:
Слово - имеется ввиду просто взять набор букв и их подряд записать, или слово в том смысле, что по какому-то словарю сделать поиск слова (т.е. из русского языка), состоящего из этого набора букв?
Исходный текст нужно брать из файла?

:)
 
Здравствуйте! Горю!

На плоскости задано множество окружностей (способ задания - координаты центра и радиус). Две окружности А и В назовем связанными, если они пересекаются либо существует третья окружность С заданного множества, связанная с А и В. Выбрать максимальное подмножество попарно не связанных друг с другом окружностей.

Си байлдер... Можно другую разновидность си)
 
Владимир

да обязательно:(
 
Люди помогите решить задачи на PASCAL-е. Заранее спосибо.

1) Дан файл, содержащий текст. Определить, сколько раз встречается в нем самое короткое слово.

2)Дан массив, содержащий как положительные, так и отрицательные числа. Сформировать массив, содержащий только положительные элементы исходного массива.

3)Напишите программу с подпрограммой для ввода с клавиатуры отрицательных чисел и возвращения количества введенных чисел и их суммы. Работа должна завершиться, когда вводится положительное число.
 
Sektor написал(а):
да обязательно:(
Нажмите для раскрытия...

Ладно. Вот вариант с подпрограммой:

CONST
N=8;
Max:INTEGER=100;

TYPE
AR=ARRAY[1..100] of INTEGER;

VAR
A,B:AR;
i:INTEGER;

PROCEDURE Search_Order(As:AR; Ns,MaxS:INTEGER; VAR Bs:AR);
VAR
Min,i,j,Jmin:INTEGER;
BEGIN
FOR i:=1 TO Ns DO
BEGIN
Min:=MaxS;
FOR j:=1 TO Ns DO
IF As[j]<Min THEN
BEGIN
Bs:=As[j];
Jmin:=j;
Min:=As[j];
END;
As[Jmin]:=MaxS;
END;
END;

BEGIN
Randomize;
FOR i:=1 TO N DO
BEGIN
A:=Random(Max)-(Max div 2);
Write(A:4);
END;
Writeln;
Search_Order(A,N,Max,B);
FOR i:=1 TO N DO Write(B:4);
Writeln;
Readln;
END.
 
Революционерка написал(а):
А не могли бы вы посмотреть вот такую еще задачку. Тоже в C.
Дан текст из нескольких строк. Составить слово из последних букв слов k-ой строки.
Заранее спасибо)
Нажмите для раскрытия...

Революционерка написал(а):
csbwalker
Да, просто взять набор букв))Текст надо с клавиатуры вводить)
Нажмите для раскрытия...

Вот, как-то так)
Код: 
#include <STDIO.H>
#include <STRING.H>
#include <STDLIB.H>

void makeWord(char *str, char *result)
{
char *w, d[] = " ";
int i = 0;

        for(w = strtok(str, d); w != NULL; w = strtok(NULL, d))
                if(strlen(w) != 0)
                        result[i++] = w[strlen(w) - 1];

        result[i] = '\0';
}

void ask(char *message, int *n, int minval, int maxval)
{
int x;
        do
        {
                printf("%s [%d...%d]: ", message, minval, maxval);
                scanf("%d", &x);
        } while((x < minval) || (x > maxval));

        *n = x;
}

int main()
{
char *result, *strings;
int count, maxlen, i, a;

        ask("Введите максимальную длину строки", &maxlen, 1, 200);
        ask("Введите количество строк", &count, 1, 200);

        strings = malloc(count * (maxlen + 1));
        if(strings == NULL)
        {
                printf("Не удалось выделить память для текста\n");
                return 1;
        }

        result = malloc(maxlen + 1);
        if(result == NULL)
        {
                printf("Не удалось выделить память для результата\n");
                return 2;
        }

        for(i = 0; i < count; i++)
        {
                printf("Введите строку %d: ", i + 1);
                fflush(stdin);
                gets(strings + i * maxlen);
        }

        do
        {
                ask("Введите номер строки для генерации слова (0 для выхода)", &a, 0, count);
                if(a == 0)
                        break;

                makeWord(strings + (a - 1) * maxlen, result);
                printf("Результат: <%s>\n", result);
        } while(1);
        printf("Работа завершена!\n");

        return 0;
}
 
Eniok написал(а):
На плоскости задано множество окружностей (способ задания - координаты центра и радиус). Две окружности А и В назовем связанными, если они пересекаются либо существует третья окружность С заданного множества, связанная с А и В. Выбрать максимальное подмножество попарно не связанных друг с другом окружностей.

Си байлдер... Можно другую разновидность си)
Нажмите для раскрытия...

Имеется ввиду C++ Builder? Это не разновидность C, а среда разработки и библиотека для C++.
Итого - какой язык-то должен быть? C или C++?
 
Язык я бы назвал так: С++ без классов, потому что на си надо, но разрешено пользоваться немного средствами с++

Вот мой код:
main.cpp
Код: 
/************************Preprocessor's operations***********************/
#include <stdio.h>
#include <math.h>
#include <stdlib.h>
#include <conio.h>
#include "d:\ddz\proc.cpp"
/*****************************Global variables***************************/
FILE *in,*out;                   //Servise variables
char inname[80], outname[80];    //Names of input & output files
int count;                       //Count of circles
int i,j,w;				 //
/******************************Main function*****************************/
int main()
{

	clrscr();
	//Ask the user about name of the input file
	printf("Enter the name of input file, please: ");
	scanf("%s", &inname);
	///////////////////////////////////////////

	//Opening input file
	if ((in = FOpen(inname,"r"))==NULL) return 1;
	////////////////////

	//Reading nomber of circles
	fscanf(in, "%d", &count);
	if (count <1)
	{
		printf("Incorrect format of input file\n");
		fclose(in);
		return 1;
	}
	///////////////////////////
	//Declaring array of CIRCLE
	CIRCLE *circle = new  CIRCLE[count];
	////////////////////////

	//Reading circles information
	printf("Information from input file:\n Count of circles: %i\n",count);
	printf("                                 \n");
	printf("  #     X         Y        R     \n");
	for (i=0;i<count;i++)
	{
		fscanf(in,"%f %f %f", &circle[i].x, &circle[i].y, &circle[i].r);
		printf(" %2i   %5.4f   %5.4f   %5.4f \n",i, circle[i].x,circle[i].y,circle[i].r);
		circle[i].crossflag=0;
	}
	printf("                                 ");
	/////////////////////////////
	//Now test)
	//int **s = new int*[count];
int **s = new int*[count];//тут создали только массив указателей
for(i=0;i<count;++i) s[i]=new int[count];//а вот собственно выделение памяти для элементов массива
for(i=0;i<count;++i) for(j=0;j<count;++j) s[i][j]=0;//обнуление
	for (i=0;i<count;i++) for (j=0;j<count;j++) s[i][j]=0;

	MatrixCreator(s, count, circle);
	printf("\n");
	printf("Matrix of atteinability:\n");
	for (i=0;i<count;i++) {for (j=0;j<count;j++) if (i!=j)printf(" %i",s[i][j]); else printf(" °"); printf("\n");};
	///////////
	getch();
	int *mas=new int[count];

  	Vibor(s, count, mas);
	printf("\n");
	getch();
	for (i=0;i<count;i++) if (mas[i]) printf("%i ", i);
	getch();
	///////////
for(i=0;i<count;++i) delete [] s[i];
delete [] s;
	return 0;
}

proc.cpp
Код: 
//Declaring new data type
struct CIRCLE {
    float x, y, r;
    char crossflag;
};
int j1, k1,l,i2;
/////////////////////////
//Folloving we'll have dinamic array of one
/*******************************Opening file****************************/
FILE *FOpen(char *path, char *reg)
{
	FILE *name;
	if ((name = fopen(path,reg))!=NULL) return name;
	printf("Unable to open file '%s'",path);
	return NULL;
}
/*Tests crossing of 2 circles*/
int test(CIRCLE c1,CIRCLE c2)
{
	//printf("%i %i %i %i %i %i", c1.x, c1.y, c1.r, c2.x, c2.y, c2.r);
	if ( sqrt( (fabs(c1.x-c2.x)*fabs(c1.x-c2.x))+(fabs(c1.y-c2.y)*fabs(c1.y-c2.y)))  <(c1.r+c2.r)) return 1;
	return 0;
}
/////
int test2(CIRCLE c1, CIRCLE c2)
{
	if (((sqrt( ((c1.x-c2.x)*(c1.x-c2.x))+((c1.y-c2.y)*(c1.y-c2.y)))+c1.r)<c2.r)||( (sqrt( ((c1.x-c2.x)*(c1.x-c2.x))+((c1.y-c2.y)*(c1.y-c2.y)))+c2.r)<c1.r))
	return 0;
	return 1;
}
int MatrixCreator(int **s, int n, CIRCLE *circle)
{
	int i2,j2,k2;
	for (i2=0;i2<n;i2++)
		for (j2=0; j2<n; j2++)
			if(i2!=j2)
			 if (test (circle[i2],circle[j2]))
			  if (test2(circle[i2],circle[j2])) s[i2][j2]=5    ;

//	for (i2=0;i2<n;i2++)
//		for (j2=0;j2<n;j2++)
//			for (k2=0;k2<n;k2++)
//				if (i2!=j2)
//				 if(s[k2][i2] && s [j2][k2])
//				  s[j2][i2]=4;
//        for (i2=1;i2<n;i2++) for (j2=1; j2<n; j2++) s[n-j2][i2]= s[i2][n-j2];
	for (k2=0;k2<n;k2++)
		for (i2=0;i2<n;i2++)
			for (j2=0;j2<n;j2++)
				s[i2][j2] = s[i2][j2] || (s[i2][k2] && s[k2][j2]);
	return 0;
}
/*int Vibor(int **s, int i, int *mas, int*w, int n)
 {
	for (j1=0;j1<n;j1++)
		///for(k1=0;k1<n;k1++)
		///	if(!s[j1][k1])
		///		{
		///			mas[*w++]=k1;
		///			Vibor(s,k1,mas,w,n);
		///		}
		k1=1;
		for(l=0;l<*w;l++)
		if (j1==mas[l]) k1=0;
		if ((!k1)||(s[i][j1]==0))
		{       *w++;
			mas[*w]=j1;
			Vibor(s,j1,mas,w,n);

		}
 }
  */
  void  Vibor(int **s, int n, int *mas)
  {//     int l=-1;
	int *flags = new int[n];
	for (i2=0;i2<n;i2++) flags[i2] = mas[i2] = 0;
	l2:
	for (i2=0;i2<n;i2++)
		if (!flags[i2])
			{
				flags[i2]= mas[i2]=1;
				for (j1=0;j1<n;j1++)
					if (s[i2][j1]) flags[j1]=1;

			}
	 for (i2=0;i2<n; i2++)
	 if (!flags[i2]) goto l2;

  }

Только функция Vibor не верна(
 
Спасибочки огромное Владимир!!!Вы мне очень помогли!!!:rolleyes:
 
Вторую решил , с функицией проблемы и с файлом.
 
shutti написал(а):
Вторую решил , с функицией проблемы и с файлом.
Нажмите для раскрытия...

С файлом - понятно. Попробую, когда посвободнее буду. А вот что за "функиция" - не понял. Вроде как в задачах 1 и 3 никакая "функиция" не упоминается.
 
Здравствуйте помогите пожалуйста срочно решить паскалевские задачи!
1)Дан файл, содержащий текст, и некоторые буквы. Найти слово, содержащее наибольшее количество указанных букв.
2)Среди работников данного предприятия найти тех, чья заработ¬ная плата за месяц ниже средней по предприятию, а также распеча¬тать список тех, кто проработал на предприятии более 10 лет, с ука¬занием их фамилии, зарпла-ты, стажа работы и должности.
3)Даны два массива. Найти число различных элементов и указать их порядковые номера. Если таковых не имеется – сообщить об этом.

За ранее большое спасибо!!!
 
Статус
В этой теме нельзя размещать новые ответы.
Назад
Сверху