![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
![]()
Для человека хорошо разбирающегося в программировании с такими задачами проблем не возникнет. Итак:
1)Обнулить столбцы матрицы, в которых находятся максимальный и минимальный элементы. (Задача предусматривает решение двумерными массивами) 2)Даны 2 текста, найти одно из общих слов, встречающихся в текстах. (Задача строкового типа) 3)Задача с графикой: необходимо нарисовать Задача.jpg в трех видах, как показано на примерах 1, 2, 3 --- Данные задачи надо решить в Borland Pascal или Delphi --- Заранее благодарен. |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 06.06.2008
Сообщений: 105
|
![]()
Ну наработки давай свои. Иначе говори, сколько платишь.
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
![]()
Вот немного похожая на 1ую задача, только в ней надо вычислить, в какой строке матрицы сумма элементов максимальная, а в какой – минимальная, а мне надо обнулить столбцы матрицы, в которых находятся максимальный и минимальный элементы.
--- program Project2; uses crt; const N = 9; type Mas = array[1..N,1..N] of integer; var M: Mas; i,j: integer; min,max,jmin,imax: integer; Begin Writeln; Randomize; for i:=1 to N do begin for j:=1 to N do begin M[i,j]:=Random(10); Write(' ',M[i,j]:3); end; Writeln; end; max:=M[1,1];imax:=1; min:=M[1,1];jmin:=1; for i:=1 to N do begin for j:=1 to N do begin if M[i,j] > max then begin max:=M[i,j];imax:=i; end; if M[i,j] < min then begin min:=M[i,j];jmin:=i; end; end; end; Writeln; Writeln('max= ',max,' stroka # ',imax); Writeln('min= ',min,' stroka # ',jmin); Writeln; Readln; End. |
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
![]()
Вот решенное задание 3, но здесь только 1ый вариант, а как делать остальные я незнаю:
program risynko; uses graph, crt; var driver, mode: integer; begin clrscr; driver:=detect; initgraph (driver,mode,'c:\bp\bgi'); {директория графического модуля для паскаля} repeat setcolor (2); circle (200,200,30); setcolor (3); circle (250,200,30); setcolor (4); circle (300,200,30); setcolor (5); circle (225,235,30); setcolor (6); circle (275,235,30) until keypressed; closegraph; end. |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
![]()
А как делать задачу со строковыми переменными, я вобще незнаю.
|
![]() |
![]() |
![]() |
#6 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
![]()
наработки твоих знакомых - не твои ..
Берегите друг друга!
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
![]() |
![]() |
![]() |
![]() |
#8 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 22.01.2008
Сообщений: 161
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
![]() |
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 10.07.2007
Сообщений: 104
|
![]()
вот как-то так
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
нужна ваша помощь, решение задач Delphi | Рената | Помощь студентам | 13 | 28.03.2011 17:24 |
Нужна помощь в решении двух задач | Exact | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 23.05.2008 09:01 |
Нужна помощь в решении задачи в Delphi | AndrYxo | Помощь студентам | 10 | 28.04.2008 15:53 |
нужна помощь с решением следующих задач! => | f1n!Sh | Помощь студентам | 10 | 13.02.2008 23:03 |