
27.09.2009, 15:05
|
|
Участник форума
Регистрация: 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
Проверил на калькуляторе - сходится.
|
|
|

27.09.2009, 23:26
|
|
Участник форума
Регистрация: 15.12.2006
Сообщений: 212
С нами:
10213522
Репутация:
144
|
|
Создайте текстовый файл, содержащий сведения о телефонах абонентов: фамилия абонентов, год установки телефона. Напишите программу, которая формирует двоичный файл, каждый элемент которого является структурой, составленной на основе данных текстового файла. Отсортируйте данные бинарного файла в алфавитном порядке фамилий абонентов и по вводимой фамилии абонента выведите его номер телефона
Создать текстовый файл, содержащий сведения о сотрудниках института: фамилия работающего, название отдела, год рождения, стаж работы, должность, оклад. Напишите программу, которая формирует двоичный файл, каждый элемонт которого является структурой, составленной на основе данных текстового файла. Отсортируйте данные бинарного файла в порядке возрастания стажа работы. Выведите на экран информацию о сотрудниках, чей стаж работы больше Х лет.
С++
Ребят выручите.
|
|
|

28.09.2009, 18:29
|
|
Постоянный
Регистрация: 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.
Заранее спасибо)
|
|
|

28.09.2009, 19:06
|
|
Участник форума
Регистрация: 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..
|
|
|

28.09.2009, 18:58
|
|
Познавший АНТИЧАТ
Регистрация: 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();
|
|
|

29.09.2009, 00:06
|
|
Участник форума
Регистрация: 26.11.2008
Сообщений: 158
С нами:
9187097
Репутация:
158
|
|
ss88
А как лучше - читать текстовый, создавать массив потом сортировать и записывать в бинарный файл или - сразу читать текстовик и записывать в бинарный а потом сортировать(уже в бинаре) ?
|
|
|

29.09.2009, 01:08
|
|
Постоянный
Регистрация: 16.08.2006
Сообщений: 640
С нами:
10386906
Репутация:
599
|
|
зависит от количества записей. если их очень много - то чтобы не убить оперативу делаешь сортировку слиянием, она работает с файлами. если записей не фатально много - сортировка в памяти и лишь потом запись.
|
|
|

30.09.2009, 00:10
|
|
Участник форума
Регистрация: 27.11.2008
Сообщений: 161
С нами:
9185589
Репутация:
128
|
|
Полностью согласен с Ra$cal, это уже тонкости контекста применения и это не касается банальной лабораторной работы 1-го или 2-го курса, которая рассматривалась в данном случае.
Вот бы преподы радовались, если бы мы писали такой код на 1-м или 2-м курсе ))) А то... вспомню-вздрогну )))
|
|
|

30.09.2009, 19:13
|
|
Познающий
Регистрация: 13.12.2008
Сообщений: 75
С нами:
9162406
Репутация:
20
|
|
TurboPascal
27 школьных задач по turbopascal - 500 рублей , могу и webmoney ...
скачать задачи
кому интересно :
icq : 2669856-пять-шесть
|
|
|

30.09.2009, 19:19
|
|
Участник форума
Регистрация: 27.11.2008
Сообщений: 161
С нами:
9185589
Репутация:
128
|
|
Сообщение от Lionis
27 школьных задач по turbopascal - 500 рублей , могу и webmoney ...
скачать задачи
кому интересно :
icq : 2669856-пять-шесть
А самому, не? )))
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|