спасибо. времени мало, напишу за неделю неспешно. с граф интерфейсом, xml файлами. Пишите в icq,если что.
4рЗ Спасибо!!!!!!!!! Уточнила: язык программирования СИ, без графинтерфейса, в простом текстовом файле.
Помогите пожалуйста: нужна программа по линейному программированию. "Двойственный симплекс метод". Выложте исходники у кого есть. Или подскажите где скачать.
Делфи. Есть несколько файлов программы: .dfm .pas .dcu .exe Можно ли из первых трёх собрать проект? Если можно то как? В архиве сабж http://narod.ru/disk/20543985000/18471_kursovaja.zip.html
Помогите пожалуйста. Написать модуль на языке Ассемблера для обработки строк (в виде процедуры или макроса). Написать на языке Ассемблера программу корректного ввода исходных данных.
Среда програмирования: ABS Pascal Задача: Пусть задано 10 русских имён. Проверьте все ли имена написаны с прописной буквы, если нет,то исправте ситуацию. Если можно то задачку в лс! Заранее спасибо.
Среда: Delphi Задача: описать устройство работы автомата по продаже газет. Т.е. чтоб мона было на кнпочки нажимать,типа как на настоящем)
пипл, помогите плиз на си накодить следующую штуку Отсортировать строки файла сначала по длине, а затем строки равной длины в алфавитном порядке, результат вывести в файл в алфавитном порядке уже нашел как: Code: #include <stdio.h> #include <stdlib.h> #include <string.h> #define MAXLINE 4096 #define IFNAME "in.txt" #define OFNAME "out.txt" int scmp(const void *p1, const void *p2) { const char *s1, *s2; s1 = * (char **) p1; s2 = * (char **) p2; return strcmp(s1, s2); } int main(void) { FILE *ifp, *ofp; char *lineptr[MAXLINE]; char s[MAXLINE]; int i, nl; ifp = fopen(IFNAME, "r"); if(ifp == NULL || (ofp = fopen(OFNAME, "w")) == NULL) { perror("fopen"); return -1; } for(i = 0; i < MAXLINE; ) { if(fgets(s, sizeof(s), ifp) == NULL) break; if(*s != '\n') lineptr[i++] = strdup(s); } nl = i; qsort(lineptr, nl, sizeof(char *), scmp); for(i = 0; i < nl; i++) { fprintf(ofp, "%s", lineptr[i]); free(lineptr[i]); } fclose(ifp); fclose(ofp); return 0; } осталось первую часть реализовать с меня 5 wmz
Delphi Задача: Написать процедуру, заполняющую квадратную целочисленную матрицу A NxN по следующему правилу: A[i, j] = |_ sin (exp(i) + j^10 _| , где |_ _| операция округления до ближайшего целого, i - строки матрицы, j - столбцы матрицы.
PHP: var i,j,n:integer; a:array[1..100,1..100] of integer; begin write('vvedite N: '); readln(n); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=round(sin(exp(i) + exp(ln(j)*10))); write(a[i,j],' '); end; writeln; end; readln; end.
fsort.h: Code: #ifndef FSORT #define FSORT #define BUFFSIZE 8 #include <stdio.h> #include <stdlib.h> #include <string.h> typedef struct s_fstring FString; struct s_fstring { char * str; size_t count; FString * next; }; #endif main.c: Code: #include "fsort.h" FString * readInput(FILE * infile, FString * head) { int i,k = 0; char buff[BUFFSIZE]; int count = 0; FString * ptr = NULL; head = (FString*)malloc(sizeof(FString)); ptr = head; ptr->str = (char*)malloc(BUFFSIZE+1); ptr->count = 0; while((count = fread(buff, sizeof(char), BUFFSIZE, infile))) { for(i = 0; i < count; i++) { if(buff[i] == '\n') { ptr->str[k] = '\0'; ptr->next = (FString*)malloc(sizeof(FString)); ptr = ptr->next; ptr->str = (char*)malloc(BUFFSIZE+1); ptr->count = 0; ptr->next = NULL; k = 0; } else { if(k == BUFFSIZE+1) ptr->str = (char*)realloc(ptr->str, k+BUFFSIZE); ptr->str[k++] = buff[i]; ptr->count++; } } } ptr->str[k] = '\0'; return head; } void fsort(FString * head) { int i = 1; size_t tmp = 0; char * stmp; FString * ptr = head; FString * foo = NULL; while(i == 1) { i = 0; for(ptr = head; ptr != NULL; ptr = ptr->next) if(ptr->next != NULL) { foo = ptr->next; if(ptr->count > foo->count) { tmp = ptr->count; ptr->count = foo->count; foo->count = tmp; stmp = ptr->str; ptr->str = foo->str; foo->str = stmp; i = 1; } else if(ptr->count == foo->count) if(strcmp(foo->str, ptr->str) < 0) { stmp = ptr->str; ptr->str = foo->str; foo->str = stmp; i = 1; } } } } void strWrite(FILE * outfile, FString * head) { FString * ptr = NULL; size_t size = 0; for(ptr = head; ptr != NULL; ptr = ptr->next) if(ptr->str[0] != 0) { size = fwrite(ptr->str, sizeof(char), ptr->count, outfile); fputc('\n', outfile); if(size != ptr->count) printf("Error whilre writing to file.\n"); printf("Error whilre writing to file.\n"); } } int main(const int argc, const char * argv[]) { FILE * infile = NULL; FILE * outfile = NULL; FString * head = NULL; FString * tmp = NULL; if(argc < 2) { printf("Input filename is not specified.\n"); return 1; } else if(argc < 3) { printf("Output filename is not specified.\n"); return 1; } infile = fopen(argv[1], "r"); outfile = fopen(argv[2], "w"); if(infile == NULL) { printf("Error while reading %s file.\n", argv[1]); return 2; } if(outfile == NULL) { printf("Error while opening %s file.\n", argv[2]); return 2; } tmp = readInput(infile, head); fsort(tmp); strWrite(outfile, tmp); fclose(infile); fclose(outfile); return 0; } fsort() - делает сортировку пузырьком. Имя входного\выходного файла задаются через аргументы при запуске. Возможны баги, а так же код не идеален . Сравнение строк по алфавиту сделано через функцию strcmp, не надо придумывать велоспедов.
задача на С++ Выручите, пожалуйста, в понедельник сдавать. Написать программу на C++ Последовательность вещественных чисел сохранить в динамическом списке. Поместить в стек все отрицательные числа, исключив их из динамического списка..
Delphi 1) Написать фун-ию, возвращающую значение четырёх наименьших элементов из целочисленного массива A NxN, (N - задано). 2) Написать процедуру, меняющую местами столбцы целочисленной матрицы A NxN относительно среднего столбца матрицы, в случае если N - нечётное число, и заполняющую матрицу нулями в противном случае. 3) Написать процедуру, транспонирующую матрицу A NxN. 4) Написать процедуру, сохраняющую в файле матрицу A NxN. 5) Написать процедуру, считывающую из файла матрицу A NxN.
Помогите плиз с С++ 1)дана челочисленая триугольная матрица.Определить: а)кол-во столбцов,не содиржащих ни одного нулевого элемента в)номер строки с максимальной характеристекой
