 |
|
 |
|
|
|
Последние Файлы GTA 4 |
Последние Файлы GTA-MP |
Реклама |
|
|
|
|
|
Задачи на Pascal'е
| |
| Dima-kun | Дата: Вторник, 20.12.2011, 23:49 | Сообщение # 16 |
|
Группа:
Разработчики
Сообщений: 6269
Награды: 72
Репутация: 3512
Замечания: 0%
Статус:  | там всего лишь найти факториал - простенький цикл.
Мои работы:
[INC] Сборник d_includes [LAST],[FS] New Demage Effect,[FS]Авто-Поворотники,
[FS]mp3player,[FS] Fun Chat Game,[FS] Car Buy Syst,[FS] Anti-AirBrk,[INC] d_setpos,
[GM] Game Move v0.1,[FS+include]Super-Armour [0.3z],[FS + Include] Multi Checkpoints
|
| |
|
|
| IInkvizitor | Дата: Вторник, 20.12.2011, 23:52 | Сообщение # 17 |
|
Советчик
Группа:
I'm V.I.P.
Сообщений: 1177
Награды: 7
Город: Санкт-Петербург
Репутация: 493
Замечания: 0%
Статус: | http://forum.sources.ru/index.php?showtopic=44800
|
| |
|
|
| DiSE | Дата: Среда, 21.12.2011, 13:04 | Сообщение # 18 |
|
Группа:
I'm V.I.P.
Сообщений: 1759
Награды: 23
Город: Уфа
Репутация: 337
Замечания: 80%
Статус: | Блин, не могу сделать вторую. Алгоритмы мне кинуть можете?
|
| |
|
|
| -=Spektr=- | Дата: Среда, 21.12.2011, 14:31 | Сообщение # 19 |
|
Уверенный в себе
Группа:
I'm V.I.P.
Сообщений: 232
Награды: 3
Город: MDK
Репутация: 166
Замечания: 0%
Статус: | Спортсмен пробегает за 1-й день n км, каждый последующий день он увеличивает норму пробега на k%. Определите через сколько дней норма пробега может стать более 32 км?
Code
var d:integer;
n,k:real;
begin
d:= 1;
write('Введите количество км, которые пробегает спортсмен за 1-й день: ');
readln(n);
write('Введите процент увеличения нормы пробега: ');
readln(k);
k:=k/100;
repeat
n:=n+n*k;
d:=d+1;
until n > 32;
writeln('Через ',d,' дней норма пробега будет = 32');
end.
|
| |
|
|
| -=Spektr=- | Дата: Среда, 21.12.2011, 14:50 | Сообщение # 20 |
|
Уверенный в себе
Группа:
I'm V.I.P.
Сообщений: 232
Награды: 3
Город: MDK
Репутация: 166
Замечания: 0%
Статус: | Morino_Reigan, не получишь денег :P
DiSE,
Code
{Дано целое число N (> 0). Найти сумму 1 + 1/2 + 1/3 + ... + 1/N (вещественное число).}
var k,n,a:integer;
s:real;
begin
s:= 1; a:= 1;
repeat
write('Введите конечное значение цикла(> 0): ');
readln(n);
until n > 0;
for k:= 1 to n do begin
a:= a+1;
s:= s+1/a;
end;
writeln('Сумма = ', s);
end.
Сообщение отредактировал -=Spektr=- - Среда, 21.12.2011, 14:51 |
| |
|
|
| Dima-kun | Дата: Среда, 21.12.2011, 20:45 | Сообщение # 21 |
|
Группа:
Разработчики
Сообщений: 6269
Награды: 72
Репутация: 3512
Замечания: 0%
Статус: | Quote (-=Spektr=-) a:= a+1;
на хрена это нужно?
Добавлено (21.12.2011, 20:45)
---------------------------------------------
код безлаберный. лишние действия. я, если был бы учителем, ну или тем кт опринимал бы этот код, занизил бы бал на этом.
Мои работы:
[INC] Сборник d_includes [LAST],[FS] New Demage Effect,[FS]Авто-Поворотники,
[FS]mp3player,[FS] Fun Chat Game,[FS] Car Buy Syst,[FS] Anti-AirBrk,[INC] d_setpos,
[GM] Game Move v0.1,[FS+include]Super-Armour [0.3z],[FS + Include] Multi Checkpoints
Сообщение отредактировал Morino_Reigan - Среда, 21.12.2011, 20:46 |
| |
|
|
| ZiGGi | Дата: Среда, 21.12.2011, 20:51 | Сообщение # 22 |
|
Мастер джэдай
Группа:
Продвинутые
Сообщений: 2652
Награды: 34
Город: St. Petersburg
Репутация: 2102
Замечания: 20%
Статус: | Quote (Morino_Reigan) a:= a+1;
на хрена это нужно?
эм:
Quote (-=Spektr=-) s:= s+1/a;
Quote (-=Spektr=-) Найти сумму 1 + 1/2 + 1/3 + ... + 1/N
Quote (Morino_Reigan) код безлаберный. лишние действия. я, если был бы учителем, ну или тем кт опринимал бы этот код, занизил бы бал на этом.
Где лишние действия? По моему код хороший, придраться не к чему 
Бложе
[indent]Мой блог
Уроки по Pawn[/indent]
Open-GTO
[indent]Блог разработчиков
GitHub: https://github.com/Open-GTO/Open-GTO
Сборки мода с сервером тут[/indent]
|
| |
|
|
| IInkvizitor | Дата: Среда, 21.12.2011, 20:56 | Сообщение # 23 |
|
Советчик
Группа:
I'm V.I.P.
Сообщений: 1177
Награды: 7
Город: Санкт-Петербург
Репутация: 493
Замечания: 0%
Статус: | Quote (Morino_Reigan) я, если был бы учителем, ну или тем кт опринимал бы этот код, занизил бы бал на этом.
Как студент универа, могу сказать, что 98% преподавателям пофиг на реализацию, главное что бы работало
|
| |
|
|
| -=Spektr=- | Дата: Среда, 21.12.2011, 22:38 | Сообщение # 24 |
|
Уверенный в себе
Группа:
I'm V.I.P.
Сообщений: 232
Награды: 3
Город: MDK
Репутация: 166
Замечания: 0%
Статус: | Morino_Reigan, ты всматривался в последовательность? Если знаешь как можно сделать без переменной увеличение знаменателя дроби, то поясни, но не забывай, что он учится в 9-м классе (как и я). Ну и хотелось бы знать, где там лишние действия. Зачем говорить о безалаберности кода, если ты даже не смог понять предназначение переменной "а"?
|
| |
|
|
| -=Spektr=- | Дата: Среда, 21.12.2011, 23:03 | Сообщение # 25 |
|
Уверенный в себе
Группа:
I'm V.I.P.
Сообщений: 232
Награды: 3
Город: MDK
Репутация: 166
Замечания: 0%
Статус: | Хотя да, там даже не правильно. I'm sorry. 
Правильный код:
Code
var k,n:integer;
s:real;
begin
s:= 1;
repeat
write('Введите конечное значение цикла(> 0): ');
readln(n);
until n > 0;
for k:= 2 to n do
s:= s+1/k;
writeln('Сумма = ', s);
end.
Сообщение отредактировал -=Spektr=- - Среда, 21.12.2011, 23:06 |
| |
|
|
| Dima-kun | Дата: Четверг, 22.12.2011, 11:48 | Сообщение # 26 |
|
Группа:
Разработчики
Сообщений: 6269
Награды: 72
Репутация: 3512
Замечания: 0%
Статус: | ZiGGi, омг. ну ты хоть не позорься.)
for I:=1 to n do S:=S+1/i; - вот и весь код.
Добавлено (22.12.2011, 11:46)
---------------------------------------------
IInkvizitor, хм. нашему не пофиг было.
Добавлено (22.12.2011, 11:48)
---------------------------------------------
Quote (-=Spektr=-) for k:= 2 to n do
опять нелепость. почему с 2ух начало отсчета? надо с 1 .
Мои работы:
[INC] Сборник d_includes [LAST],[FS] New Demage Effect,[FS]Авто-Поворотники,
[FS]mp3player,[FS] Fun Chat Game,[FS] Car Buy Syst,[FS] Anti-AirBrk,[INC] d_setpos,
[GM] Game Move v0.1,[FS+include]Super-Armour [0.3z],[FS + Include] Multi Checkpoints
Сообщение отредактировал Morino_Reigan - Четверг, 22.12.2011, 21:50 |
| |
|
|
| DiSE | Дата: Четверг, 22.12.2011, 13:12 | Сообщение # 27 |
|
Группа:
I'm V.I.P.
Сообщений: 1759
Награды: 23
Город: Уфа
Репутация: 337
Замечания: 80%
Статус: | Пятёрку поставили за четверть.
Решил, спасибо пацаны
|
| |
|
|
| Dima-kun | Дата: Четверг, 22.12.2011, 13:24 | Сообщение # 28 |
|
Группа:
Разработчики
Сообщений: 6269
Награды: 72
Репутация: 3512
Замечания: 0%
Статус: | DiSE, с тебя магарыч)
Мои работы:
[INC] Сборник d_includes [LAST],[FS] New Demage Effect,[FS]Авто-Поворотники,
[FS]mp3player,[FS] Fun Chat Game,[FS] Car Buy Syst,[FS] Anti-AirBrk,[INC] d_setpos,
[GM] Game Move v0.1,[FS+include]Super-Armour [0.3z],[FS + Include] Multi Checkpoints
|
| |
|
|
| IInkvizitor | Дата: Четверг, 22.12.2011, 17:59 | Сообщение # 29 |
|
Советчик
Группа:
I'm V.I.P.
Сообщений: 1177
Награды: 7
Город: Санкт-Петербург
Репутация: 493
Замечания: 0%
Статус: | Morino_Reigan, завидую. У нас на 2 и 3 курсе программирование бабка вела, это ппц было))
|
| |
|
|
| -=Spektr=- | Дата: Четверг, 22.12.2011, 20:47 | Сообщение # 30 |
|
Уверенный в себе
Группа:
I'm V.I.P.
Сообщений: 232
Награды: 3
Город: MDK
Репутация: 166
Замечания: 0%
Статус: | Quote (Morino_Reigan) опять нелепость. почему с 2ух начало отсчета? надо с 1 .
Вот тут уже всё правильно. Знаменатель дроби начинается с 2-х, так что и начальное значение цикла 2, т.к. для знаменателя я использую счётчик.
Пример:
1+1/2+1/3+1/4 = 2,08(3)
Такой же ответ получается и в программе.
Quote (Morino_Reigan) S:=S+1/n;
Вот это уже точно не правильно
Например, n = 5. Последовательность будет выглядеть следующим образом:
1+1/5+1/5+1/5+1/5+1/5
Ну а в задание:
Quote (DiSE) 1 + 1/2 + 1/3 + ... + 1/N
Кстати, DiSE, ты кое что обещал 
Сообщение отредактировал -=Spektr=- - Четверг, 22.12.2011, 20:52 |
| |
|
|
|
 |
|
 | |
| |
|
