Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 27.05.2008, 00:33   #1 (permalink)
Brizonthik
Новичок
 
Регистрация: 27.05.2008
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

1.Дана целочисленная прямоугольная матрица. Определить количество столбцов,содержащих хотя бы один нулевой элемент (оформить в виде фукции).
2. Дана целочисленная прямоугольная матрица. Определить номер столбца,в котором находиться самая длинная серия одинаковых элементов (оформить в виде процедуры).
3.Описать запись с именем Route, содержащую следующие поля:
-название начального пункта маршрута,
название конечного пункта маршрута,
время в пути для каждого маршрута.
Написать программу,выполняющую слудующие действия:
Вывод информации о маршрутах,начинающихся или кончающихся в пункте,название которого введено с клавиатуры,а если таких маршрутов нет-вывод на экран соответствующего сообщения;
вывод информации о маршрутах,время пути которых не превышает 30 минут
Brizonthik вне форума   Ответить с цитированием

Старый 27.05.2008, 00:33
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Проблема обязательно решится, а пока можете набраться информации побольше

Помогите решить задачи на C++
Помогите решить задачу по Паскалю. Срочно, пожалуйста.
Помогите решить задачи на C++

Старый 27.05.2008, 10:18   #2 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

Цитата:
Сообщение от Brizonthik
Дана целочисленная прямоугольная матрица. Определить количество столбцов,содержащих хотя бы один нулевой элемент (оформить в виде фукции).
type
mas=array [1..100,1..100] of integer;

function otv(a:mas; m,n:integer):integer;
var
i,j,k:integer;
begin
k:=0;
for j:=1 to n do
for i:=1 to m do
if a[i,j]=0 then begin k:=k+1; break; end;

otv:=k;
end;

var
b:mas;
sto,str:integer;

begin
{Тут ввод матрицы b порядка m*n, где sto - кол-во столбцов , а str - кол-ко строк}

writeln('Ответ ',otv(b,str,sto));

end.
bubuka вне форума   Ответить с цитированием
Старый 27.05.2008, 10:21   #3 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

через часик остальные две напишу
bubuka вне форума   Ответить с цитированием
Старый 06.06.2008, 00:10   #4 (permalink)
Novichok
Новичок
 
Регистрация: 06.06.2008
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Дано натуральні числа n і а1, а2...аn. Визначити кількість тих членів послідовності, що кратні числу 3 і не кратні числу 7.
Допоможіть пліз
Novichok вне форума   Ответить с цитированием
Старый 06.06.2008, 10:22   #5 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

В украинском я не ас но вроде понятно.
Есть массив натуральных чисел из Н эелементов. Ввести те которые кратны 3 и не кратны 7.

var
a:array [1..maxint] of integer;
b:array [1..100] of integer;
i,n:integer;
begin
writeln('Введите кол-во эелементов');
readln(n);
writeln('Введите элементы массива');
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;

k:=0
for i:=1 to n do
if (a[i] mod 3 = 0) and (a[i] mod 7 <> 0 ) then begin k:=k+1; b[k]:=a[i]; end;

writeln('Итог');
For i:=1 to k do
write(b[k],' ');

end.
bubuka вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 09.06.2008, 18:45   #6 (permalink)
Brizonthik
Новичок
 
Регистрация: 27.05.2008
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Помогите пожалуйста решить задачки 2 и 3 с коментами плиз
Brizonthik вне форума   Ответить с цитированием
Старый 15.12.2009, 22:54   #7 (permalink)
milani
Новичок
 
Регистрация: 29.08.2008
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Question Неизвестное устройство

У меня такая проблема, переустановил ХР (просто переустановил с того же диска что и раньше ставил), так вот, при попытке подключения видео камеры, флешки и фотопринтера к USB портам во время установки этих устройств появляется сообщение - обнаружено неизвестное устройство и комп типа его распознать не может. При этом при всём USB сканер и модем работают. Всю голову себе изломал. Может кто в курсе что это и как бороться?
milani вне форума   Ответить с цитированием
Старый 16.12.2009, 01:16   #8 (permalink)
Endrew
Member
 
Аватар для Endrew
 
Регистрация: 01.04.2009
Сообщений: 12,026
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 446
По умолчанию

Цитата:
Сообщение от Сл@вик Посмотреть сообщение
при попытке подключения видео камеры, флешки и фотопринтера к USB портам во время установки этих устройств появляется сообщение - обнаружено неизвестное устройство и комп типа его распознать не может.
дрова вроде ко всему идут . ставили ?
Endrew вне форума   Ответить с цитированием
Старый 16.12.2009, 15:14   #9 (permalink)
milani
Новичок
 
Регистрация: 29.08.2008
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Endrew Посмотреть сообщение
дрова вроде ко всему идут . ставили ?
Вот как раз при установке дров программа установки просит подсоединить устройство к usb порту, а порт устройство не понимает ни камеру, ни принтер ни флешку.
milani вне форума   Ответить с цитированием
Старый 16.12.2009, 15:28   #10 (permalink)
Endrew
Member
 
Аватар для Endrew
 
Регистрация: 01.04.2009
Сообщений: 12,026
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 446
По умолчанию

Сл@вик, а комп не должен распознавать это устройство ,должен запускаться мастер новых подключений а вот после установки дров ,устройство должно распознаться а мастер сообщить что устройста готово к работе
Endrew вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:35.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.