Люди помогите пожалуйста написать программу на паскале |
|
Здравствуйте, гость ( Вход | Регистрация )
Люди помогите пожалуйста написать программу на паскале |
13.4.2008, 15:03
Сообщение
#41
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
все равно не выходит..
|
|
|
13.4.2008, 18:55
Сообщение
#42
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
покажи код
|
|
|
22.4.2008, 23:48
Сообщение
#43
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Люди помогите! Пинал х..и 2 семестра, ничего не знаю и не умею!
Помогите с написание двух программ на паскале Первая: Вторая: Преобразовать исходный текст таким образом, чтобы каждое его слово целиком находилось в одной и той же строке (т.е. ликвидировать переносы, которые в тексте обозначаются знаком "-" в одной строке) Очень прошу, программы по идее простые, затруднейний не вызовут, надеюсь хоть кто нибудь найдёт время спасти мою задницу =( |
|
|
25.4.2008, 0:40
Сообщение
#44
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Цитата Люди помогите! Пинал х..и 2 семестра, ничего не знаю и не умею! автомат держать научат, небойся <_< |
|
|
29.5.2008, 18:59
Сообщение
#45
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Помогите люди написать прогу в паскале вот с такой постановкой:
Дмитрий Раисович и Максим купили упаковку орешков. Чтобы разделить их между собой, они играют в специальную игру, которую они сами утром с бодуна придумали. Игроки по очереди берут из упаковки некоторое положительное число орешков, не превышающее наперед заданного ограничения. Каждый из игроков добавляет орешки, которые взял он, в свою кучу (Дмитрий Раисович - в бинарную, Максим - в фибоначчиеву). Игрок, после чьего хода упаковка стала пустой, съедает орешки из своей кучи, а его соперник забрасывает свои орешки заново в упаковку, после чего игра продолжается с первым ходом соперника. Игра идет до тех пор, пока все орешки не съедены. Хитрожопый Макс хочет съесть как можно больше орешков. Помогите ему в осуществлении этого замысла? Примите к сведению, что Максим ходит первым, и что оба соперника безгранично умны и не делают никаких ошибок (хоть они и с бодуна). Задание. Напишите программу, которая читает параметры игры из входного файла, вычисляет количество орешков, которое удастся съесть Максу (Дмитрий Раисович будет изо всех сил стараться не дать себя на..ть, но и Макс тоже не промах) и пишет результат в выходной файл. Входные данные. Единственная строка входного файла содержит числа N и M, разделенные одним пробелом. N - количество орешков в упаковке; M - верхний лимит на количество орешков, которое можно взять за один ход. Выходные данные. Выведите одно число - максимальное количество орешков, которое может съесть Максим. Ограничения. 1<=M<=N<=100; все числа целые. Пример. input.txt 5 2 output.txt 3 За написанную прогу могу предложить семизнаки или wmr |
|
|
29.5.2008, 19:49
Сообщение
#46
|
|
Сталкер Группа: Администраторы Сообщений: 8012 Регистрация: 10.8.2017 Пользователь №: 745 |
casshern тут все просто. и даже писать ниче не надо есть готовое решение:
http://byoi.narod.ru/mtr0344.htm# там есть и авторское решение и тесты --- wmz не надо, 7знак тоже :D |
|
|
29.5.2008, 19:55
Сообщение
#47
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
мдяяяя....вот оно што)) благодарю за помощь
|
|
|
30.5.2008, 20:24
Сообщение
#48
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
помогите написать задачу на паскале:
Лабиринт задается матрицей смежности N*N, где С(i,j)=1, если узел i связан узлом j посредством дороги. Часть узлов назначается входами, часть - выходами. Входы и выходы задаются последовательностями узлов X(1),...,X(p) и Y(1),...,Y(k) соответственно. Найти максимальное число людей, которых можно провести от входов до выходов таким образом чтобы: а) их пути не пересекались по дорогам, но могут пересекаться по узлам; б) их пути не пересекались по узлам; Решение привести в языке Паскаль. |
|
|
31.5.2008, 0:08
Сообщение
#49
|
|
Сталкер Группа: Администраторы Сообщений: 8012 Регистрация: 10.8.2017 Пользователь №: 745 |
ale-ale http://algolist.manual.ru/olimp/gra_prb.php задача №5. схожая с задачей №4. там и решение.
--- вообще, не понимаю, что вы за программеры такие, если не можете решить экзаменационные задачи? типа "йа весь курс прощелкал, ниче ни знайу, паскажите"... нафиг нужны такие девелоперы... одно мучение с ними... |
|
|
23.9.2008, 17:15
Сообщение
#50
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Помогите пожайлуста решить прогу:
Отредактировать заданное предложение, удаляя из него те слова, которые повторяются заданное число раз. Токо это надо как то не ч\з процедуры, а через строковые функции. Сообщение отредактировал smarti - 23.9.2008, 17:42 |
|
|
16.12.2008, 7:12
Сообщение
#51
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
помогите написать программу в паскале
Проверить выполнение следующего свойства упорядоченных по возрастанию массивов a[1..n] и b[1..m]: для каждого элемента a[i] (i = 1...n) найдется равный ему элемент массива b. |
|
|
26.12.2008, 18:14
Сообщение
#52
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Помогите пожалуйста Решить уравнение с точностью :Е=10^(-5)
(0,6*3^x)-2,3*x-3=0 |
|
|
19.3.2009, 16:26
Сообщение
#53
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
напишите программу поиска двузначных чисел, сумма квадратов цифр которых делится на 13, на паскале, я студент первого курса технического вуза. очень нужно!! ну как нибудь попроще напишите))) заранее спасибо
|
|
|
8.4.2009, 19:05
Сообщение
#54
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Держи если есче учишся. Правда слишком прямолинейна, но пойдет.
var a, b, c, f, e: integer; begin writeln ('Числа, у которых сумма квадратов цифр делится на 13 без остатка'); for a:=11 to 99 do begin a:=(a+3-3); {Счетчик числа, у меня только так он добавляет по 1,должно быть так:(a+1)} b:= a div 10; {1 цифра числа - число десятков в числе} c:= a mod 10; {2 цифра числа - остаток от деления на 10} e:= (b*b+c*c); {сумма квадратов} f:= e mod 13; {Остаток от деления на 13} if f=0 then writeln ('a= ', a:6,';', ' Сумма квадратов = ', e:6); end; readln; end.; |
|
|
16.4.2009, 20:56
Сообщение
#55
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Держи если есче учишся. Правда слишком прямолинейна, но пойдет. var a, b, c, f, e: integer; begin writeln ('Числа, у которых сумма квадратов цифр делится на 13 без остатка'); for a:=11 to 99 do begin b:= a div 10; {1 цифра числа - число десятков в числе} c:= a mod 10; {2 цифра числа - остаток от деления на 10} e:= (b*b+c*c); {сумма квадратов} f:= e mod 13; {Остаток от деления на 13} if f=0 then writeln ('a= ', a:6,';', ' Сумма квадратов = ', e:6); end; readln; end.; Вот так должно быть правильнее |
|
|
18.5.2009, 11:33
Сообщение
#56
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Люди, пожалуста помогите, оч надо написать прогу которая вычисляет в каком банке больше всего клиентов. та сначала надо типа создать базу данных, а потом самому еезаполнить ну и тд, заранее большое спасибо!
|
|
|
22.5.2009, 7:48
Сообщение
#57
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Люди помогите решить задачи:
1)3 робота за 1 день делают еще 1 робота.Не использующиеся роботы простаивают,робот умирает через 5 дней.Изначально было 3 робота. Определить сколько роботов бедет через n дней. 2)N детей садятся в круг начиная с первого удаляют каждого к-ого .Определить номер оставшегося. Я студент первого курса и вот такое задали,помогите пожалуста Заранее Огромнейшее спасибо. Сообщение отредактировал Jesus - 22.5.2009, 7:51 |
|
|
8.8.2009, 15:32
Сообщение
#58
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Помогите написать программу!!! Очень нужно!
Заполнить массив 5х5 случайными числами. Создать очередь из элементов массива, причем чтобы начало очереди содержало среднее арифметическое элементов массива. Вывести очередь на экран.( с пояснениями пожайлуста! А то я много пропустил из-за операции) |
|
|
29.9.2009, 19:54
Сообщение
#59
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Помогите, пожалуйста написать программу на Паскале.....Задачка: Сколько раз первая цифра встречается в целом числе? Совсем запуталась. Заранее большое человеческое спасибо....
|
|
|
9.12.2009, 14:57
Сообщение
#60
|
|
Группа: Сообщений: 0 Регистрация: -- Пользователь №: |
Пожалуйста помогите написать программу на с++
Задача Объявить массив целых чисел и заполнить его случайными значениями. Размер массива 100 и диапазон значений -100 - 100. Разместить все элементы с нулевыми значениями в левой части массива, элементы с отрицательными значениями - за ними, а за ними - элементы с положительными значениями. Что надо изменить? #include <stdio.h> #include <time.h> #include <stdlib.h> int Ar[100]; /* массив, который обрабатывается */ int main(void) { int i, j; /* индексы в массиве */ int b; randomize(); /* инициализация rand */ /* заполнение массива случайными числами */ for (i=0; i<100; i++)Ar[i]=rand()%201-100 ; /* вывод начального массива */ printf("Начальный массив:\n"); for (i=0; i<100; printf("%3d ",Ar[i++])); putchar('\n'); putchar('\n'); j=0; for (i=0; i<100; i++) { /* перебор массива */ if (Ar[i]==0) { /* начало последовательности */ /* запомнить индекс начала, начальное значение накопителя суммы и счетчика элементов */ b=Ar[i]; Ar[i]=Ar[j]; Ar[i]=b;j++; } { /* перебор всей последовательности */ for (j=i; i<100; i++) if (Ar[i]<0); } } /* вывод результатов */ printf("Массив-результат:\n"); for (i=0; i<100; printf("%3d ",Ar[i++])); putchar('\n'); return 0; } |
|
|
Текстовая версия | Сейчас: 31.5.2024, 7:58 |