RusFAQ.ru: Программирование на языке Pascal
| Информационный Канал Subscribe.Ru |
/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal
Выпуск № 91
от 01.11.2005, 20:03
| Администратор: | Калашников О.А. |
| В рассылке: | Подписчиков: 146, Экспертов: 44 |
| В номере: | Вопросов: 1, Ответов: 5 |
Вопрос № 28416: Доброе время суток помогите плиз решить две задачки 178. Дано натуральные числа п, Определить количество членов аk последовательности в) парных чисел, которые квадратные; 200. Дано целые числа а, (n > 0), Определить, каким по сч...
| Вопрос № 28.416 |
|
Доброе время суток помогите плиз решить две задачки 178. Дано натуральные числа п, Определить количество членов аk последовательности в) парных чисел, которые квадратные; 200. Дано целые числа а, (n > 0), Определить, каким по счёту идёт в последовательности член, равний а. Если такого члена нет, то соответственно должно быть число 0. Приложение: |
| Отправлен: 27.10.2005, 21:02 Вопрос задал: Sexy (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0) |
| Отвечает: mvp Здравствуйте, Sexy! Что-то не совсем ясно сформулирован вопрос. Предположу следующее: 1) Дано натуральное n. Определить количество членов последовательности {ak}, которые <= n и являются квадратами чётных чисел. function Zad1(n: Word) : integer; begin Zad1 := trunc(sqrt(n)) div 2 end; 2) Есть последовательность целых чисел xn. Нужно определить индекс i, такой что, xi = a. Если такового нет, то выдать 0. var x : array[1..N] of integer; function Zad2(a : integer) : integer; var i : integer; begin Zad2 := 0; for i := 1 to N do if a = x[i] then begin Zad2 := i; break end end; --------- Моя совесть чиста - не бывшая в употреблении |
| Ответ отправил: mvp (статус: 8-ой класс) Отправлен: 27.10.2005, 21:41 |
| Отвечает: Маренич Владимир Здравствуйте, Sexy! Честно говоря, надоели вопросы на тему "Сделайте за меня, а то я не хочу... А я пока пивка попью...". Если есть проблема с реализацией какого-либо алгоритма/задачи, т.е. когда что-то не получается, тогда милости просим. На то и создан этот сайт. А делать за Вас лабы или курсовые здесь никто не обязан! Извините, можете ставить хоть кол, но я не буду отвечать на такие вопросы, хоть мне и не трудно. Здесь дело принципа. |
| Ответ отправил: Маренич Владимир (статус: 3-ий класс) Отправлен: 27.10.2005, 23:29 |
| Отвечает: sir henry Здравствуйте, Sexy! 1) Не совсем понял, что такое "квадратные" числа. Может быть квадрат числа? Уточните пожалуйста. 2) А в какой форме они заданы? Можно считывать числа по одному и сравнивать их с а: Function compint(a: integer; t:array of integer): integer; var i, j: integer; Begin i:=0; compint:=0; j:=High(t)-1; For i:=0 To j Do If t[i]:=a Then Begin compint:=i; Break; End; End; |
| Ответ отправил: sir henry (статус: Профессор) Отправлен: 28.10.2005, 05:22 |
| Отвечает: Schmak Здравствуйте, Sexy! 1.Не совсем понятно сформулирована 1-ая задача. 2.Вот пример решения 2-ой задачи const n=100; var b:array [1..n] of integer; i,a:integer; begin //Задание массива чисел в моём случае, вы можете задавать по другому for i:=1 to n do begin b[i]:=random(100); write(b[i],' '); end; readln(a); for i:=1 to n do if b[i]=a then begin writeln(i); exit; end; writeln(0); end. |
| Ответ отправил: Schmak (статус: 4-ый класс) Отправлен: 28.10.2005, 05:27 |
| Отвечает: Techrat Здравствуйте, Sexy! Первую задачу не понял, а ко второй вот решение Приложение: |
| Ответ отправил: Techrat (статус: 3-ий класс) Отправлен: 28.10.2005, 11:07 |
© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.
Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки:
comp.soft.prog.pasplus
Архив рассылки
Отписаться
Вспомнить пароль
| В избранное | ||
