|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.07.2010, 15:48 | #1 |
Регистрация: 23.07.2010
Сообщений: 3
|
Помогите решить задачи в паскале
не могу решить 3 задачи и закрыть сессию =( помогите хоть одну решить =(
1) выведите на печать номера точек, лежащих в круге радиусом R с центром в начале координат. Координаты точек заданы массивами X(N) и Y(N). 2) постройте матрицу A(N,N), элементы которой определяются равенствами a(ij)=i+2j, а также найдите произведение чётных элементов этой матрицы, удовлетворяющих условию a(ij)<P(0<P<3N) 3) выясните, верно ли, что в заданом предложении Р есть все буквы, входящие в заданое слово S. Последний раз редактировалось Лвёночек; 23.07.2010 в 15:50. |
23.07.2010, 16:11 | #2 |
Форумчанин
Регистрация: 05.04.2010
Сообщений: 410
|
№ 1
Код:
ICQ: 593-013-807
|
23.07.2010, 16:36 | #3 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Код:
I'm learning to live...
|
|
23.07.2010, 17:17 | #4 |
Регистрация: 23.07.2010
Сообщений: 3
|
Спасибо большое, я сейчас заплачу от радости
|
23.07.2010, 19:19 | #5 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
не буду утверждать, что алгоритм, предложенный Don Karleone неверен, но я бы написал гораздо банальнее:
Код:
|
25.07.2010, 12:39 | #6 |
Пользователь
Регистрация: 17.12.2009
Сообщений: 74
|
если я правильно понял услвоие 2ой задачи то вот код.
var n,i,j,p,rez : longint; mas : array[1..100,1..100] of longint; BEGIN read(n,p);{считываем n и p} for i := 1 to n do for j := 1 to n do Mas[i,j] := i+2*j; rez := -1;{на тот случай если таких элементов нету} for i := 1 to n do for j := 1 to n do if ((Mas[i,j] mod 2) = 0) and (Mas[i,j] < p) then if (rez = -1) then rez := Mas[i,j] else rez := rez*Mas[i,j]; if rez = -1 then writeln('takix elementov nety') else writeln(rez); END. |
25.07.2010, 15:55 | #7 |
Регистрация: 23.07.2010
Сообщений: 3
|
Спасибо большое всем. Наконец я нашла решение недостоющих задач, чтобы сдать сессию.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачи на паскале | ddeman666 | Помощь студентам | 1 | 24.12.2009 09:55 |
Помогите решить задачи на Паскале | Natasha190989 | Помощь студентам | 4 | 02.05.2009 11:36 |
привет всем! помогите пожалуйста решить две задачи на паскале. я в паскале полный ноль. | Пищенок Саша | Паскаль, Turbo Pascal, PascalABC.NET | 5 | 20.01.2009 13:46 |
2 задачи в Паскале помогите решить | Baby33 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 20.01.2009 13:01 |
помогите решить задачи на паскале | BurningRage | Помощь студентам | 19 | 17.05.2008 22:25 |