ЗАдачи на "Pascal"

Вверх ↑

Форумы Между деломЗАдачи на "Pascal" ← Ctrl12Ctrl →

Этот топик читают: Гость

Ответов: 845

Рейтинг: 19

#1: 2010-12-09 09:54:48 ЛС | профиль | цитата

Умаляю помоч решить 2 задачи на паскале

Задачна #1

11. Пленник, которого держали в охраняемой землянке, делал подземный ход. В первую ночь он прокопал ход длиной 1 м. Каждую следующую ночь из-за потери сил он делал ход на 5% коро-че. Через сколько дней он сможет сбежать, если до свободы путь 13 м?

Задачна #2

Известно, что некоторые бактерии размножаются каждые три минуты, разделяясь на две. Однако не все бактерии доживают до трехминутного возраста. Каждую минуту четверть всех бактерий погибает. Составить программу, которая печатает число бактерий через n минут, если в начале было k только что родившихся бактерий (n и k - целые числа).

прошу помоч как можно скорей просто очень нужно

карма: 0

Ответов: 273

Рейтинг: 29

#2: 2010-12-09 10:40:59 ЛС | профиль | цитата

code_21738.txt
code_21739.txt
Только убери из листинга решетку в начале и буквы "pas"
И названия поменяй: program name; на любые неодинаковые - запалишьсо

А то я забыл

карма: 0

файлы: 2

code_21738.txt [144B] [195], code_21739.txt [211B] [204]

Голосовали:

GAv

Ответов: 845

Рейтинг: 19

#3: 2010-12-09 10:42:11 ЛС | профиль | цитата

Большое спасибо

карма: 0

Ответов: 273

Рейтинг: 29

#4: 2010-12-09 10:46:16 ЛС | профиль | цитата

Погодь погодь - вторая у меня неправильная..
Вот исправленная:

#pas
program baktery;
var
n,k,i,t:integer;
c:real;
begin
i:=0;
t:=0;
write('input K:');
readln(k);
write('input N:');
readln(n);
c:=k;
repeat
i:=i+1;
t:=t+1;
c:=c*0.75;
if t=3 then
begin
t:=0;
c:=c*2;
end;
until i=n;
k:=trunc(c);
writeln (k);
readln;
end.

Отличия: теперь бактерии погибают каждую минуту, как в условии, а не каждые 3(как я прочитал

)

карма: 0

Ответов: 845

Рейтинг: 19

#5: 2010-12-09 10:57:41 ЛС | профиль | цитата

по переменым дай гайд что к чему))
------------ Дoбавленo в 10.57:
по var что обозначает что обясни))

карма: 0

Ответов: 273

Рейтинг: 29

#6: 2010-12-09 10:57:57 ЛС | профиль | цитата

Ок...

Первая:
i - считает дни
l - длинна подкопа
p - сила пленного (она же длинна, которую он прокапывает за сутки)

Вторая:
n - количество минут, задаваемое тобой(длительность опыта)
k - первичное количество бактерий
i - количество минут с начала опыта
t - счетчик (считает 3-х минутные интервалы)
c - общее количество живых бактерий в данный момент

var - начало раздела описания переменных. Это слово входит в структуру программы и его не надо описывать - это не переменная, а указатель для компилятора, чтоб он знал где переменные...

Типичная структура:
program имя;
var
список переменных с типом;
begin
тело программы
end.

карма: 0

Ответов: 845

Рейтинг: 19

#7: 2010-12-09 11:02:07 ЛС | профиль | цитата

[flood]var - начало раздела описания переменных. Это слово входит в структуру программы и его не надо описывать - это не переменная, а указатель для компилятора, чтоб он знал где переменные...

Типичная структура:
program имя;
var
список переменных с типом;
begin
тело программы
end.[/flood]
не ну это то я знаю))
ну спасибо большое тебе

карма: 0

Ответов: 273

Рейтинг: 29

#8: 2010-12-09 11:08:01 ЛС | профиль | цитата

угу... походу и в первой ошибка:
надо i:=0; заменить на i:=1;
А то он на день меньше копать будет(раньше сбежит, чем в ответе)...
Вот исправленная

#pas
program prison;
var
i:integer;
l,p:real;
begin
i:=1;
l:=1;
p:=1;
repeat
i:=i+1;
p:=p*0.95;
l:=l+p;
until l>=13;
writeln (i);
readln;
end.

Вроде больше нигде багов не нашел...
ЗЫ даже такие проги приходится отлаживать

карма: 0

Ответов: 845

Рейтинг: 19

#9: 2010-12-10 16:11:12 ЛС | профиль | цитата

и снова задачи на которые я не нашол ответы прошу помощи пользывателей помоч

10. Два треугольника заданы своими сторонами. Программа определяет, равны ли эти треугольни-ки.
10. На экране перечисляются названия домашних цветов. При выборе одного из них программа указывает страну, откуда происходит цветок и некоторые подробности по уходу за ним (любит ли свет, часто ли поливать, какая должна быть почва…).
10. Напечатать в одну строку все числа от a до b, пропуская числа, кратные 5.
10. На картонную бобину внешним диаметром a мм намотана лента скотча, толщиной 0,02 мм. Все-го намотано b слоёв. Какова длина ленты? (Не забудьте, что длина одного витка зависит от ра-диуса.)
10. Предприниматель взял в долг d рублей. Каждый месяц он возвращает 1000 рублей и 3% от ос-тавшейся суммы. Если осталось меньше 1000, он выплачивает весь остаток без процентов. Ка-кая сумма будет выплачена за всё это время?

------------ Дoбавленo в 16.11:
кто что решит дайте пожалуйста_)

карма: 0

Ответов: 16884

Рейтинг: 1239

#10: 2010-12-10 17:44:30 ЛС | профиль | цитата

GAv писал(а):

Напечатать в одну строку все числа от a до b, пропуская числа, кратные 5.

и это сам не можешь ???????

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

Ответов: 845

Рейтинг: 19

#11: 2010-12-10 18:01:40 ЛС | профиль | цитата

пропуская числа, кратные 5. чёт не вкупил ))как

карма: 0

Ответов: 8961

Рейтинг: 824

#12: 2010-12-10 18:15:47 ЛС | профиль | цитата

GAv, ну нельзя так, арифметика максимум за 6 класс

Ведь через 20-30 лет Вы будете определять лицо России!

карма: 19

файлы: 1

gav.sha [9.6KB] [252]

Ответов: 845

Рейтинг: 19

#13: 2010-12-10 18:22:32 ЛС | профиль | цитата

Леонид
мне на да не на хиасме а на паскале

карма: 0

Ответов: 8961

Рейтинг: 824

#14: 2010-12-10 18:30:42 ЛС | профиль | цитата

GAv, логика решения видна и на *.sha

карма: 19

Ответов: 5227

Рейтинг: 587

#15: 2010-12-10 18:43:43 ЛС | профиль | цитата

Леонид писал(а):

Ведь через 20-30 лет Вы будете определять лицо России!

Вот это патриотизи, вот это я понимаю

p.s "Папа у Васи силён в математики учится Папа за Васю весь год"

, кстати можно поговорить о том за что мне сразу бан влепят

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Форумы Между деломЗАдачи на "Pascal" ← Ctrl12Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)