|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.03.2009, 19:14 | #1 |
Пользователь
Регистрация: 10.03.2009
Сообщений: 13
|
2 задачи по Паскалю
Задача 1 С помощью генератора случайных значений сформировать три массива A, B, C вещественных значений, в каждом из которых не более 20 элементов. Значения элементов массивов формируются в диапазоне [-3m, 2m], где значение m>5 вводится с клавиатуры. Написать программу, в которой вывести на экран три сформированных вектора и затем вывести имя (имена) массива(ов) с максимальной суммой положительных элементов. Задача 2. С помощью генератора случайных значений сформировать 4 вектора V1, V2, V3, V4, каждый из которых содержит m (где m<=24) целочисленных значений. Элементы векторов формируются в диапазоне [-2k, 3k], где значение k>4 вводится с клавиатуры. Написать программу, в которой вывести на экран все сформированные векторы, и предусмотреть функцию, с помощью которой затем вывести сумму элементов кратных 7 в каждом векторе. Спасибо
|
11.03.2009, 19:30 | #2 |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
Сами пробовали решить?
Задавать элементы массива в диапазоне можно так: Код:
Исходя из этого напишите свой вариант решения, а мы тут подправим, если что.
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
|
11.03.2009, 19:41 | #3 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
А вещественные можно так A[i]:=5*m*random)-3*m |
|
11.03.2009, 21:56 | #4 |
Пользователь
Регистрация: 10.03.2009
Сообщений: 13
|
Для 1-й задачи
var A:array[1..20] of real; m,sumpl:real; k,i:byte; begin write('Введите значение m>5:'); readln(m); write('Введите значение k<=20; readln(k); randomize; sumpl:=0; for i:=1 to k do begin A[i]:=5*m*random-3*m; if A[i]>0 then sumpl:=sumpl+A[i] То же делаем для массива B и C. Как выбрать максимальную сумму и вывести имя массива??? |
12.03.2009, 17:08 | #5 |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
вместо sumpl использовать массив
Код:
Код:
Затем сортируем массив sumpl любым известным методом по значению value и выводим имя массива Код:
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
|
14.03.2009, 15:02 | #6 |
Пользователь
Регистрация: 10.03.2009
Сообщений: 13
|
ПРобывал я разобрать то что вы написали. Но я не могу понять!!! Что за типы record,string. Что такое value, что написанно дальше - труба! Можете думать что я тупой, но я не занимаюсь программированием, поэтому и прошу помощи на этом форуме. Возможно вы напишети программу полностью и я смогу понять ее целеком. Поймите что вы написали, эти команды там разные, в лекциях нам не давали. Может есть вариант написания попроще? Спасибо
|
14.03.2009, 15:08 | #7 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
record - тип запись
value - поле записи string - тип строка Код:
вступлю в команду разработчиков ПО на Delphi
Последний раз редактировалось maladoy; 14.03.2009 в 15:22. |
14.03.2009, 15:47 | #8 |
Пользователь
Регистрация: 10.03.2009
Сообщений: 13
|
Большое спасибо сейчас я точно раберусь
|
14.03.2009, 15:49 | #9 | |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
Цитата:
вступлю в команду разработчиков ПО на Delphi
|
|
14.03.2009, 16:49 | #10 |
Максим Николаев
Форумчанин
Регистрация: 15.02.2009
Сообщений: 170
|
Код:
Код:
Код:
NeshSoft. Программирование на заказ для студентов. Delphi/Pascal. Подробнее на сайте neshsoft.narod.ru
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Задачи по Паскалю! | profi | Помощь студентам | 39 | 15.10.2009 09:29 |
Задачи по Паскалю | koshkarjov | Помощь студентам | 2 | 02.02.2009 18:06 |
Задачи по паскалю. | Lavron | Паскаль, Turbo Pascal, PascalABC.NET | 20 | 05.01.2009 15:34 |
Задачи по паскалю | Agent[PNZ] | Помощь студентам | 10 | 22.11.2007 21:45 |
Задачи по Паскалю | MissLove | Помощь студентам | 15 | 24.07.2007 11:20 |