Программисты помогите мне..я на грани отчисления.. ___________________________________________ Помогите мне с лабой..надо написать программу на паскале желательно 7.0 или 7.1. Вообщем сама задача: Из каждой очередной тройки букв удалить среднюю букву. Тип списка: циклический. P.S заранее благодарен
GOODmen Первая выглядит так: Code: #include <stdio.h> #include <math.h> int is_prime(int N) { int i; for(i = 2; i <= sqrt(N); i++) if (N % i == 0) return 0; return 1; } int main() { int a, k; scanf("%d", &a); for(k = 1; k <= a; k++) if (is_prime(k)) printf("%d\n", k); return 0; } Вторая примерно так: Code: #include<stdio.h> void main() { int num[100], i, j; for(i=0;i<=99;i++) /*Заполнение массива*/ num[i]=i+1; for(i=1;i<=99;i++) { if(num[i]!=0) { for(j=(i+1);j<=99;j++) { if(num[j]!=0) { if((num[j]%num[i])==0) num[j]=0; } } } } for(i=0;i<=99;i++) { if(num[i]!=0) /*Ненулевые числа - простые*/ printf("\n%d",num[i]); } }
Спасибо... первая задача это простые число под буквой "А"? вторая это треугольник паскаля под буквой "А"?
Pascal Создать программу которая вычисляет число из имени по скеме 1 2 3 4 5 6 7 8 9 A B C D E F G H I I K L M N O P Q R J L U V W X Y Z сначала пишется имя и каждая буква превращается в соответствуюшию цифру а потом они сложатся по двеби так пока останеца только одна цифра.Если получается номер из двух цифр тогда они суммируются (14=1+4=5, 21=2+1=3) Пример: Главное чтоб результат имел форму пирамиды.
Задали написать любую программу чтоб работала с xml базой? Может у кого есть какие исходники своих прог дайте пожалуйста!
помогите пожалуйста сделать лабораторную. она очень легкая! просто информатика это не моё... был бы очень благодарен... вот условие в *.docx http://slil.ru/26643705
Кто-нибудь, подскажите пожалуйста книги по Си/Си++, где бы описывалось применение системных функции Линукс. Вот условие лабораторной: Написать программу на си/си++, которая копирует файлы и считывает их атрибуты. Использовать системные функции ОС Линукс.
Парни помогите кто чем может. Мне нужно написать программку на C++ Собственно вот задание: Ввести с клавиатуры русское слово. Разбить его по слогам.
** Помогите мне с лабой..надо написать программу на паскале. Вообщем сама задача: Из каждой очередной тройки букв удалить среднюю букву. Тип списка: циклический. P.S заранее благодарен **
Люди очень нужна ваша помощь, задачка на C++ Задание: Дан массив A[n] , найти наименьшее число элементов которые нужно выкинуть из массива чтобы осталась возрастающая последовательность элементов. неделю раздумий не к чему не привели ( можно даже словами, как вообще организовать такой алгоритм... программу я сам смогу написать... очень прошу помощи ))
Ну сам подумай... Какие признаки возрастающей последовательности? Каждый последующий элемент больше предыдущего... Т.е. те элементы, которые не удовлетворяют этому критерию и должны быть отброшены... Решение ещё не очевидно?
если б было всё так просто я бы не обращался, тут другое нужно найти МИНИМАЛЬНОЕ количество элементов которые нужно откинуть , покажу на примере: последовательность : 1 7 1 8 3 5 9 8 0 решение должно быть : 1 1 3 5 9 (откинуто всего 4) если по вашему то получиться отсеивание каждого элемента что больше предыдущего то есть останется 1 7 8 9 - а это не удовлетворяет условию... а если ещё вначале самого массива будет максимальная величина в массиве то отброситься вообще всё что после неё, тоесть нужно найти оптимальный элемент с которого и начинать отсеивание... но и тут не так всё просто , простое отсеивание не подойдёт, так как нужно при каждом удовлетворении условия что след. элемент больше предыдущего запускать новый цикл который проверял бы элементы после этих двух... я уже по не множку грешу в сторону рекурсий...
вот помоги исправить задачу...нужно сделать так что бы из каждой очередной тройки букв удалить среднюю букву. Тип списка циклический. А данная программа удаляет первую букву..а нужно что бы последнюю. это паскаль Uses Crt; type pSpisok = ^Slova; Slova = Record slv : string[10]; next : pSpisok end; var Head1, Tail1, Head2, Tail2, Ptr1, Ptr2, Pysk1, Pysk2 : pSpisok; St, Str : string[10]; F : text; I, K, N : integer; Name : string; begin ClrScr; Writeln ('Fail dolgen sodergat slova, raspologennie postrochno'); Writeln ('Vvedite imya faila: '); Readln (Name); Assign (F, Name); Reset (F); Head1 := Nil; Tail1 := Nil; Head2 := Nil; Tail2 := Nil; ClrScr; While not Eof(F) do begin Readln (F, St); New (Ptr1); Ptr1^.Slv :=St; Ptr1^.Next := Nil; If Tail1 <> Nil then Tail1^.Next := Ptr1; Tail1 := Ptr1; If Head1 = Nil then Head1 := Ptr1; end; Tail1^.Next := Head1; Ptr1 := Head1; Pysk1 := Head1; repeat Str := Ptr1^.Slv; N := length(str) – 1 div 3; If Str <> '' then K := 1; for I := 1 to N do begin Delete (Str, K, 1); K := K + 2; end; New (Ptr2); Ptr2^.Slv := Str; Ptr2^.Next := Nil; If Tail2 <> Nil then Tail2^.Next := Ptr2; Tail2 := Ptr2; If Head2 = Nil then Head2 := Ptr2; Pysk1 := Ptr1^.Next; Ptr1 := Pysk1; Until Pysk1 = Head1; Tail2^.Next := Head2; Pysk1 := Head1; Pysk2 := Head2; Ptr1 := Head1; ptr2 := Head2; repeat Write (Ptr1^.Slv,' '); Writeln (Ptr2^.Slv); Pysk1 := Ptr1^.Next; Pysk2 := Ptr2^.Next; Ptr1 := Pysk1; Ptr2 := Pysk2; until Pysk2 = Head2; repeat until KeyPressed; End.
Code: class Program { static void Main(string[] args) { int[] A = new int[] { 1, 7, 1, 8, 3, 5, 9, 8, 0 }; int count = calc(A); Console.WriteLine(count); Console.ReadLine(); } //подсчет минимального числа исключений private static int calc(int[] A) { //пербираем число отбрасываемых элементов for (int i = 0; i < A.Length; i++) { if(Exclude(A, 0, i, new bool[A.Length])) return i; } return A.Length; } //исключение одного элемента private static bool Exclude(int[] A, int fromIndex, int excludeCount, bool[] excluded) { if(excludeCount==0) return Check(A, excluded); for (int i = fromIndex; i < A.Length; i++) { excluded[i] = true; if(Exclude(A, i + 1, excludeCount - 1, excluded)) return true; excluded[i] = false; } return false; } //проверка на возрастание private static bool Check(int[] A, bool[] excluded) { int prev = int.MinValue; for(int i=0;i<A.Length;i++) if(!excluded[i]) { if (A[i] <= prev) return false; prev = A[i]; } return true; } }
Code: Uses Crt; type pSpisok = ^Slova; Slova = Record slv : string[10]; next : pSpisok end; var Head1, Tail1, Head2, Tail2, Ptr1, Ptr2, Pysk1, Pysk2 : pSpisok; St, Str : string[10]; F : text; I, K, N : integer; Name : string; begin ClrScr; Writeln ('Fail dolgen sodergat slova, raspologennie postrochno'); Writeln ('Vvedite imya faila: '); Readln (Name); Assign (F, Name); Reset (F); Head1 := Nil; Tail1 := Nil; Head2 := Nil; Tail2 := Nil; ClrScr; While not Eof(F) do begin Readln (F, St); New (Ptr1); Ptr1^.Slv :=St; Ptr1^.Next := Nil; If Tail1 <> Nil then Tail1^.Next := Ptr1; Tail1 := Ptr1; If Head1 = Nil then Head1 := Ptr1; end; Tail1^.Next := Head1; Ptr1 := Head1; Pysk1 := Head1; repeat Str := Ptr1^.Slv; N := length(str) - 1 div 3; If Str <> '' then K := 1; for I := 1 to N do begin Delete (Str, K+1, 1); K := K + 2; end; New (Ptr2); Ptr2^.Slv := Str; Ptr2^.Next := Nil; If Tail2 <> Nil then Tail2^.Next := Ptr2; Tail2 := Ptr2; If Head2 = Nil then Head2 := Ptr2; Pysk1 := Ptr1^.Next; Ptr1 := Pysk1; Until Pysk1 = Head1; Tail2^.Next := Head2; Pysk1 := Head1; Pysk2 := Head2; Ptr1 := Head1; ptr2 := Head2; repeat Write (Ptr1^.Slv,' '); Writeln (Ptr2^.Slv); Pysk1 := Ptr1^.Next; Pysk2 := Ptr2^.Next; Ptr1 := Pysk1; Ptr2 := Pysk2; until Pysk2 = Head2; repeat until KeyPressed; End. Вот, удаляет среднюю букву из каждой тройки, попробуй.
блин идиот...я искал эту строчку но не нашел..))) думал еще как же программа удаляет без этого действия....тупица)))лови + помог найти!
С паскалем разобрался.. плз напишите програмку в Делфи...то для меня это темный лес... Вычислить площадь плоской фигуры, заключенной между дугами кривых: y(x)=-Ln(x) и y(x)=R-x При каком значении R площадь этой фигуры не превышает единицы.
Algol Спасибо огромное за старание!!! Но есть маленькая проблемка... я ещё 1 курс и классы мы не проходили можно это какнить переписать более просто.. через массивы, циклы и т.д. спс!