|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.06.2008, 15:14 | #1 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
Нужна помощь в решении нескольких задач
Для человека хорошо разбирающегося в программировании с такими задачами проблем не возникнет. Итак:
1)Обнулить столбцы матрицы, в которых находятся максимальный и минимальный элементы. (Задача предусматривает решение двумерными массивами) 2)Даны 2 текста, найти одно из общих слов, встречающихся в текстах. (Задача строкового типа) 3)Задача с графикой: необходимо нарисовать Задача.jpg в трех видах, как показано на примерах 1, 2, 3 --- Данные задачи надо решить в Borland Pascal или Delphi --- Заранее благодарен. |
24.06.2008, 21:20 | #2 |
Форумчанин
Регистрация: 06.06.2008
Сообщений: 105
|
Ну наработки давай свои. Иначе говори, сколько платишь.
|
25.06.2008, 05:17 | #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. |
25.06.2008, 05:20 | #4 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
Задание 3
Вот решенное задание 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. |
25.06.2008, 05:22 | #5 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
А как делать задачу со строковыми переменными, я вобще незнаю.
|
25.06.2008, 07:41 | #6 |
Владимир М.
Участник клуба
Регистрация: 30.10.2006
Сообщений: 1,289
|
наработки твоих знакомых - не твои ..
Берегите друг друга!
|
25.06.2008, 13:01 | #7 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
|
25.06.2008, 13:34 | #8 | |
Форумчанин Подтвердите свой е-майл
Регистрация: 22.01.2008
Сообщений: 161
|
Цитата:
|
|
25.06.2008, 13:36 | #9 |
Пользователь
Регистрация: 24.06.2008
Сообщений: 16
|
|
25.06.2008, 20:47 | #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 |