/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 449
от 25.09.2007, 10:35

Вопрос № 102.645

Помогите пожалуйста написать программы на Pascal: 1) Определить является ли число n простым? 2) Покупатель должен заплатить а кассу S руб. У него имеются 1,2,5,10,50,100,500 руб. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных? 3) Дан треугольник на координатной плоскости (х1у1,х2у2,х3у3) нужно определить попадает ли точка ху в треугольник или нет,лежит ли она на одной из его сторон, где она на ходится относительно треугольника.

Отправлен: 19.09.2007, 15:04 Вопрос задал: Leeryhomer (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Дмитрий С. Здравствуйте, Leeryhomer! вот набросал функцию - она вернёт результат ИСТИНА если число простое или ЛОЖЬ в противном случае Приложение: function prost(var ch: integer): boolean; var i,k: integer; begin prost:=true; for i:=2 to (ch-1) do begin k:=ch mod i; if k=0 then prost:=false; end; --------- Наши программисты самые программистые программисты!..

Ответ отправил: Дмитрий С. (статус: 4-ый класс) Ответ отправлен: 19.09.2007, 15:54

Отвечает: _killhunter_ Здравствуйте, Leeryhomer! Решение задачи 2 1) определяем кол-во n1 купюр достоинством 500 (n1 := S div 500) 2) вычитаем из суммы S сумму уплаченую купюрами достоинством 500 3) аналогично определяем кол-во купюр остального достоинства. Решение задачи 3 Проще всего задача решается через площади. Для решения нам понадобится функция вычисляющая площадь треугольника через координаты вершин. Я использую векторное произведение, при желании его можно заменить другим способом вычисления. Пусть точка A1 имеет координаты (x1,y1), A2(x2,y2), A3(x3,y3), A(x,y) 1) вычисляем площадь треугольника A1 A2 A3. 2) последовательно вычисляем площади треугольников A A1 A2, A A1 A3, A A2 A3. 3) если какая-то из этих площадей (например А А1 А2) будет 0, то А лежит на стороне треугольника А1 А2 А3 (в примере на стороне А1 А2). 4) вычитаем из площади треуг. А1 А2 А3 площади 3-х других треугольников и смотрим на знак разности. 5) если разность меньше нуля, то точка А вне треугольника 6) если разность 0, то точка А внутри или на границе треугольника. Приложение: {програма 2} var S,i : integer; nom : array[1..7][1..2] of integer; BEGIN for i:=1 to 7 do nom[i][1]:=0;{зануляем массив с купюрами} nom[1][2] := 500; nom[2][2] := 100; nom[3][2] := 50; nom[4][2] := 10; nom[5][2] := 5; nom[6][2] := 2; nom[7][2] := 1;{занесли номиналы купюр} Readln(S); {считываем сумму} for i := 1 to 7 do begin nom[i][1] := S div nom[i][2]; {считаем кол-во купюр номинала nom[i][2]} S := S-nom[i][1]*nom[i][2];{вычитаем из общей суммы S заплаченную данными купюрами} end; for i := 1 to n do writeln("количество купюр номинала ", nom[i][2], " = ", nom[i][1]);{выводим на экран} END. {програма 3} var x1,x2,x3,x,y1,y2,y3,y,S,S1,S2,S3,r : real function ST(x1,y1,x2,y2,x3,y3:real):real{функция вычисляет площадь треугольника} begin ST := (abs((x1-x2)*(y1-y3)-(x1-x3)*(y1-y2)))/2; end; BEGIN S := ST(x1,y1,x2,y2,x3,y3); S1 := ST(x,y,x2,y2,x3,y3); S2 := ST(x,y,x1,y1,x3,y3); S3 := ST(x,y,x1,y1,x2,y2); {вычислили площади} if (S1=0)or(S2=0)or(S3=0) then{проверели лежит ли на границе} writeln("Точка лежит на стороне треугольника") else if (S-S1-S2-S3)<0 then{лежит ли вне} writeln("Точка лежит вне треугольника") else {если не одно из предидущих условий не выполнелось, то точка лежит внутри треугольника} writeln("Точка лежит внутри треугольника"); END.

Ответ отправил: _killhunter_ (статус: 1-ый класс) Ответ отправлен: 19.09.2007, 17:56

Отвечает: Багиев Александр Здравствуйте, Leeryhomer! 1. Пробегаешь от 2 до trunc(sqrt(n)) и смотришь, делится ли на эти числа n. Если хоть на какое-либо делится, то n - составное, иначе - простое. 2. см. в приложении 3. Проведи от данной точке к вершине особый отрезок и смотри, находится ли он в меньшем из углов, составленный из соседних отрезков треуг. (угол внутри треуг. не может быть больше или равен 180). Если это верно для всех трех особых отрезков, то точка - внутри треуг., иначе если особый отрезок лежит на прямой, содержащий одну из сторон треуг., но и данная точка лежит на этой стороне, иначе - вне треугольника. Приложение: ReadLn(S); N:=0; N:=N+(S div 500); S:=S mod 500; N:=N+(S div 100); S:=S mod 100; N:=N+(S div 50); S:=S mod 50; N:=N+(S div 10); S:=S mod 10; N:=N+(S div 5); S:=S mod 5; N:=N+(S div 2); S:=S mod 2; N:=N+S; WriteLn(N);

Ответ отправил: Багиев Александр (статус: 2-ой класс) Ответ отправлен: 19.09.2007, 18:37

Отвечает: Tribak Здравствуйте, Leeryhomer! вот 2ая задача: program www; uses crt; var s,i,j:integer; begin write('s='); readln(s); i:=0; while s>=500 do begin s:=s-500; inc(i); end; while s>=100 do begin s:=s-100; inc(i); end; while s>=50 do begin s:=s-50; inc(i); end; while s>=10 do begin s:=s-10; inc(i); end; i:=i+s; writeln(i); readln; end.

Ответ отправил: Tribak (статус: 3-ий класс) Ответ отправлен: 19.09.2007, 20:39

Вопрос № 102.686

Уважаемые эксперты! Помогите, пожалуйста, решить 3 задачи: 1. Дана непустая последовательность натуральных чисел, оканчивающаяся числом, являющимся факториалом некоторого натурального числа. Определить в этой последовательности порядковый номер числа, имеющего максимальную сумму цифр. 2. Дано натуральное число n. Вычислить значение выражения 11+22+33+44+…+(n-1)n-1+nn. 3. Составить алгоритм, в соответствии с которым с клавиатуры вводится последовательность различных чисел, признак окончания ввода – число, оканчивающееся нулём. Определить, сколько чисел было введено между максимальным и минимальным числами. Заранее огромное спасибо! Swallow.

Отправлен: 19.09.2007, 20:35 Вопрос задала: Ласточка (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Ласточка! Смотрите приложение 3-и задачи. 1)программа сделана с учетом, что последовательность натуральных чисел, оканчивающаяся числом, являющимся факториалом 2)размер массива можно сделать и больше, учитывается если n=67, то последнее число будет 6767; 3)возможно нужно корректировать строку writeln(abs(y-z-1)); Удачи! Приложение: Program Z_1; Uses Crt; Var n,maxsum:integer; k,imaxsum:byte; {проверка факториала} Function Check(n:integer):boolean; Var m:integer; k:byte; Begin m:=1; k:=1; While m<n do begin m:=m*k; inc(k); end; Check:=(m=n); End; {сумма цифр} Function Sum_tsifr(n:integer):integer; Var sum:integer; Begin sum:=0; While n<>0 do begin sum:=sum+n mod 10; n:=n div 10; end; Sum_tsifr:=sum; End; BEGIN ClrScr; k:=1; imaxsum:=1; maxsum:=-maxint; repeat write('number ',k,':'); readln(n); if Sum_tsifr(n)>maxsum then begin maxsum:=Sum_tsifr(n); imaxsum:=k; end; inc(k); until Check(n); Writeln('Порядковый номер числа, имеющего мах сумму цифр: ',imaxsum); readln; END. program z_2; var a:packed array[0..100]of integer; i,j,n,x,y:integer; begin {вводим число} write('Enter N:'); readln(n); {читим массив результата} for i:=0 to 100 do a[i]:=0; {поехали} j:=1; while j<=n do begin i:=0; {первое число} x:=j; while x>0 do begin a[i]:=a[i]+x mod 10; x:=x div 10; inc(i); end; {и второе} x:=j; while x>0 do begin a[i]:=a[i]+x mod 10; x:=x div 10; inc(i); end; {коррекция в массиве недолжно быть больше 10} for i:=0 to n-1 do begin a[i+1]:=a[i+1]+a[i]div 10; a[i]:=a[i]mod 10; end; {к следующему числу} inc(j); end; j:=0; {вывод} for i:=100 downto 0 do if (j>0)or(a[i]>0) then begin write(a[i]:1); inc(j); end; writeln; end. program z_3; var min,max,n,x,y,z:integer; begin {сбрасываем счетчик} x:=0; {заведомо большее и меньшее значения} min:=MaxInt; max:=-MaxInt; {поехали} repeat {вводим число} write('Enter number:'); readln(n); {увеличиваем счетчик} inc(x); {проверяем значения изапоминаем номер числа} if min>n then begin min:=n; y:=x; end; if max<n then begin max:=n; z:=x; end; {проверяем на выход} until (n mod 10)=0; {выводим разницу} writeln(abs(y-z)); end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист) Ответ отправлен: 19.09.2007, 22:32 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за решение, Константин Николаевич! Мне важно было его знать. Вы мне очень помогли.

Отвечает: Багиев Александр Здравствуйте, Ласточка! 1. Не ясно в задании сколько чисел и какая это последовательность. 2. 11+22+33+...+nn = = 11 * (1+2+...+9) + + 101 * (10+11+...+99) + + 1001 * (100+101+..+999) + ... и так далее в зависимости от n. Далее, для любых a<b верно: a+(a+1)+(a+2)+...+(b-1)+b = (b-a+1)*(b-a+2)/2, значит: 11+22+33+...+nn = = 11 * (9*10/2) + + 101 * (90*91/2) + + 1001 * (900*901/2) + ... Например, пусть n=777, тогда 11+22+33+...+777777 = = 11 * (9*10/2) + + 101 * (90*91/2) + + 1001 * ( (777-100+1)*(777-100+2)/2 ) = = 495 + 413595 + 230411181 = 230825271 Как видно, формула зависит от количества разрядов в числе n. 3. Просто записывать числа в массив A, пока не встретится число n такое, что (n mod 2=0). Далее найдем позиции imin и imax соответственно минимального и максимального числа min и max: Приложение: min:=A[1]; imin:=1; max:=A[1]; imax:=1; for i:=1 to Asize do begin // Asize - размер массива if min>A[i] then begin min:=A[i]; imin:=i; end; if max<A[i] then begin max:=A[i]; imax:=i; end; end; // теперь (abs(imax-imin)-1) - и есть результат

Ответ отправил: Багиев Александр (статус: 2-ой класс) Ответ отправлен: 19.09.2007, 23:47 Оценка за ответ: 5 Комментарий оценки: Огромное спасибо за помощь, Багиев Александр!

Вопрос № 102.696

Задана матрица M (N,M). Упорядочить по возврастанию элементы каждой строки матрицы N<=15, M<=10.

Отправлен: 19.09.2007, 22:14 Вопрос задал: Сидоров, Александр, Иванович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Verena Здравствуйте, Сидоров, Александр, Иванович! Сортировку проводим самым обычным методом - методом пузырька. Каждыйэлемент в строке сравнивается с последующими, и если находится меньший - меняем их местами. Таким образом элементы постепенно "всплывают" нужном порядке. Чтобы отсортировать по срокам, необходимо три цикла - один по строкам и два по столбцам. Решение в приложении. Удачи! Приложение: var a: array [1..15, 1..10] of integer; {объявляем матрицу с мах возможным числом элементов} i, j, k, m, n, buf: integer; begin writeln ('Enter n:'); {ввод входных данных} readln (n); writeln ('Enter m:'); readln (m); writeln ('Enter elements'); for i:=1 to n do for j:=1 to m do readln (a[i,j]); {сортировка методом пузырька по возрастанию} for i:=1 to n do {цикл по строкам} for j:=1 to m-1 do {два цикла по элементам строк} for k:=j+1 to m do if a[i,j]>a[i,k] then {если встречаем меньший элемент} begin buf:=a[i,j]; {меняем местами} a[i,j]:=a[i,k]; a[i,k]:=buf; end; writeln; for i:=1 to n do {вывод на экран} begin for j:=1 to m do write (a[i,j]); writeln; end; end. --------- Эта история - не для истории, понимаешь?

Ответ отправила: Verena (статус: Студент) Ответ отправлен: 19.09.2007, 22:44 Оценка за ответ: 5

Отвечает: Артём1983 Здравствуйте, Сидоров, Александр, Иванович! В нежеприведённой программе в первом цикле осуществляется заполнение матрицы случайными числами и вывод на экран во втором цикле происходит сортировка а в третьем вывод на экран отсортированного массива. Приложение: {102696} uses crt; type vector = array[1..10]of integer; matrix = array[1..15]of vector; var counter,N,M,i,j,swp:integer; A:matrix; begin clrscr; randomize; write('введите количество строк (N<=15) N='); readln(N); write('введите количество столбцов (M<=10) M='); readln(M); for i:=1to N do begin for j:=1to M do begin A[i,j]:=1+random(10); if j<>M then write(A[i,j]:3) else begin write(A[i,j]:3); writeln; end; end; end; writeln('-------отсортированный массив-------'); for i:=1to N do begin counter:=0; while counter<M do begin for j:=1to M do begin if A[i,j]>=A[i,j+1] then begin if A[i,j+1]=0 then begin {ничего не делать} end else begin swp:=A[i,j]; A[i,j]:=A[i,j+1]; A[i,j+1]:=swp; end; end else counter:=counter+1; end; end;{конец тела цикла while} end; for i:=1to N do begin for j:=1to M do begin if j<>M then write(A[i,j]:3) else begin write(A[i,j]:3); writeln; end; end; end; end.

Ответ отправил: Артём1983 (статус: 3-ий класс) Ответ отправлен: 21.09.2007, 18:38 Оценка за ответ: 3

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.60 от 22.09.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru