Карта сайтаПоискОбратная связь
f-баня
а тебя здесь нет?
(мучеников: 10503)


Вернуться   Форум о FIFA 15, FIFA 14, PES 2014 и других футбольных симуляторах на fifasoccer.ru > Жизнь > Трепология > Программирование

Ответ
 
Опции темы
Старый 06.12.2009, 18:51   #1
Zenit-club
 
Аватар для Kup9
 
Регистрация: 26.03.2008
Сообщений: 47
Отправить сообщение для Kup9 с помощью ICQ
По умолчанию Программы на Паскале

Прошу помощи в Паскале, т.к. сам шарю плохо, и очень в нем путаюсь)

Программа на двумерный массив:
Определить номера строк двумерного массива, которые равны между собой.
Прогу написал, но вот с выводом одинаковых строк попа...
1 0 0 1 1
0 1 0 1 0
0 1 0 1 0
0 0 0 0 0
0 0 1 1 1
2=3
3=2

выводит два раза, не знаю как убрать, прошу помощи...


program massiv;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,l,k,m:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(2);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n-1 do
begin
for l:=2 to n do
begin
k:=0;
for j:=1 to n do
if a[i,j]=a[l,j] then
begin
k:=k+1;
if k=n then
if i<>l then
writeln(i,'=',l);
end;
end;

end;
writeln;
end.


И прога на строковый массив:
Для введенной строки определить длину содержащейся в ней максимальной серии символов, отличных от букв.
Тут я вобще не знаю что делать...

Прошу очень помощи...
__________________
Зенит - чемпион
Kup9 вне форума   Ответить с цитированием
Старый 06.12.2009, 20:43   #2
Посетитель
 
Аватар для shava13
 
Регистрация: 12.06.2007
Адрес: Мироныч
Сообщений: 61
Отправить сообщение для shava13 с помощью ICQ
По умолчанию

Цитата:
Сообщение от Kup9 Посмотреть сообщение
Для введенной строки определить длину содержащейся в ней максимальной серии символов, отличных от букв.
Program qwerty;
uses crt;
var
str:string;
i,cnt,max:integer;

begin
clrscr;
writeln('Vvedite straka'); readln(str);

for i:=1 to length(str)
do begin
if ( str[i] in ['a'..'z']) or (str[i] in ['A'..'Z']) then
begin
if cnt>max then max:=cnt;
cnt:=0;
end
else
inc(cnt);
if cnt>max then max:=cnt;
end;

writeln('max = ',max);

readkey;
end.
shava13 вне форума   Ответить с цитированием
Старый 06.12.2009, 20:58   #3
f-orbidden
 
Аватар для cec
 
Регистрация: 05.03.2007
Адрес: Кузбасс - Москва
Сообщений: 801
Отправить сообщение для cec с помощью ICQ Отправить сообщение для cec с помощью Skype™
По умолчанию

Цитата:
Сообщение от Kup9 Посмотреть сообщение
...
if (i<>l) and (i<l) then
writeln(i,'=',l);
end;
end;

end;
writeln;
end.
Вот как-то так

Последний раз редактировалось cec; 06.12.2009 в 21:15..
cec вне форума   Ответить с цитированием
Старый 06.12.2009, 21:05   #4
Loko - forever!
 
Регистрация: 06.04.2005
Сообщений: 162
Отправить сообщение для STELS с помощью ICQ
По умолчанию

Цитата:
if (i<>l) and (i<l) then
if i<l then
xD
STELS вне форума   Ответить с цитированием
Старый 06.12.2009, 21:15   #5
f-orbidden
 
Аватар для cec
 
Регистрация: 05.03.2007
Адрес: Кузбасс - Москва
Сообщений: 801
Отправить сообщение для cec с помощью ICQ Отправить сообщение для cec с помощью Skype™
По умолчанию

Цитата:
Сообщение от STELS Посмотреть сообщение
if i<l then
xD
Так я сразу в прогу добавил на место условия при выводе
cec вне форума   Ответить с цитированием
Старый 06.12.2009, 22:12   #6
Zenit-club
 
Аватар для Kup9
 
Регистрация: 26.03.2008
Сообщений: 47
Отправить сообщение для Kup9 с помощью ICQ
По умолчанию

Цитата:
Сообщение от shava13 Посмотреть сообщение
Program qwerty;
uses crt;
var
str:string;
i,cnt,max:integer;

begin
clrscr;
writeln('Vvedite straka'); readln(str);

for i:=1 to length(str)
do begin
if ( str[i] in ['a'..'z']) or (str[i] in ['A'..'Z']) then
begin
if cnt>max then max:=cnt;
cnt:=0;
end
else
inc(cnt);
if cnt>max then max:=cnt;
end;

writeln('max = ',max);

readkey;
end.
Спс, подходит, только поубирал подключение модулей, вроде мы их еще не проходили) и вопросик что такое inc(..) я забыл =)


Цитата:
Сообщение от Футболлист Посмотреть сообщение
Вот как-то так
Спасибки, вот этой мелочи и не хватало.
__________________
Зенит - чемпион
Kup9 вне форума   Ответить с цитированием
Старый 07.12.2009, 01:07   #7
Посетитель
 
Аватар для shava13
 
Регистрация: 12.06.2007
Адрес: Мироныч
Сообщений: 61
Отправить сообщение для shava13 с помощью ICQ
По умолчанию

inc(x) тоже самое что и x = x+1

А модуль crt можешь убрать, но тогда ты лишишься прекрасных функций clrscr и readkey. Не беда вобщем то
shava13 вне форума   Ответить с цитированием
Старый 07.12.2009, 09:57   #8
Zenit-club
 
Аватар для Kup9
 
Регистрация: 26.03.2008
Сообщений: 47
Отправить сообщение для Kup9 с помощью ICQ
По умолчанию

ну впринцыпе так и понял, но все таки спс что разъяснил)
первый курс еще, мы эти функции еще не проходили, хотя я и понимаю зачем они нужны)
__________________
Зенит - чемпион
Kup9 вне форума   Ответить с цитированием
Старый 22.12.2009, 14:39   #9

КБ-Казах
 
Регистрация: 30.11.2007
Сообщений: 1,631
Отправить сообщение для daNch1k с помощью ICQ
По умолчанию

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

1) Игрок А объявляет 2х значное число от 01-99. Игрок Б меняет местами его цифры и полученное число прибавляет к сумме его цифр. Полученный результат он объявляет игроку А. Игрок А проделаывает с этим числом ту же процедуру, и так они продолжают поступать поочереди, объявляя число. От суммы чисел берется остаток от деления на 100, поэтому объявляются лишь 2х значные числа. Какие числа может объявлять игрок А на начальном шаге, чтобы игрок Б в некоторый момент объявил число 00?

2) Определить, является ли заданная целая квадртаная матрица n-го порядка симметричной (относительно главной диагонали).

3) Дана строка, содержащая текст на русском языке. Составить в алфавитном порядке список всех слов, встречающихся в этом тексте.
__________________
что за дебильный никнейм придумал себе мальчуган?
daNch1k вне форума   Ответить с цитированием
Старый 22.12.2009, 15:18   #10

 
Аватар для DennisBergkamp
 
Регистрация: 09.01.2008
Сообщений: 1,545
По умолчанию

Паскаль помню плохо, так что могу только так помочь:
Цитата:
Сообщение от daNch1k Посмотреть сообщение
2) Определить, является ли заданная целая квадртаная матрица n-го порядка симметричной (относительно главной диагонали).
sum=n*n;
for i:=1 to n do
begin
for j:=1 to n do
begin

if ( mass[ i ][ j ] == mass[ j ][ i ] ) then
p:=p+1;

end
end

if ( p==sum) then
writeln("yes");
else
writeln("no");

p.s. Правильность не гарантирую!
DennisBergkamp вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход


Часовой пояс GMT +3, время: 08:39.