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

Выпуск № 655
от 19.07.2008, 15:35

Вопрос № 139.961

Здравствуйте, уважаемые эксперты! Сегодня вот такие задачи: 1. Дана последовательность из n неторицательных целых чисел. На каждом шаге эти числа упорядочиваются по возрастанию и каждые два соседних числа заменяют на разность большего и меньшего. Эту операцию повторяют до тех пор, пока не останется одно число. Напишите программу, которая моделирует описанный процесс. 6 26 65 95 43 99 57 17 14 8 30 4 4 6 3 13 1 2 7 1 5 4 мой неисправный код в приложении. 2. С клавиатуры вводятся два числа x и у - координаты клетки на шахматном поле. Определите, какое минимальное количество ходов конём нужно сделать, чтобы попасть из клетки (1, 1) в клетку (х, у). 3 4 3 3. С клавиатуры вводятся два натуральных числа а и b. Определите, сколько всего чисел на отрезке [a, b], у которых все цифры различны. 4. С клавиатуры вводятся пять различных чисел. Найдите медиану (среднее по величине число). 5 0 7 3 4 4 код в приложении 5. С клавиатуры вводится натуральное число n. Напишите программу, которая рисует равнобедренный треугольник из звёздочек с высотой и основанием, равным n. 6 * * * * * * * * * * * * * * 6. Дана последовательность чисел, заканчивающихся нулём. У каждого числа сначала записано количество цифр в этом числе, а потом через пробел - сами цифры. Выведите сначала количество чисел в последовательности, а потом сами числа. 3 4 7 3 2 8 9 3 5 0 5 0 3 473 89 505 7. С клавиатуры вводятся два натуральных числа а и b. Выведите все простые числа на отрезке [a, b] в порядке возрастания суммы цифр. 150 190 151 163 181 173 157 167 179 8. Треугольник Паскаля строится следующим образом. Первая строка состоит из одного числа, равного единице. Каждая следующая содержит на одно число больше, чем предыдущая, Первое и последнее из этих чисел равны 1, а все остальные вычисляются как сумма числа, сотящего в предыдущей строке над ним числа, стоящего в предыдущей строке слева от него. По заданному числу n выведите первые n строк треугольника Паскаля. 5 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 Приложение: Var n, i, j, k, t: Integer; x: Array[1..100] Of Integer; Procedure ReadData; Begin ReadLn(n); For i := 1 To n Do Begin Read(x[i]); End; End; Procedure WriteData; Var a: Integer; Begin a := 0; For j := 1 To n-a Do Begin Write(x[j]); End; WriteLn; Inc(a); End; Begin ReadData; For i := 1 To n Do Begin For j := 1 To n-1 Do Begin For k := 1 To n-1 Do Begin If (x[k] > x[k+1]) Then Begin t := x[k]; x[k] := x[k+1]; x[k+1] := t; End; End; End; For j := n-(i-1) DownTo 1 Do Begin x[j] := x[j]-x[j+1]; End; WriteData; End; WriteLn; ReadLn; End. Var x: Array[1..5] Of Integer; t: Array[1..3] Of Integer; i, j, med, min, max, index: Integer; Procedure ReadData; Begin For i := 1 To 5 Do Begin Read(x[i]); End; End; Procedure WriteData; Begin WriteLn(med); ReadLn; End; Begin ReadData; min := x[1]; j := 1; For i := 1 To 5 Do Begin If (x[i] < min) Then Begin min := x[i]; index := i; End; End; x[index] := -32767; max := x[1]; For i := 1 To 5 Do Begin If (x[i] > max) Then Begin max := x[i]; index := i; End; End; x[index] := 32767; For i := 1 To 5 Do Begin If ((x[i] <> 32767) And (x[i] <> -32767)) Then Begin t[j] := x[i]; Inc(j); End; End; min := t[1]; For i := 1 To 3 Do Begin If (t[i] < min) Then Begin min := t[i]; index := i; End; End; t[index] := -32767; max := t[1]; For i := 1 To 3 Do Begin If (t[i] > max) Then Begin max := t[i]; index := i; End; End; t[index] := 32767; For i := 1 To 3 Do Begin If ((t[i] <> -32767) And (t[i] <> 32767)) Then Begin med := t[i]; End; End; WriteData; End.

Отправлен: 14.07.2008, 15:15 Вопрос задал: Хощенко Артём Владимирович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 33)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Хощенко Артём Владимирович! Помню начиналось наше знакомство с рисования треугольников из звездочек. Продолжим это занятие. В приложении решение задач №№1,5,7,8. Особых пояснений не делал, Вы уже сравнительно давно программируете и, думаю, в них не нуждаетесь. Приложение: Задача 1. Пришлось внести значительные поправки в Ваш код, т.к. запутался в циклах основной программы. uses crt; type Tmas=array[1..100] of integer; Var m,k: Integer; x: Tmas; Procedure ReadData(var n:integer;var a:Tmas); {сделаем процедуру с параметрами, чтобы она передавала в основную программу размерность массива и сам массив} var i:integer; Begin write('n='); ReadLn(n); writeln('Vvedite ',n,' chisel:'); For i := 1 To n Do Begin Read(a[i]); End; readln; writeln; End; Procedure Sort(n:integer;var a:Tmas); {сортировку выделим в отдельную процедуру, она берет из программы размерность массива, массив и выдает его в программу в измененном виде} var i,j,t:integer; begin For i := 1 To n-1 Do For j := 1 To n-1 Do If (a[j] > a[j+1]) Then Begin t := a[j]; a[j] := a[j+1]; a[j+1] := t; End; End; procedure Razn(var a:Tmas;var n:integer); {обработку массива также выделим в отдельную процедуру, которая переделывает массив, выдает его в основную программу, также в программу выдается новое значение n, уменьшенное на 1} var i:integer; begin For i:=1 to n-1 Do a[i] := a[i+1]-a[i]; n:=n-1; End; Procedure WriteData(n:integer;var a:Tmas); {добавил параметры, чтобы процедура знала длину массива и сам массив} var i:integer; Begin For i:=1 To n Do Write(a[i],' '); WriteLn; end; Begin clrscr; ReadData(m,x); writeln('Rezultat:'); for k:=1 to m-1 do {в цикле от 1 до m-1 вызываем по очереди все процедуры (кроме ReadData, которая вызывается один раз)} begin Sort(m,x); Razn(x,m); WriteData(m,x); End; ReadLn; End. 5. С клавиатуры вводится натуральное число n. Напишите программу, которая рисует равнобедренный треугольник из звёздочек с высотой и основанием, равным n. 6 * * * * * * * * * * * * * * Задача №5 – исправленная 2 раза. uses crt; var n,i,j:integer; a:array[1..50,1..50]of char; begin clrscr; write('n=');readln(n); for i:=1 to n do for j:=1 to 2*n-1 do begin if (j=n-i+1)or(j=n+i-1) then a[i,j]:='*' else if (i=n)and(j mod 2=1) then a[i,j]:='*' else a[i,j]:=' '; end; for i:=1 to n do begin for j:=1 to 2*n-1 do write(a[i,j]); writeln; end; readln end. Задача 6. По условию задачи последовательность заканчивается нулем, значит внутри ее нулей быть не может, т.к. если вводить последовательность с клавиатуры, то при вводе ноля ввод должен прекратится. Поскольку в условии не написано, что последовательность вводится, принимаем ее в виде константы. uses crt; const s:string='3 4 7 3 2 8 9 3 5 1 5 0';{наша последовательность} var i,k,t,p,c:integer; a:array[1..20]of integer; begin clrscr; writeln(s); for i:=1 to length(s) do if s[i]=' 'then {удалим все пробелы} begin delete(s,i,1); end; i:=1;k:=0; while s[i]<>'0' do {пока не ноль} begin val(s[i],t,c); {превращаем в число первый символ} val(copy(s,i+1,t),p,c);{превращаем в число следующие t символов} k:=k+1; {считаем} a[k]:=p; {записываем в массив} i:=i+t+1; {переходим к следующей паре цифра-число} end; writeln('k=',k); {выводим количество} for i:=1 to k do write(a[i],' '); {выводим числа} readln end. Задача 7. uses crt; var a,b,x:longint; j,t,p:integer; m:array[1..100] of longint; function Prost(n:longint):boolean; {функция определяет, является ли число простым. Если число не делится ни на лдно из интервала [2, sqrt(n)], то оно простое} var i:longint; begin for i:=2 to round(sqrt(n)) do if n mod i=0 then begin Prost:=false; end; end; function SumCif(n:longint):byte; {функция считает сумму цифр в числе} var sm:byte; u:longint; begin sm:=0; while n>0 do begin u:=n mod 10;{отделяем последнюю цифру} sm:=sm+u; {прибавляем ее к сумме} n:=n div 10; {пишем число без последней цифры} end; SumCif:=sm; end; begin write('a=');readln(a); write('b=');readln(b); for j:=a to b do if Prost(j)then {записываем простые числа в массив} begin t:=t+1; m[t]:=j; end; for j:=1 to t-1 do {сортируем массив по возрастанию} for p:=1 to t-1 do if SumCif(m[p])>SumCif(m[p+1])then begin x:=m[p]; m[p]:=m[p+1]; m[p+1]:=x; end; for j:=1 to t do write(m[j],' '); readln end. 8. Треугольник Паскаля строится следующим образом. Первая строка состоит из одного числа, равного единице. Каждая следующая содержит на одно число больше, чем предыдущая, Первое и последнее из этих чисел равны 1, а все остальные вычисляются как сумма числа, сотящего в предыдущей строке над ним числа, стоящего в предыдущей строке слева от него. По заданному числу n выведите первые n строк треугольника Паскаля. 5 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 uses crt; var a:array[0..20,0..20]of integer; n,i,j,k:integer; begin clrscr; write('n=');readln(n); {Заполнение треугольника данными} a[0,0]:=1;a[1,0]:=1;a[1,1]:=1; for i:=2 to n do begin a[i,0]:=1; for j:=0 to i+1 do begin if j=i then a[i,j]:=1 else a[i,j]:=a[i-1,j-1]+a[i-1,j]; end; end; {вывод треугольника} k:=4;{количество позиций под числа} for i:=0 to n do begin {вводим пробелы в начале каждой строки} write(' ':(n-i+1+((k div 2)-1)*(n-i))); for j:=0 to i do write(a[i,j]:k); {выводим треугольник} writeln; end; readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 14.07.2008, 22:19 Оценка за ответ: 5

Отвечает: Зенченко Константин Николаевич Здравствуйте, Хощенко Артём Владимирович! Первая и тpетья задачи в приложении. Коментарии в программах. Удачи! Приложение: первая: const m=15; var a:array[1..m]of integer; n,i,j,b:integer; begin {вводим число элементов} repeat write('Enter N:'); readln(n); until n<=m; {создаем массив случайно и выводим} write('1-st:':5); randomize; for i:=1 to n do begin a[i]:=random(100); write(a[i]:5); end; writeln; {основной цикл} while n>1 do begin {выводим неотсортированные элементы массива} write(' sub:'); for i:=1 to n-1 do begin write(a[i]:5); end; writeln(a[n]:5); writeln; {сортируем элементы массива} for i:=1 to n-1 do for j:=i+1 to n do if a[i]>a[j]then begin{} b:=a[i]; a[i]:=a[j]; a[j]:=b; end; {выводи отсортированого массива} write('sort:'); for i:=1 to n-1 do begin write(a[i]:5); a[i]:=a[i+1]-a[i]; end; writeln(a[n]:5); {уменьшаем счетчик} dec(n); end; writeln('res:':5,a[1]:5); end. третья var a,b,c,e:integer; f:boolean; d:array[0..9] of integer; begin {вводим натуральное число А} repeat write('Enter A:'); readln(a); until a>0; {вводим натуральное число В, большее чем А} repeat write('Enter B:'); readln(b); until b>a; {в цикле проверяем весь диапазон натуральных чисел} for c:=a to b do begin {сбрасываем массив счетчиков} for e:=0 to 9 do d[e]:=0; e:=c; {считаем, что все цифры различны} f:=true; {в цикле проверяем все цифры числа} while e>0 do begin inc(d[e mod 10]);{увеличиваем счетчик} if d[e mod 10]>1 then f:=false;{если цифра повторилась то на выходе-ложь} e:=e div 10; end; if f then write(c:6); end; writeln; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 15.07.2008, 14:07 Оценка за ответ: 5

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