Люди у меня на носу экзамен надо допустится написав 100 программ на паскале я !не успеваю! написал 62 пожалуйста напишите хотя бы пару прог по этим заданиям они легкие и короткие я их пронумеровал для удобства plizzz!!!!
Задание №1.
Составить алгоритм, определяющий количество дней между двумя датами, вычисляя вначале количество дней от начала летоисчисления по григорианскому календарю.
Задание №2.
Составить алгоритм, который заносит в таблицу первые 1000 натуральных чисел, делящихся на 13 или 17.
Задание №3.
Решить головоломку: (((((1?2)?3)?4)?5)?6)=36.
Заменить «?» на знаки арифметических операций так. чтобы получилось верное
равенство.
/Задание №4.
Символьная строка содержит последовательность слов, разделенных пробелами. Найти все палиндромы - слова, которые читаются слева направо так же. как и справа налево.
/ Задание №5.
Написать программу, которая находит и выводит на печать все четырехзначные числа abed, для которых выполняются следующие условия:
1) а, Ь, с, d - разные цифры
2) ab-cd=a+b+c+d
( ab означает, что число состоит из цифр а и b )
Задание №б.
Дано натуральное п. Сколько различных цифр встречается в его десятичной записи?
Задание №7.
В некотором арифметическом выражении удалили все символы, кроме скобок. Составить алгоритм, определяющий по полученной последовательности скобок, правильно ли они были первоначально расставлены.
Задание №8.
Король Артур послал римскому императору срочное сообщение, в котором содержатся числа, записанные арабскими цифрами. Написать программу, которая поможет императору понять сообщение путем преобразования входного потока в идентичный выходной с переводом всех чисел в римскую систему счисления. (Примечание: в сообщении встречаются только положительные целые числа, не превосходящие 4000).
Задание №9.
Дана последовательность пар чисел. Будет ли данная последовательность правильным рядом костей домино? (Набор домино состоит из 28 костей. Кость домино - пара чисел, каждое из которых от 0 до 6. Правильной последовательность называется та. у которой второй элемент предыдущей кости совпадает с первым элементом последующей.)
Задание №10.
Изобразите треугольник, вращающийся вокруг точки пересечения его высот.
Задание №11.
Заданы целые числа Х1,Х2,…Х30> которые означают ежедневный спрос на продукцию в мае месяце. Постройте график зависимости спроса от дня месяца. Отрезки прямых, расположенных выше оси абсцисс и расположенных ниже её, должны быть окрашены в разные цвета.
Задание №12. Задача Диксона.
Будем говорить, что три натуральных числа образуют дружественную тройку, если сумма собственных делителей каждого числа равна сумме двух других чисел. Найдите хотя бы одну дружественную тройку натуральных чисел.
Задание №13.
Проверьте, является ли заданное натуральное число п>1 простым.
Задание №14.
Даны натуральные числа пик, п>1. Напечатайте к десятичных знаков числа 1/п. (При наличии двух десятичных разложений выбирается то из них, которое не содержит девятки в периоде.) Программа должна использовать только целые переменные.
Задание №15.
Дано натуральное число п>1. Определите длину периода десятичной записи дроби 1/п.
Задание №16.
Разрешим использовать команды write(i) лишь при I=0,1,...,9.
Напишите программу, выводящую десятичную запись заданного натурального
числа п>0 в обратном порядке. (Для п=173 надо вывести 371.)
Задание №17.
Разрешим использовать команды write(i) лишь при i=0,l,...,9. Напишите программу, выводящую десятичную запись заданного натурального числа п>0. (Случай п=0 явился бы некоторым исключением, т.к. обычно нули в начале числа не выводятся, а для п=0 - выводятся.)
Задание №18.
Составьте программу, находящую разложение на простые множители заданного натурального числа п>0 (другими словами, требуется выводить только простые числа и произведение напечатанных чисел должно быть равно п; если п=1, то выводить ничего не надо).
Задание №19.
Дано целое число а и натуральное (целое неотрицательное) число п. Вычислите а в степени п. Другими словами, составьте программу, при исполнении которой значения переменных а и п не меняются, а значение некоторой другой переменной (например, Ь) становится равным а в степени п (разрешается использовать и другие переменные). Однако необходимо, чтобы число действий (выполняемых операторов присваивания) было порядка log n (не превосходило бы Clog n для некоторой константы С).
Задание №20.
Дано целое число а и натуральное (целое неотрицательное) число п. Вычислите а в степени п. Другими словами, составьте программу, при исполнении которой значения переменных а и п не меняются, а значение некоторой другой переменной (например, Ь) становится равным а в степени п (разрешается использовать и другие переменные).
Задание №21.
Найдите большее (меньшее) из двух целых чисел без использования оператора условного перехода
Задание №22.
Даны две целые переменные а и Ь. Составьте фрагмент программы, после исполнения которого значения переменных поменялись бы местами ("новое" значение а равно "старому" значению b и наоборот).
Задание №23.
Решите предыдущую задачу, не используя дополнительных переменных (и предполагая, что значениями целых переменных могут быть произвольные целые числа).
Задание №24.
Найдите все трехзначные числа, представимые в виде сумм факториапов своих цифр. Используйте рекурсивную функцию вычисления п!.
Задание №25.
Определите число, получаемое выписыванием в обратном порядке цифр заданного натурального числа. Используйте рекурсивную функцию.
Задание №26. Задача Ферма.
Найдите куб, который в сумме со всеми его собственными делителями дает квадрат.
(Задание №27.
Два простых числа называются близнецами, если они отличаются друг от друга на 2 (таковы, например, числа 41 и 43). Найдите все пары чисел-близнецов из отрезка [п,2п], где п - заданное натуральное число, большее двух, с помощью функции распознавания простых чисел. Приведём несколько примеров чисел-близнецов: . (5,7), (11,13), (17,19), (22271,22273).
Задание №28.
Найдите наименьшее общее кратное четырех заданных натуральных чисел.
Задание №29.
Даны координаты вершин двух треугольников. Определите, какой из них имеет большую площадь.
Задание №30.
Даны координаты вершин треугольника и координаты некоторой точки внутри него. Найдите расстояние от данной точки до ближайшей стороны треугольника. (При определении расстояний учесть, что площадь треугольника вычисляется и через три его стороны, и через основание и высоту.)
Некотрые проги покажутся слишком легкими, но эти- оставшиеся имеют какие-то заковырки, вылетают ошибки и/или я не знаю как их полностью делать, так как я почти самоучка, наш препод только вышел и до этого ничего не объяснял приходилось учиться методом проб и ошибок, поэтому у меня есть пробелы в знаниях так как они не последовательны и основаны на половину на догадках и логике, а на половину из самоучителей, так что не надо меня сильно ругать и ещё просьба если можете пожалуйста пишите программы полностью, чтобы я мог проследить причинно-следственную связь и найти свою ошибку. Если не можете кинуть ответ на форум пришлите пожалуйста на мыло : olovo3@rambler.ru , к тому-же мне если напишете хоть несколько программ буду очень благодарен, так как это будет хорошая помощь,на которой я могу получить новые знания, вспомните, как вы сами учили свой первый язык программирования, легко было без примеров различных ситуаций? Очень прошу помогите, хорошие дела возвращаются, вы мне очень поможете, заранее благодарен.
Полная версия: Братья программисты срочно нужна помощь
Олово
чо за фигня??? Ты можешь постить свои задачи где-то в одном месте??? <_<
чо за фигня??? Ты можешь постить свои задачи где-то в одном месте??? <_<
Причем это одно и тоже изложение... 
27).
{Предполагается, что n>2}
Function IsSimple(n:Integer):Boolean;
Var
i:Integer;
Begin
IsSimple:=False;
For i:=3 To Trunc(Sqrt(n)) Do
If (n Mod i = 0)
Exit;
IsSimple:=True
End;
{Еу и сам перебор}
Const
N = 10;
Var
i:Integer;
Begin
For :=N To 2*N-2 Do
If IsSimple(i) And IsSimple(i+1) Then
WriteLn('(',i,',','i+2,')')
End.
Ну, про оптимизацию тут и речи не идёт...
28). Писать лень. Принцип такой:
1). НОД(a,b,c,d) = НОД(a,НОД(b,НОД(c,d)
2). НОК(a,b,c,d) = a*b*c*d/НОД(a,b,c,d)
Если я не ошибся где...
25).
Function Convert(n:Integer;Var s:String):String;
Var
k:Integer;
s1:String;
Begin
If (n=0)
Convert:=s
Else
Begin
k:=n Mod 10;
n:=n Div 10;
Str(s1,k);
s:=s+s1;
Convert:=s
End
End;
Var
s:String;
Const
N=123;
Begin
s:='';
WriterLn(Convert(n,s))
End.
Вроде бы...
23).
a:=a+b;
b:=a-b;
a:=a-b;
24).
Function Factor(n:Integer):Integer;
Begin
If (n = 0) Or (n = 1) Then
Factor:=1
Else
Factor:=n*Factor(n-1)
End;
Var
i,j,k:Integer;
Begin
For i:=1 To 9 Do
For j:=0 To 9 Do
For k:=0 To 9 Do
If (Factor(i)+Factor(j)+Factor(k) = i*100+j*10+k) Then
WriterLn(i,j,k)
End.
Должно сработать...
20).
Function Pow(a,n:Integer):LongInt;
Var
i,r:Integer;
Begin
If n = 0 Then
Pow:=1
Else
Begin
r:=1;
For i:=1 To n Do
r:=r*a;
Pow:=r
End
End;
Примитивне некуда.
А на остальное вообще смотреть смешно, ты уж не обижайся
Код
{Предполагается, что n>2}
Function IsSimple(n:Integer):Boolean;
Var
i:Integer;
Begin
IsSimple:=False;
For i:=3 To Trunc(Sqrt(n)) Do
If (n Mod i = 0)
Exit;
IsSimple:=True
End;
{Еу и сам перебор}
Const
N = 10;
Var
i:Integer;
Begin
For :=N To 2*N-2 Do
If IsSimple(i) And IsSimple(i+1) Then
WriteLn('(',i,',','i+2,')')
End.
Ну, про оптимизацию тут и речи не идёт...
28). Писать лень. Принцип такой:
1). НОД(a,b,c,d) = НОД(a,НОД(b,НОД(c,d)
2). НОК(a,b,c,d) = a*b*c*d/НОД(a,b,c,d)
Если я не ошибся где...
25).
Код
Function Convert(n:Integer;Var s:String):String;
Var
k:Integer;
s1:String;
Begin
If (n=0)
Convert:=s
Else
Begin
k:=n Mod 10;
n:=n Div 10;
Str(s1,k);
s:=s+s1;
Convert:=s
End
End;
Var
s:String;
Const
N=123;
Begin
s:='';
WriterLn(Convert(n,s))
End.
Вроде бы...
23).
Код
a:=a+b;
b:=a-b;
a:=a-b;
24).
Код
Function Factor(n:Integer):Integer;
Begin
If (n = 0) Or (n = 1) Then
Factor:=1
Else
Factor:=n*Factor(n-1)
End;
Var
i,j,k:Integer;
Begin
For i:=1 To 9 Do
For j:=0 To 9 Do
For k:=0 To 9 Do
If (Factor(i)+Factor(j)+Factor(k) = i*100+j*10+k) Then
WriterLn(i,j,k)
End.
Должно сработать...
20).
Код
Function Pow(a,n:Integer):LongInt;
Var
i,r:Integer;
Begin
If n = 0 Then
Pow:=1
Else
Begin
r:=1;
For i:=1 To n Do
r:=r*a;
Pow:=r
End
End;
Примитивне некуда.
А на остальное вообще смотреть смешно, ты уж не обижайся
Показалось, это для всего потока задачи... Причем первого курса...
Придумал халтуру:
21).
Function Min(a,b:Integer):Integer;
Begin
Min:=Byte(a>b)*b + Byte(a<b)*a + Byte(a=b)*a
End;
5)
Var
a,b,c,d:Integer;
Begin
For a:=1 To 9 Do
For b:=0 To 9 Do
For c:=0 To 9 Do
For d:=0 To 9 Do
If (a*b-c*d=a+b+c+d) Then
WriteLn(a,b,c,d)
End.
6)
Var
Nums:Array[0..10] Of Boolean;
i,n:Integer;
Begin
ReadLn(n);
If n=0 Then
Begin
WriterLn(1);
Exit
End;
For i:=0 To 9 Do
Nums[i]:=False;
While n>0 Do
Begin
Nums[n Mod 10]:=True;
n:=n Div 10
End;
For i:=0 To 9 Do
If Nums[i] Then
Inc(n);
WriterLn(n)
End.
7)
Var
s:String;
n,i:Integer;
Begin
ReadLn(s);
n:=0;
For i:=1 To Length(s) Do
If s[i]='(' Then
Inc(n)
Else
If s[i]=')' Then
If n=0 Then
Begin
WriterLn('Incorrect');
Exit
End
Else
Dec(n);
If n=0 Then
WriterLn('Correct')
Else
WriterLn('Incorrect')
End.
Даже если это уже никому давно не нужно... Иногда приятно порешать вот такие вот примитивненькие задачки
21).
Код
Function Min(a,b:Integer):Integer;
Begin
Min:=Byte(a>b)*b + Byte(a<b)*a + Byte(a=b)*a
End;
5)
Код
Var
a,b,c,d:Integer;
Begin
For a:=1 To 9 Do
For b:=0 To 9 Do
For c:=0 To 9 Do
For d:=0 To 9 Do
If (a*b-c*d=a+b+c+d) Then
WriteLn(a,b,c,d)
End.
6)
Код
Var
Nums:Array[0..10] Of Boolean;
i,n:Integer;
Begin
ReadLn(n);
If n=0 Then
Begin
WriterLn(1);
Exit
End;
For i:=0 To 9 Do
Nums[i]:=False;
While n>0 Do
Begin
Nums[n Mod 10]:=True;
n:=n Div 10
End;
For i:=0 To 9 Do
If Nums[i] Then
Inc(n);
WriterLn(n)
End.
7)
Код
Var
s:String;
n,i:Integer;
Begin
ReadLn(s);
n:=0;
For i:=1 To Length(s) Do
If s[i]='(' Then
Inc(n)
Else
If s[i]=')' Then
If n=0 Then
Begin
WriterLn('Incorrect');
Exit
End
Else
Dec(n);
If n=0 Then
WriterLn('Correct')
Else
WriterLn('Incorrect')
End.
Даже если это уже никому давно не нужно... Иногда приятно порешать вот такие вот примитивненькие задачки
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.