Вторник, 07.01.2025
Pascal 4 All
[ · Новые сообщения · Участники · Правила форума · Поиск · RSS ]

 

  • Страница 1 из 1
  • 1
Модератор форума: Seqular, Pavel  

Задачи по Паскалю
LisДата: Понедельник, 25.04.2011, 23:14 | Сообщение # 1
Новичок
Группа: Пользователи
Сообщений: 1
Репутация: 0
Замечания: 0%
Статус: Offline
Дан массив О=[{o[i,j]}, i=1,10; j=1,10]
(элементы выбираются случайным образом):
1) Найти max-элемент во 2-ой строке.
2) Посчитать количество отрицательных элементов главной диагонали.(с помощью function или procedure).
3) Найти суммы элементов в каждой строке.
4) Перемножить элементы 5 столбца, стоящие на нечетных позициях.
5) Упорядочить массив по не возрастанию элементов 1 строки.
6) Найти количество цифр в целом положительном числе.
7) С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Выдайте на экран преобразованный текст, заменив в нем все запятые на двоеточия.

По возможности можете еще предоставить словесный и графический способ решения этих задач.

[FONT="Arial Black"]Заранее спосибо![/FONT]

 
SeqularДата: Воскресенье, 08.05.2011, 19:49 | Сообщение # 2
Хранитель
Группа: Администраторы
Сообщений: 859
Репутация: 35
Статус: Offline
Lis, Элементарные задачки вроде...
1) Присваиваем максимуму первый. Далее Сравниваем в цикле со второго по j. Если o[2,j] > max то переприсваиваем max. Таким образом найдём наибольший.
2) Главная диагональ o[i,i] в цикле. Создаём функцию - примеров много на сайте, подсчёт простым перебором всех элементов o[i,i] и сравнением их с < 0. ) Всё!
3) Пробегаем по всем строкам, складывая сумму в временную переменную... даже не знаю, куда проще.
4) Odd(i) - возвращает True. если i - нечётное. Воспользуемся этим, а так же оператором Continue для проскока итерации. Аналогично как и в 4-ом, но с произведением!
5) невозрастание - это либо убывание, либо равные. Метод пузырька - много раз рассматривался уже.
6) Можно поэтапно делить на 10, пока целая часть не станет 0. Количество делений - это количество цифр + 1.
7) Пробегаем по всей строке, if (s[i] = ',') then s[i] := ':'; и всё.. это в цикле.


Поддерживаю также проект сообщество молодых сисадминов
 
ZHAXARIДата: Среда, 08.06.2011, 11:12 | Сообщение # 3
Новичок
Группа: Пользователи
Сообщений: 2
Репутация: 0
Замечания: 20%
Статус: Offline
Помогите решить три задачки!

1. Написать процетуру, меняющую местами указаные строки матрицы. В матрицах а[5,5] и b[4,4] поменять местами строки с номерами 2 и 3.

2. Вычеслить C=A+B*BT (степень Т) где А - матрица размерностью [2,2] а В - матрица размерностью [2,3]

3. Даны действительные числа S,T
Найти минимальное значение из трех чисел: H(S-T,T) H(S/T, S+T) H(2*T,T)

где H(A,B)=(A-B*B/A*A)+(2*A+КВ. КОРЕН B/B*B)
 
BibibiДата: Понедельник, 17.10.2011, 23:31 | Сообщение # 4
Новичок
Группа: Пользователи
Сообщений: 6
Репутация: 0
Замечания: 40%
Статус: Offline
Помогите мне решить задачку у меня 8 вариант в таблице!!!!

Задание 1. Для заданного Х определить Z,
где: значение Х (любое по выбору ) ввести с клавиатуры,
Z= (A+B)/(2*A+3.8*B);
Значения переменных А и В определить по таблице 1.
Заданное значение Х и полученное значение Z выдать на экран.
Таблица 1.
N 0 1 2 3 4 5 6 7 8 9
A ex+1.2 Sin5x Cos x3 (x+2)7 Ln 3x Log2x Tg x2 Ctg x √│x│ ex/4
B Ln x4 x-0.75 Log3x Tg2x │x3│ √1+x3 1.2-x lg│x│ E4x Sin2x4
 
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2025
Используются технологии uCoz
javascript:;" rel="nofollow" onclick="loginPopupForm(); return false;