Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 19.03.2013
Сообщений: 14
1

Вычислительная биология

28.03.2013, 11:06. Показов 2231. Ответов 4
Метки нет (Все метки)

Здравствуйте, нужно решить две задачи. Одна про игру - быки и коровы, другая - вычислительная биология.
Задачи то я решил, но когда попытался их загрузить на этот сайт ******** он мне не выдает accepted, а пишет что не проходит по времени, как сократить время я не знаю, пол дня бился так и не смог. Сдавать уже сегодня, в 13:00. Был бы благодарен, если бы успели мне помочь.
13, то есть про быков и коров
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var bulls, cows, all, i, j: Integer;
    num: String;
begin
write('Ввод двух 4-значных чисел ');
readln(num);
bulls:=0;
for i:=1 to (length(num) div 2) do
 if num[i]=num[i+5] then
  bulls:=bulls+1;
all:=0;
for i:=1 to (length(num) div 2) do
 for j:=6 to length(num) do
  if num[i]=num[j] then
   all:=all+1;
cows:=all-bulls;
write('Быки - ', bulls, ' Коровы - ', cows);
end.
И 278, вычислительная биология
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
i , j : integer ;
n , m : integer ;
s , t : string ;
begin
reset ( input , ’ biology . in);
rewrite ( output , ’ biology . out);
readln ( t );
readln ( s );
n := length ( s );
m := length ( t );
i := 1;
for j := 1 to m do begin
while ( i <= n ) and ( s [ i ] <> t [ j ]) do begin
inc ( i );
end ;
if ( i > n ) then begin
writeln ( ’ NO ’ );
halt (0);
end ;
inc ( i );
end ;
writeln ( ’ YES ’ );
end .
Сайт - ********

Добавлено через 8 часов 42 минуты
Можно до двух, еще един доп. час есть .
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.03.2013, 11:06
Ответы с готовыми решениями:

вычислительная математика!!!
Ребят, помогите!! Дело очень срочное!!! Человек стоит на отчислении, нужно сдать работы,...

Вычислительная математика и паскаль
Люди помогите выполнить лабы. Математику всю забыл...не получается решить. кто может помочь во...

Вычислительная математика, Pascal
Огромная просьбище помочь с решением задачи. В прошлом семестре проблем с паскалем не было, а тут...

Программы. Биология и экология
Примеры: Program Microscop; uses ctr, GraphABC; Var img, x,y,w,h,d: integer; c:char; Begin...

4
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 535
Записей в блоге: 2
28.03.2013, 11:28 2
а какие правила игры про коров и быков?
0
0 / 0 / 0
Регистрация: 19.03.2013
Сообщений: 14
28.03.2013, 11:37  [ТС] 3
Цитата Сообщение от orange_rush Посмотреть сообщение
а какие правила игры про коров и быков?
Я же скинул сайт, там все есть. Но для удобства сейчас залью сюда.

Добавлено через 1 минуту
Быки и коровы:
Петя и Вася часто играют в различные логические игры. Недавно Петя поведал Васе о новой игре «Быки и коровы» и теперь они играют в эту игру сутками. Суть игры очень проста: Петя загадывает четырехзначное число, состоящее из различных цифр. Вася отгадывает задуманное Петей число, перебирая возможные варианты. Каждый раз Вася предлагает вариант своего числа, а Петя делает Васе подсказку: сообщает количество быков и коров, после чего Вася с учетом подсказки продолжает отгадывание числа до тех пор, пока не отгадает. Быки – это количество цифр в предложенном Васей числе, совпадающих по значению и стоящих в правильной позиции в задуманном Петей числе. Коровы – количество цифр, совпадающих по значению, но находящихся в неверной позиции. Например, если Петя задумал число 5671, а Вася предложил вариант 7251, то число быков равно 1 (только цифра 1 на своем месте), а число коров равно 2 (только цифры 7 и 5 не на своих местах). Петя силен в математике, но даже он может ошибаться. Помогите Пете написать программу, которая бы по загаданному Петей и предложенному Васей числам сообщала количество быков и коров.

Входные данные

В единственной строке входного файла INPUT.TXT записано два четырехзначных натуральных числа A и B через пробел, где А – загаданное Петей число, а В – предложенный Васей вариант.

Выходные данные

В выходной файл OUTPUT.TXT нужно вывести два целых числа через пробел — количество быков и коров.

Добавлено через 30 секунд
Вычислительная биология:
В современной биологии ученым часто приходится иметь дело с последовательностями ДНК. Эти последовательности зачастую являются очень длинными, и их ручная обработка требует большого количества времени и сил. Поэтому возникает идея автоматизировать этот процесс.

Для этого можно применять компьютерные методы обработки данных, например, весьма полезными оказываются алгоритмы на строках. В этой задаче последовательность ДНК будет представляться в виде строки, все символы которой входят в множество {A, G, С, T}.

Пусть даны две последовательности ДНК: s = s1s2 … sn и t = t1t2 … tm. Будем говорить, что t может получится в результате эволюции из s, если s является подпоследовательностью t, то есть существует такая последовательность индексов 1 <= i1 < i2 < … < in <= m, что s1=ti1, s2=ti2, … sn=tin. Необходимо выяснить, может ли последовательность t получится в результате эволюции из s.

Входные данные

Первая строка входного файла INPUT.TXT содержит последовательность s, вторая — последовательность t. Размер входного файла не превосходит 256 килобайт.

Выходные данные

В выходной файл OUTPUT.TXT выведите слово YES, если последовательность t могла получиться в результате эволюции из s, и слово NO — иначе.
0
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 535
Записей в блоге: 2
28.03.2013, 22:55 4
я тоже загрузил туда про коров и быков, прокатило
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Const N=4;
Type vec=array[1..n]Of byte;
Var
    a,b:integer;
    am,bm:vec;
    i,j,bul,cow:byte;
begin
Assign(input,'input.txt'); Reset(input);
Assign(output,'output.txt'); Rewrite(output);
While Not Eof(input) Do Begin
read(a); readln(b);
bul:=0; cow:=0;
for i:=n downto 1 do Begin
    am[i]:=a mod 10;
    a:=a div 10;
    bm[i]:=b mod 10;
    b:=b div 10;
end;
for i:=1 To N Do Begin
    If am[i]=bm[i] Then Inc(bul);
    for j:=1 To N Do
        If (am[i]=bm[j])and(i<>j) Then Inc(cow);
end;
writeln(bul,' ',cow);
End;
end.
получается что когда ты работаешь со строками то уходит много памяти. массив из 4 целых чисел занимает 8 байт, а строка 256
0
0 / 0 / 0
Регистрация: 19.03.2013
Сообщений: 14
30.03.2013, 00:45  [ТС] 5
orange_rush, спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2013, 00:45

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вычислительная геометрия
Задан квадрат со стороной R и некоторым числом N.На сторонах этого квадрата создается 4N точек. По...

вычислительная геомтерия
Круг Даны координаты n точек (xi,yi), i=1,2,…,n (n≤100). Указать номера тех точек, которые...

Вычислительная математика
Здраствуйте,добрые,люди.Тут такое задание по вычислительной математике,кому не тяжело,будьте добры...

Вычислительная геометрия
С данными множествами пунктов на плоскости выбрать 3 разных пункта, которые образуют треугольник,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.