Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2011, 23:01   #1
julia.
 
Регистрация: 26.05.2011
Сообщений: 4
По умолчанию Задачи на паскале

1)Разработать программу на языке программирования Turbo Pascal:
а) В массиве d(12) найти среднее геометрическое положительных элементов массива.
б) В массив внесены результаты контрольной работы в классе по математике. Отсутствующие ученики кодируются оценкой 0. Определить количество отсутствующих и получивших 4 и 5 (вме-сте).
2)Разработать программу на языке программирования Turbo Pascal:
а) Найти сумму элементов двух массивов a(15) и b(15) и определить номер строки, для которой эта сумма максимальна.
б) Результаты месячной работы n участников цеха сведены в таблицу, где указан баланс доходов–расходов. Определить количество участников, которые имели отрицательный баланс
3)Разработать программу на языке программирования Turbo Pascal:
а) В матрице найти среднее арифметическое отрицательных элементов.
б) Произвести сортировку матрицы , записав ее положи-тельные элементы в вектор (подряд), а отрицательные – в вектор (подряд).
4)Разработать программу на языке программирования Turbo Pascal:
а) Найти среднее геометрическое положительных элементов матрицы , где n=6, расположенных на побочной диагонали.
б) Из положительных элементов массивов и сформировать матрицу . Если положительных элементов в массиве будет меньше 20, заполнить свободные места числом +1.
julia. вне форума Ответить с цитированием
Старый 26.05.2011, 23:17   #2
Son Of Pain
Участник клуба
 
Регистрация: 23.12.2010
Сообщений: 1,129
По умолчанию

Ну, типа, все быстро подорвались и побежали разрабатывать
Son Of Pain вне форума Ответить с цитированием
Старый 27.05.2011, 09:15   #3
julia.
 
Регистрация: 26.05.2011
Сообщений: 4
По умолчанию

ну,типа,если не можете,нечего писать сообщение к теме
julia. вне форума Ответить с цитированием
Старый 27.05.2011, 10:34   #4
KooDer
 
Аватар для KooDer
 
Регистрация: 28.11.2010
Сообщений: 4
По умолчанию

За "Спасибо", Вам никто ничего не будет делать.
Real Time. All Time.
CryEngine 3.
KooDer вне форума Ответить с цитированием
Старый 27.05.2011, 11:44   #5
julia.
 
Регистрация: 26.05.2011
Сообщений: 4
По умолчанию

я думаю,если здесь есть люди,дествительно понимающие в паскале,а не строющие из себя программистов,решить задачи этого уровня им труда не составит
julia. вне форума Ответить с цитированием
Старый 27.05.2011, 12:16   #6
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Ну для примера
Цитата:
1)Разработать программу на языке программирования Turbo Pascal:
а) В массиве d(12) найти среднее геометрическое положительных элементов массива.
б) В массив внесены результаты контрольной работы в классе по математике. Отсутствующие ученики кодируются оценкой 0. Определить количество отсутствующих и получивших 4 и 5 (вме-сте).
Код:
count0 := 0;
count45 := 0;
sr := 0;
for i := 1 to 12 do
begin
     Read (d[i]);
     if d[i] = 0 then Inc(count0);
     if (d[i] = 4) or (d[i] = 5) then Inc(count45);
     sr := (sr + sqr(d[i]));
end;
Writeln ('Количество отсутствующих = ', count0);
Writeln ('Количество 4 и 5 = ', count45);
Writeln ('Srednee = ', sqrt(sr):4:3);
В остальном у вас есть нароботки ???
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума Ответить с цитированием
Старый 27.05.2011, 12:18   #7
julia.
 
Регистрация: 26.05.2011
Сообщений: 4
По умолчанию

наработок нет,по болезни пропустила почти все пары информатики,теперь не могу разобраться,а лабы нужно сдать как то
julia. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи в паскале Ildar_Yunusov Помощь студентам 0 10.01.2011 18:40
2 задачи в паскале glavsvetik Паскаль, Turbo Pascal, PascalABC.NET 2 22.04.2009 23:28
Задачи в Паскале. fairy_cookies Помощь студентам 3 02.03.2009 20:58
привет всем! помогите пожалуйста решить две задачи на паскале. я в паскале полный ноль. Пищенок Саша Паскаль, Turbo Pascal, PascalABC.NET 5 20.01.2009 13:46