uForum.uz

uForum.uz (https://uforum.uz/index.php)
-   Pascal, Delphi & Builder (https://uforum.uz/forumdisplay.php?f=165)
-   -   Помоги решить задачки в Паскаль (https://uforum.uz/showthread.php?t=9103)

sergeyf1 10.05.2009 22:33

Помоги решить задачки в Паскаль
 
Задача 1.

Составить программу на языке программирования и в блок-схеме.
Дано натуральное число m. Указать все тройки натуральных чисел x, y, z , удовлетворяющие условию m=x3+y3+z3.


Задача 2.

Составить программу на языке программирования и в блок-схеме.
Для любых значений m и n вычислить значения биномиального коэффициента

Задача 3.

Составить программу на языке программирования и в блок-схеме.
Даны натуральные числа a и b, не равные нулю одновременно. Вычислить НОД(a,b) – наибольший общий делитель a и b.


Задача 4.

Составить программу на языке программирования и в блок-схеме.
Дано натуральное n. Подсчитать количество решений неравенства x2+y2<n в натуральных (неотрицательных) целых числах, не используя действий с вещественными числами.


Задача 5.

Составить программу на языке программирования и в блок-схеме.
Даны натуральные числа n и k, n>1. Напечатать k десятичных знаков числа 1/n. При наличии двух десятичных разложений выбирается то из них, которое не содержит девятки в периоде. Программа должна использовать только целые переменные.


Задача 6.

Составить программу на языке программирования и в блок-схеме.
Дано натуральное число n>1. Определить длину периода десятичной записи дроби 1/n.


Задача 7.

Составить программу на языке программирования и в блок-схеме.
Даны натуральные числа a и b, причём b>0. Найти частное и остаток при делении a на b, оперируя лишь целыми числами и не используя операции div и mod, за исключением деления на 2 чётных чисел; число шагов не должно превосходить C1 log(a/b)+C2 для некоторых констант C1, C2.


Задача 8.

Составить программу на языке программирования и в блок-схеме.
Дан двумерный массив целых чисел. Найти количество различных чисел среди элементов этого массива.


Задача 9.

Составить программу на языке программирования и в блок-схеме.
Даны два двумерных массива целых чисел. Найти количество общих элементов в этих массивах, указав значения.


Задача 10.

Составить программу на языке программирования и в блок-схеме.
Даны две последовательности целых чисел. Выяснить является ли вторая последовательность подпоследовательностью первой, то есть можно ли из первой вычеркнуть некоторые члены так, чтобы осталась вторая.


Задача 11.

Составить программу на языке программирования и в блок-схеме.
Напечатать все перестановки 1…n так, чтобы каждая следующая перестановка получалась из предыдущей путём перестановки двух соседних чисел.


Задача 12.

Составить программу на языке программирования и в блок-схеме.
Пусть a[1],…,a[n] – целые числа. Требуется построить массив b[1],…,b[n], содержащий те же числа, для которых b[1] <=…<= b[n].
Среди чисел a[1],…,a[n] могут быть равные. Требуется, чтобы каждое целое число входило в b[1],…,b[n] столько раз, сколько и в a[1],…,a[n].

DarkUser 10.05.2009 22:55

Сколько за каждую задачу???

JH 10.05.2009 23:08

Цитата:

Сообщение от DarkUser (Сообщение 216622)
Сколько за каждую задачу???

Не будь таким меркантильным кю.

Злобные программисты не помогают, и, на юфорум перестанут ходить школьники и студенты за решениями лабов.

DarkUser 10.05.2009 23:28

Цитата:

Сообщение от Jahongir Haitov (Сообщение 216627)
Злобные программисты не помогают, и, на юфорум перестанут ходить школьники и студенты за решениями лабов.

Так он-же не помочь просит, а сделать за него... :(

sergeyf1 11.05.2009 11:27

нет, именно помочь, так как я в этом несмыслю.

Nadir Zaitov 11.05.2009 11:54

Цитата:

Сообщение от sergeyf1 (Сообщение 216760)
нет, именно помочь, так как я в этом несмыслю.

Не если помочь!
Цитата:

Сообщение от sergeyf1 (Сообщение 216616)
Дано натуральное число m. Указать все тройки натуральных чисел x, y, z , удовлетворяющие условию m=x3+y3+z3.

Эта решается через два вложенных цикла
(пишу только тело, обвязку с объявлениями и вводом числа M и проверкой, что оно больше 2-х оставляю Вам).
Код:

For i:=1 to M-2 do
For j:=1 to M-1-i do
writeln(i,j,M-i-j);


Nadir Zaitov 11.05.2009 12:22

Цитата:

Сообщение от sergeyf1 (Сообщение 216616)
Составить программу на языке программирования и в блок-схеме. Для любых значений m и n вычислить значения биномиального коэффициента

Нужно б написать фнкция вычисления факториала:
Код:

function Fact(N:Integer):Integer;
var i,F:Integer;
Begin
    If N<0 than Fact:=0
    else
    If N<2 than
                Fact:=1;
            else
                Begin
                  F:=1;
                  For i:=1 to N-1 do F:=F*i;
                  Fact:=F
                End;
              {В случае,если требовалось решить рекурсией, то этот блок нужно было заменить на Fact:=N*Fact(N-1)}
End;

А дальше в основной програмmке вызвать Fact(M)/Fact(N)/Fact(M-N), опять же проверьте, что 0<N<=M.

Nadir Zaitov 11.05.2009 12:56

Писать дальше много и вы в програмке ничего не поймете... лучше теория:
Цитата:

Составить программу на языке программирования и в блок-схеме. Даны натуральные числа a и b, не равные нулю одновременно. Вычислить НОД(a,b) – наибольший общий делитель a и b.
Пусть даны числа A и B. Будем считать A>B (Иначе НОД(A,B)=НОД(B,A);

Далее если A mod Б = 0, то НОД (А,Б)=Б иначе НОД (А,Б)=НОД (Б,A mod Б).

Процесс быстро заканчивается, так что можно использывать рекурсию.

Nadir Zaitov 11.05.2009 13:03

Цитата:

Сообщение от sergeyf1 (Сообщение 216616)
Дано натуральное n. Подсчитать количество решений неравенства x2+y2<n в натуральных (неотрицательных) целых числах, не используя действий с вещественными числами.

В чем задача? Детский сад. Решайте двумя циклами, если речь идет о квадратах... интереснов первой задачке речь шла о кубах???

Dolphin 11.05.2009 13:39

Цитата:

Сообщение от sergeyf1 (Сообщение 216616)
не используя действий с вещественными числами.

Не понимаю я таких условий... Скоро скажут "сопроцессор не юзать, память не юзать"....


Текущее время: 02:21. Часовой пояс GMT +5.

Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод: zCarot
OOO «Единый интегратор UZINFOCOM»