Массив и Матрица, Крик о помощи. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Массив и Матрица, Крик о помощи. |
Ander |
Сообщение
#1
|
Гость |
Мне дали решить две задачи. До понедельника я всю голову сломал. В школе Паскаля не было теперь мучаюсь. Помогите мне пожалуйста и я за вас вечно молиться буду.
Вот первая. Пусть a(i)=(i-1)/(i+1) + sin((i-1)^3/(i+1)) i= 1,2.... Дано натуральное n. Среди a1..an найти все положительные числа, среди всех положительных a1..an выбрать наименьшее число. Эту задачу нужно сделать 3 способами. С помощью for, while и repeat. Вторая. Таблица футбольного чемпионата задана квадратной матрицей порядка n, в которой все элементы, принадлежащие главной диагонали, равны нулю, а каждый элемент не принадлежащий главной диагонали, равен 2, 1 или 0 (числу очков набранных в игре: 2 - выигрыш, 1 - ничья, 0 - проиграли). Найти число команд имеющих больше побед, чем поражений. Её тоже с помощью for, repeat и while. Я знаю тут есть много умных людей. Заранее спасибо!!!. |
volvo |
Сообщение
#2
|
Гость |
Вот тебе первая задача (через For):
var На Repeat и While переводи сам. Правило такое: FOR: Цитата for {переменная} := {начало} to {конец} do begin {тело цикла} end; WHILE: Цитата {переменная} := {начало}; while {переменная} <= {конец} do begin {тело цикла} {переменная} := {переменная} + 1; end; REPEAT: Цитата {переменная} := {начало}; repeat {тело цикла} {переменная} := {переменная} + 1; until {переменная} > {конец}; |
Ander |
Сообщение
#3
|
Гость |
Блин, спасибо за первую.
|
Текстовая версия | 2.06.2024 10:17 |