HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1  
Старый 27.09.2009, 15:05
Dosia
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
С нами: 8912059

Репутация: 249
По умолчанию

Код:
program SREDNEE_GEOMETRICHESKOE;

var
SrGeoM:real;
i:integer;

begin
SrGeom:=1;
for i:=1 to 9 do SrGeom:=SrGeom*i;
srGeom:=exp(ln(srGeom)/i);
writeln('Srednee geometricheskoe vseh zelih polozhitelnix chisel menshe 10 [1..9] = ',SrGeom:6:4);

readln;
end.
Результат работы:
Код:
Srednee geometricheskoe vseh zelih polozhitelnix chisel menshe 10 [1..9] = 4.147
2
Проверил на калькуляторе - сходится.
 
Ответить с цитированием

  #2  
Старый 27.09.2009, 23:26
Validol
Участник форума
Регистрация: 15.12.2006
Сообщений: 212
С нами: 10213522

Репутация: 144
По умолчанию

Цитата:
Создайте текстовый файл, содержащий сведения о телефонах абонентов: фамилия абонентов, год установки телефона. Напишите программу, которая формирует двоичный файл, каждый элемент которого является структурой, составленной на основе данных текстового файла. Отсортируйте данные бинарного файла в алфавитном порядке фамилий абонентов и по вводимой фамилии абонента выведите его номер телефона
Цитата:
Создать текстовый файл, содержащий сведения о сотрудниках института: фамилия работающего, название отдела, год рождения, стаж работы, должность, оклад. Напишите программу, которая формирует двоичный файл, каждый элемонт которого является структурой, составленной на основе данных текстового файла. Отсортируйте данные бинарного файла в порядке возрастания стажа работы. Выведите на экран информацию о сотрудниках, чей стаж работы больше Х лет.
С++

Ребят выручите.
 
Ответить с цитированием

  #3  
Старый 28.09.2009, 18:29
jecka3000
Постоянный
Регистрация: 15.03.2008
Сообщений: 441
С нами: 9555536

Репутация: 95
По умолчанию

Составить программу, вычисляющую значение переменной F по правилу:
min(x,y), если а -цифра
F=
max(x,y), если а - не цифра
Переменные x,y,F – вещественные, переменная a – символьная. Значение переменных x,y,a ввести с клавиатуры. На экран вывести значение переменных x,y,a и вычисленное значение переменной F.

язык - с#
ИСпользовать жедательно толко оператор if else.

Заранее спасибо)
 
Ответить с цитированием

  #4  
Старый 28.09.2009, 19:06
ss88
Участник форума
Регистрация: 27.11.2008
Сообщений: 161
С нами: 9185589

Репутация: 128
По умолчанию

Цитата:
Сообщение от Validol  
С++

Ребят выручите.
Код:
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#define ABONENTS_COUNT_MAX 500
#define LINE_MAX 256

typedef struct {
	char name[LINE_MAX];
	char phone_number[LINE_MAX];
	unsigned int installation_year; 
} abonent;

int abonents_compare (const void * a, const void * b) {
  return strcmp(((abonent*)a)->name,((abonent*)b)->name);
}

int main(int argc, char** argv){

	FILE * text_file = fopen(argv[1],"rt");
    
    abonent abonents[ABONENTS_COUNT_MAX];
    
    int abonents_count = 0;
    
    char buf_name[LINE_MAX], buf_number[LINE_MAX];
    
    int buf_year;
    
	while( fscanf(text_file,"%s %s %d", buf_name,buf_number,&buf_year)!= EOF){
		strcpy(abonents[abonents_count].name,buf_name);
		strcpy(abonents[abonents_count].phone_number,buf_number);
		abonents[abonents_count++].installation_year = buf_year;
	}
	
	fclose(text_file);
	
   qsort (abonents, abonents_count, sizeof(abonent), abonents_compare);
   FILE * struct_file = fopen("base.txt","w");	
   fwrite(abonents,sizeof(abonent),abonents_count,struct_file);
   fclose(struct_file);
	
	char name[LINE_MAX];
	while(1){
		printf("Enter the name: ");
		scanf("%s",name);
		for(int i=0; i<abonents_count; i++)
			if(strcmp(abonents[i].name,name)==0)
				printf("%s\n",abonents[i].phone_number);
  }
	
	return 0;
}
Делов-то, это про телефоны, второе делай по аналогии. Перед тем, как идти сдавать, разберись, что в проге происходит. Она выполняет все, что от тебя требовалось.

Текстовый файл в таком формате
Цитата:
abonent 884756739 1998
hd 8288374 1999
1_abonent 44556654 1967

Последний раз редактировалось ss88; 28.09.2009 в 19:10..
 
Ответить с цитированием

  #5  
Старый 28.09.2009, 18:58
Kaimi
Познавший АНТИЧАТ
Регистрация: 23.08.2007
Сообщений: 1,237
С нами: 9851426

Репутация: 1676


По умолчанию

Код:
Console.WriteLine("Enter x: ");
int x = int.Parse(Console.ReadLine());
Console.WriteLine("Enter y: ");
int y = int.Parse(Console.ReadLine());
Console.WriteLine("Enter a: ");
char a = char.Parse(Console.ReadLine());
int F = 0;
if(Char.IsDigit(a))
	{
		F = x > y ? y : x;
	}
else if(Char.IsLetter(a))
	{
		F = x > y ? x : y;
	}
Console.WriteLine("\nX: {0} ; Y: {1} ; A: {2}\nF: {3}", x,y,a,F);
Console.ReadLine();
 
Ответить с цитированием

  #6  
Старый 29.09.2009, 00:06
fker
Участник форума
Регистрация: 26.11.2008
Сообщений: 158
С нами: 9187097

Репутация: 158
По умолчанию

ss88
А как лучше - читать текстовый, создавать массив потом сортировать и записывать в бинарный файл или - сразу читать текстовик и записывать в бинарный а потом сортировать(уже в бинаре) ?
 
Ответить с цитированием

  #7  
Старый 29.09.2009, 01:08
Ra$cal
Постоянный
Регистрация: 16.08.2006
Сообщений: 640
С нами: 10386906

Репутация: 599


По умолчанию

зависит от количества записей. если их очень много - то чтобы не убить оперативу делаешь сортировку слиянием, она работает с файлами. если записей не фатально много - сортировка в памяти и лишь потом запись.
 
Ответить с цитированием

  #8  
Старый 30.09.2009, 00:10
ss88
Участник форума
Регистрация: 27.11.2008
Сообщений: 161
С нами: 9185589

Репутация: 128
По умолчанию

Полностью согласен с Ra$cal, это уже тонкости контекста применения и это не касается банальной лабораторной работы 1-го или 2-го курса, которая рассматривалась в данном случае.

Вот бы преподы радовались, если бы мы писали такой код на 1-м или 2-м курсе ))) А то... вспомню-вздрогну )))
 
Ответить с цитированием

TurboPascal
  #9  
Старый 30.09.2009, 19:13
Lionis
Познающий
Регистрация: 13.12.2008
Сообщений: 75
С нами: 9162406

Репутация: 20
Exclamation TurboPascal

27 школьных задач по turbopascal - 500 рублей , могу и webmoney ...
скачать задачи
кому интересно :
icq : 2669856-пять-шесть
 
Ответить с цитированием

  #10  
Старый 30.09.2009, 19:19
ss88
Участник форума
Регистрация: 27.11.2008
Сообщений: 161
С нами: 9185589

Репутация: 128
По умолчанию

Цитата:
Сообщение от Lionis  
27 школьных задач по turbopascal - 500 рублей , могу и webmoney ...
скачать задачи
кому интересно :
icq : 2669856-пять-шесть
А самому, не? )))
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости. Обсуждения. 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.

×

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

Введите сумму USDT:

Принимается только USDT TRC20. Fake/Flash USDT не засчитывается.

×

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

Сумма USDT:

Ваш USDT TRC20 кошелек:

Заявка будет отправлена администратору. Комиссия форума: 2%.

×

Создать сделку

Продавец: ник или ID

Название сделки:

Сумма USDT:

Срок сделки, дней:

Кто платит комиссию:

Условия сделки:

После создания сделки средства будут зарезервированы в холде до завершения сделки.

×

Мои сделки

Загрузка...
×

Сделка


Загрузка чата...
×

ESCROW ADMIN PANEL

Загрузка...
Загрузка...