Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Шичко Игорь Статус: Практикант Рейтинг: 174 ∙ повысить рейтинг >>

Verena Статус: Специалист Рейтинг: 125 ∙ повысить рейтинг >>

Пупорев Юрий Борисович Статус: Специалист Рейтинг: 124 ∙ повысить рейтинг >>

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

Выпуск № 754
от 13.12.2008, 23:35

Вопрос № 153463: здравствуйте уважаемые эксперты, помогите пожалуйста решить данную задачу (Определить правильность даты,введенной с клавиатуры (число-от 1 до 31, месяц-от 1 до 12).Если введены некорректные данные, то сообщать об этом.)...

Вопрос № 153.463

здравствуйте уважаемые эксперты, помогите пожалуйста решить данную задачу (Определить правильность даты,введенной с клавиатуры (число-от 1 до 31, месяц-от 1 до 12).Если введены некорректные данные, то сообщать об этом.)

Отправлен: 08.12.2008, 15:41 Вопрос задал: Устенко Николай Александрович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 6a3uJI Здравствуйте, Устенко Николай Александрович! Предлагаю Вам следующий вариант решения: Приложение: uses crt; var day,month:byte; flag:boolean; {сообщение об ошибке} Function error(Message: string; NumberMin, NumberMax: LongInt):boolean; Var Mes: string; begin error:=true; if flag then begin Mes:='Ошибка ввода: ' + Message; writeln(Mes, '[', NumberMin, '..', NumberMax,']'); error:=false; end; end; {Ввод целочисленных данных Number (ширина поля Width) с проверкой диапазона [NumberMin .. NumberMax] и со строкой приглашения Inv} Procedure InputNumber(Var Number: byte; NumberMin, NumberMax: LongInt; Width: Byte; Inv: String); Begin repeat flag:=false; Write(Inv,'===>'); {$I-} Readln(Number); {$I+} if IOResult<>0 then flag:=true else if (Number<NumberMin) or (Number>NumberMax) then flag:=true; until error('Число должно быть в пределах ', NumberMin, NumberMax); End; begin clrscr; writeln('--------Ввод даты (число и месяц)--------'); InputNumber(day,1,31,2,'Введите число: '); InputNumber(month,1,12,2,'Введите месяц: '); writeln; writeln('Число: ',day,', месяц:',month); end.

Ответ отправил: 6a3uJI (статус: 7-й класс) Ответ отправлен: 09.12.2008, 13:00 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238146 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 153.465

Здравствуйте,уважаемые эксперты,помогите с решением задач: 1.Составить программу вывода на экран всех натуральных чисел,не превосходящих N и делящихся на каждую из своих цифр.Оформить с помощью процедур. 2.Составить программу нахождения наименьшего натурального N-значного числа Х (Х>=10),равное утроенному произведению своих цифр.Оформить с помощью функций.

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

Отвечает: Шичко Игорь Здравствуйте, Evela! Предлагаю вам вариант решения. function Proizv(number: integer): boolean; - возвращает TRUE, если число равно утроенному произведению цифр. Код и описание в приложении. Для 2-значного числа первое число - 15. Приложение: function Proizv(number: integer): boolean; var i, code, nomer, itog: integer; str_number: string; begin Str(number, str_number); itog:= 1; for i:= 1 to Length(str_number) do begin Val(str_number[i], nomer, code); itog:= itog * nomer; end; itog:= itog * 3; if itog = number then Proizv:= True else Proizv:= False; end; var i, temp, n, max, min: integer; begin writeln('Vvedite chislo znakov'); {вводим число знаков нашего числа} readln(n); max:= 1; min:= 1; for i:= 1 to n do max:= max * 10; {вычисляем максимальное и минисальное значение N-значного числа} for i:= 1 to n-1 do min:= min * 10; temp:= 0; i:= min; while (temp = 0) and (i < max) do {перебор чисел от min до max пока не найдем или не дойдем до максимального} begin if Proizv(i) then temp:= i; i:= i+1; end; if temp > 0 then writeln('Iskomoe chislo = ', temp:10) {если число есть} else writeln('Iskomyh chisel net'); {если числа нет} readln; end.

Ответ отправил: Шичко Игорь (статус: Практикант) Ответ отправлен: 09.12.2008, 09:03 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238127 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Преогромнейшее спасибо!!!Выручили!

Вопрос № 153.466

Не могли бы вы подсказать,что значит четные и нечетные индексы в массиве.

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

Отвечает: 6a3uJI Здравствуйте, Evela! Индекс массива — целое число, указывающее на конкретный элемент массива. Массив — это объект данных, в котором хранится несколько единиц данных, идентифицируемых с помощью одного или нескольких индексов. Количество используемых индексов массива может быть различным. Массивы с одним индексом называют одномерными, с двумя — двумерными и т. д. Одномерный массив нестрого соответствует вектору в математике, двумерный — матрице. Чаще всего применяются массивы с одним или двумя индексами, реже — с тремя, ещё большее количество индексов встречается крайне редко. Если индекс четный - то он делиться на 2 без остатка. (2, 4, 6, .... 128, и т.д.), иначе индекс нечетный (3, 5, 7, .... 129, и т.д.) Пример: Дан массив A состоящий из 10 элементов. Элементы с четными индексами: a[2], a[4], a[6], a[8], a[10]; Элементы с нечетными индексами: a[1], a[3], a[4], a[5], a[9];

Ответ отправил: 6a3uJI (статус: 7-й класс) Ответ отправлен: 08.12.2008, 16:29 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238089 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Понятно.:)

Вопрос № 153.485

Дано число k (0 < k < 11) и матрица размера 5 x 10. Найти сумму и произведение элементов k-го столбца данной матрицы. Хелп плз!

Отправлен: 08.12.2008, 17:21 Вопрос задал: Вольский Никита Евгеньевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 6a3uJI Здравствуйте, Вольский Никита Евгеньевич! Исходная матрица: a: array[1..5,1..10] of integer; {5 строк и 10 столбцов} Решение в приложении. Приложение: sum:=0; {сумма} pr:=1; {произведение} for i:=1 to 5 do begin sum:=sum+a[i,k]; pr:=pr*a[i,k]; end; writeln('Сумма = ',sum); writeln('Произведение = ',pr)

Ответ отправил: 6a3uJI (статус: 7-й класс) Ответ отправлен: 09.12.2008, 11:59 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238143 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 153.491

ПОмогите пожалуйста!!!! задача :Даны два натуральных числа N и M. Определить,являются ли эти числа простыми. (Взаимно простыми называются числа,у которых наибольший общий делитель равен 1)!!! Приложение: ТУт тема "Составление,редактирование и отладка читабельной программы"..а цель "овладеть навыками правильного оформления программ в составлении со стилем программирования"

Отправлен: 08.12.2008, 18:00 Вопрос задала: Еленка (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь Здравствуйте, Еленка! Предлагаю Вам вариант решения. Код в приложении. Описание можно подкорректировать. Приложение: var i, n, m : integer; priznak_n, priznak_m: boolean; begin writeln('Vvedite N > 1'); readln(n); writeln('Vvedite M > 1'); readln(m); priznak_n:= True; priznak_m:= True; for i:= 2 to n-1 do if n mod i = 0 then priznak_n:= False; for i:= 2 to m-1 do if m mod i = 0 then priznak_m:= False; if priznak_n and priznak_m then writeln('Chisla N and M prostye'); if not priznak_n and priznak_m then writeln('Chislo M prostoe; N - no'); if priznak_n and not priznak_m then writeln('Chislo N prostoe; M - no'); if not priznak_n and not priznak_m then writeln('Chisla N and M ne prostue'); readln; end.

Ответ отправил: Шичко Игорь (статус: Практикант) Ответ отправлен: 09.12.2008, 08:34 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238123 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 153.492

пожалуйста!!! задача: ДАны квадратная матрица А порядка n и вектор b с n элементами. Получить вектор (A-E)*b,где E-единичная матрица порядка n Приложение: тема" Составление,редкатирование,отладка программ с правильным выбором элементов стиля программирования"...

Отправлен: 08.12.2008, 18:04 Вопрос задала: Еленка (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь Здравствуйте, Еленка! Предлагаю Вам вариант решения. Код в приложении. Приложение: const n = 5; var i, j : integer; a: array[1..n, 1..n] of integer; b, c: array[1..n] of integer; begin randomize; writeln('Massiv a'); for i:= 1 to n do begin for j:= 1 to n do begin a[i,j]:= Random(10); write(a[i,j]:5); end; writeln; end; writeln('Vector b'); for i:= 1 to n do begin b[i]:= Random(10); write(b[i]:5); end; writeln; writeln('Massiv (A-E)'); for i:= 1 to n do {вычитаем единичную матрицу} begin for j:= 1 to n do begin a[i,j]:= a[i, j] - 1; write(a[i,j]:5); end; writeln; end; writeln; writeln('Vector (A-E)*b :'); {вычисление произведения} for i:= 1 to n do begin c[i]:= 0; for j:= 1 to n do begin c[i]:= c[i] + a[j, i] * b[j]; end; write(c[i]:8); end; readln; end.

Ответ отправил: Шичко Игорь (статус: Практикант) Ответ отправлен: 09.12.2008, 08:22 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238122 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 153.500

ПРОШУ...помогите=((Задача: Составить программу,которая удаляет из списка L за каждым вхождением элемента E один элемент,если таковой имеется и он отличен от E. Приложение: Тема" Списки"

Отправлен: 08.12.2008, 18:46 Вопрос задала: Еленка (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 6a3uJI Здравствуйте, Еленка! Предлагаю следующее решение с комментариями: Список из N (вводится с клавиатуры) элементов заполняется случайными числами. Находится элемент равный е (вводится с клавиатуры) и исключается из списка следующий за ним элемент, если он не равен е. Приложение: uses crt; type {список целых чисел} PSpisok = ^TSpisok; TSpisok = record Inf: integer; {целое число} Next: PSpisok; {указатель на следующий элемент} end; var h: PSpisok; {первый элемент списка} L: PSpisok; {список} x: PSpisok; {последний элемент списка} i,n,e:integer; begin clrscr; write('Введите кол-во элементов списка, N='); readln(n); randomize; {создаем первый элемент списка} New(L); {Выделяем память } L^.Next:=nil; {так как второго элемента нет, указатель на слудующий элемент делаем пустым} L^.Inf:=random(50)-25; {присваиваем случайное число} h:=L;{запоминаем первый элемент} x:=L;{запоминаем последний элемент} {создаем и заполняем следующие элементы списка( до N)} for i:=2 to n do begin New(L^.Next); {выделяем память для следующего элемента списка} L:=L^.Next; {переходим к следущему элементу списка} {заполняем} L^.Next:=nil; L^.Inf:=random(50)-25; x:=L; {запоминаем последний элемент списка} end; {выводим элементы списка на экран} L:=h; {переходим к первому элементу списка} while L^.Next<>nil do {пока указатель на следующий элемент не равен 0, т.е. следующий элемент не существует } begin write(L^.Inf:4); {выводим значение} L:=L^.Next; {перемещаемся к следующему элементу} end; write(L^.Inf:4); {выводим последний элемент списка} writeln; write('E='); readln(e); {ввод е - целое число} L:=h; {переходим к первому элементу списка} while (L^.Next)^.Next<>nil do {перемещаемся до предпоследнего элемента списка} begin if (L^.Inf = e) and ((L^.Next)^.Inf<>e) {текущий элемент равен е и последующий элемент не равен е} then L^.Next:=(L^.Next)^.Next; {исключаем следующий элемент из списка} L:=L^.Next; {переходим к следующему элементу списка} end; {выводим элементы списка на экран} L:=h; while L^.Next<>nil do begin write(L^.Inf:4); L:=L^.Next; end; write(L^.Inf:4); {освобождаем память} Dispose(L); end.

Ответ отправил: 6a3uJI (статус: 7-й класс) Ответ отправлен: 09.12.2008, 11:07 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238137 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 153.517

Здравствуйте! Нужно составить программу вывода на экран всех натуральных чисел,не превосходящих N и делящихся на каждую из своих цифр.Оформить с помощью процедур. Помогите пожалуйста!

Отправлен: 08.12.2008, 20:10 Вопрос задала: Evela (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь Здравствуйте, Evela! Предлагаю Вам вариант решения. function Delenie(number: integer): boolean; - возвращает TRUE, если делится на все цифры, и возвращает FALSE, если не делится. Код в приложении. Приложение: function Delenie(number: integer): boolean; var temp: boolean; i, code, nomer: integer; str_number: string; begin temp:= True; Str(number, str_number); for i:= 1 to Length(str_number) do begin Val(str_number[i], nomer, code); if nomer = 0 then temp:= False else if number mod nomer > 0 then temp:= False; end; Delenie:= temp; end; var i, n: integer; begin writeln('Vvedite n:'); readln(n); writeln; for i:= 1 to n do if Delenie(i) then write(i:5); readln; end.

Ответ отправил: Шичко Игорь (статус: Практикант) Ответ отправлен: 09.12.2008, 07:52 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238121 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромнейшее пасяб!!!

Вопрос № 153.539

Для заданных с клавиатуры значений X1,X2,...,Xn вычислить значение величины Y по формуле: Y=X1-X2+X3-X4...(-1)^N+1*XN -степень N+1

Отправлен: 08.12.2008, 23:14 Вопрос задал: Александр С (статус: 1-й класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Шевченко Дмитрий Здравствуйте, Александр С! Код программы в приложении. Сначала вводится количество векторов, потом для каждого вектора вводится количество координат, потом координаты. С уважением, Дмитрий. Приложение: program z153359; Function stepen(n:Integer):Integer;{Возведение -1 в степень n} var res,i:Integer; begin res:=1;{если степень = 0 => результат = 1} For i:= 1 to n do res:=res*(-1); stepen:=res; end; var i,k,kol,n:Integer; x,y:Real; begin Write('Enter number of vectors: ');{вводим вол-во векторов} ReadLn(kol); For i:= 1 to kol do{обрабатываем каждый вектор} begin WriteLn('--------- Vector ',i,': ---------'); Write('Enter N: ');{ввод N} ReadLn(n); y:=0; For k:= 1 to N do{обрабатываем координаты вектора} begin Write('Enter X',k,': '); ReadLn(x); y:=y+stepen((k-1) mod 2)*x;{-1^(k+1) = -1^((k-1) mod 2) т.к. значение зависит только отчётности числа N} end; WriteLn('Y = ',y:0:3);{выводим ответ} end; ReadLn(); end.

Ответ отправил: Шевченко Дмитрий (статус: 7-й класс) Ответ отправлен: 10.12.2008, 19:38 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238218 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Огромное Спасибо за ответ!!!

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