Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Delphi] Прога для решения задачи на одномерные и, двумерные массивы 
V
    Опции темы
termik
Дата 21.9.2006, 06:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


КотеГ
**


Профиль
Группа: Участник
Сообщений: 817
Регистрация: 20.11.2005

Репутация: нет
Всего: 33
Использование одномерных и двумерных массивов.
1. В среде программирования Delphi составить и отладить программу решения следующей задачи на тему «Одномерные массивы»:

Задан массив из 8 действительных чисел вида а1, а2, а3,…, а8. Вывести на экран в одну строку все элементы массива и выполнить задание в соответствии с указанным преподавателем вариантом


1)Вариант 10: Найти наименьшее из чисел  а1, 2а2, 3а3,…, 8а8.
2)Вариант 10: Найти количество отрицательных элементов в матрице.


2.Получить численные результаты и провести их анализ.
3.Составить и отладить программу решения следующей задачи на тему «Двумерные массивы»:
Задан целочисленный двумерный массив размера 3х4. Вывести на экран массив в виде матрицы, состоящей из трех строк и четырех столбцов, и выполнить задание в соответствии с указанным преподавателем вариантом.

Помогите мне конец в субботу, будьте добры прикрипите исходик, если можете, не дайте умереть smile
PM MAIL WWW ICQ   Вверх
comtat
Дата 21.9.2006, 07:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71
Щас замучу  smile  подожди немного


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
comtat
Дата 21.9.2006, 07:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71
Цитата(termik @  21.9.2006,  06:25 Найти цитируемый пост)
1)Вариант 10: Найти наименьшее из чисел  а1, 2а2, 3а3,…, 8а8

Код

function Search_Min(a:array of integer):integer;
var i,count:integer;
begin
  min:=a[0];
  for i:=0 to length(a)-1 do
    if ((i+1)*a[i]>(i+2)*a[i+1]) then
      min:=a[i+1];
Result:=min
end;

Цитата(termik @  21.9.2006,  06:25 Найти цитируемый пост)
2)Вариант 10: Найти количество отрицательных элементов в матрице.

Код

function Search_Count_Min(a:array of integer):integer;
var i,count:integer;
begin
  for i:=0 to length(a) do
    if (a[i]<0) then   // Åñëè ÷èñëî îòðèöàòåëüíîå
      count:=count+1;
Result:=count
end;




--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
termik
Дата 21.9.2006, 09:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


КотеГ
**


Профиль
Группа: Участник
Сообщений: 817
Регистрация: 20.11.2005

Репутация: нет
Всего: 33
comtat

Можешь прикрепить исходники? Плиз держу + 
PM MAIL WWW ICQ   Вверх
comtat
Дата 21.9.2006, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71
Прикреплю
а массив юзер должен создавать или он const ??


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
termik
Дата 21.9.2006, 10:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


КотеГ
**


Профиль
Группа: Участник
Сообщений: 817
Регистрация: 20.11.2005

Репутация: нет
Всего: 33
comtat, 

Юзер 
PM MAIL WWW ICQ   Вверх
comtat
Дата 21.9.2006, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71
лови  smile 

Присоединённый файл ( Кол-во скачиваний: 15 )
Присоединённый файл  zadacha.zip 8,34 Kb


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
termik
Дата 22.9.2006, 01:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


КотеГ
**


Профиль
Группа: Участник
Сообщений: 817
Регистрация: 20.11.2005

Репутация: нет
Всего: 33
 smile Спасибо тебе + 
PM MAIL WWW ICQ   Вверх
comtat
Дата 22.9.2006, 07:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 8
Всего: 71
Не за что  smile 


--------------------
Рожденный в СССР !!!
ExtJS - мой фреймворк 
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0454 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.