Задачи по Турбо Паскалю
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Задачи по Турбо Паскалю - 2007-11-07 23:34:30.253333
|
|
|
Johnny Mnemonic
Сообщений: 3
Оценки: 0
Присоединился: 2007-09-13 16:29:34.313333
|
Уважаемые форумчане. Помогите с решением 3-ёх задач по Паскалю.
Вот ссылка на Задачи по Турбо Паскалю
————————–
Заранее спасибо.
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-11-08 00:11:13.246666
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
quote:
ORIGINAL: Johnny Mnemonic
Уважаемые форумчане. Помогите с решением 3-ёх задач по Паскалю.
Вот ссылка на Задачи по Турбо Паскалю
————————–
Заранее спасибо.
Ну пиши прямым текстом
Мне самому в лом учиться - решите за меня.
http://weblancer.net/
Вот здесь тебе за разумную плату все решат
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-11-08 00:25:58.390000
|
|
|
Johnny Mnemonic
Сообщений: 3
Оценки: 0
Присоединился: 2007-09-13 16:29:34.313333
|
N2 решил, правда не знаю правильно или нет.
program N2;
var
q,y:real; p:integer;
begin
y:=SQRT(2);
for p:=1 to 15 do
q:=y*p ;
writeln('q=',q:9:2);
readln;
end.
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-11-08 01:35:54.190000
|
|
|
alexbozhko
Сообщений: 1024
Оценки: 0
Присоединился: 2005-11-24 13:35:34
|
quote:
ORIGINAL: Johnny Mnemonic
N2 решил, правда не знаю правильно или нет.
program N2;
var
q,y:real; p:integer;
begin
y:=SQRT(2);
for p:=1 to 15 do
q:=y*p ;
writeln('q=',q:9:2);
readln;
end.
не правильно походу
замени цикл на p:=15 и получишь тоже самое
это явно не правильно
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-11-08 03:51:50.403333
|
|
|
Oz...
Сообщений: 1
Оценки: 0
Присоединился: 2007-11-08 02:22:28.980000
|
№2
begin
x:=sqrt(2);
for i:=2 to 15 do
x:=sqrt(x+2);
writeln(x:30:20);
end.
Вроде так.
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-11-10 13:28:29.100000
|
|
|
Tsinya
Сообщений: 1
Оценки: 0
Присоединился: 2007-11-10 13:24:37.160000
|
Помогите оч надо решить задачу. Я в Паскале нубак. Дан массив P(15). Определить кол-во Pi,предшествующих первому отрицательному Pi.Замните все отрицательные Pi на 0.Хелп плиз
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-11-10 19:12:18.446666
|
|
|
BinZo
Сообщений: 230
Оценки: 0
Присоединился: 2006-12-02 20:29:14.373333
|
Пиши, что сам пытался сделать. Если что - исправим, подскажем.
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-11-10 19:53:57.930000
|
|
|
Kiber_Niger
Сообщений: 8
Оценки: 0
Присоединился: 2007-11-06 16:33:37.896666
|
quote:
Помогите оч надо решить задачу. Я в Паскале нубак. Дан массив P(15). Определить кол-во Pi,предшествующих первому отрицательному Pi.Замните все отрицательные Pi на 0.Хелп плиз
var
x:array [1..15] of integer;
i,k:integer;
begin
i:=1;
while x>=0 do
begin
inc(k);
inc(i);
end;
writeln(k);
for i:=1 to 15 do
if x<0 then x:=0;
end.
{тока массив сам заранее заполни!!!!}
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-11-11 05:04:20.830000
|
|
|
weak spirit
Сообщений: 56
Оценки: 0
Присоединился: 2007-09-30 18:40:25.726666
|
бугага, нубы пишут для нубов простейшие задачи, причём неправильно:D
раньше было модно объединяться в команды кулхацкеров, теперь модно просить решить задачу на паскале.
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-11-11 08:32:29.150000
|
|
|
BinZo
Сообщений: 230
Оценки: 0
Присоединился: 2006-12-02 20:29:14.373333
|
Может все-таки x[i], а не x?:D
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-11-16 18:45:56.280000
|
|
|
sergeiprog
Сообщений: 302
Оценки: 0
Присоединился: 2007-04-24 10:02:27.956666
|
N3:
var k,l,p,s:integer;
begin
p:=1;
for k:=1 to 30 do
begin
s:=0;
for l:=1 to 10 do
s:=s+l*l+k;
p:=p*(k+5)*s;
end;
writeln(p);
end. N1, не точное решение там со степенем надо что нибудь придумать, если будет время я подумаю над этим:
var s:real;
a,fac:real;
n:integer;
begin
s:=0;//сумма
a:=0;//текущий элемент нужен для проверки точности
n:=1;
fac:=1;//нужен для того чтобы не считать факториал каждый раз
repeat
fac:=fac*n;
a:=(fac*fac)/Power(2,Power(n,2*n));
s:=s+a;
until(abs(a)<0.001);
writeln(s);
end.
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-12-18 21:11:44.373333
|
|
|
Pro100Dima
Сообщений: 1
Оценки: 0
Присоединился: 2007-12-18 21:05:24.716666
|
Помогите решить задачу в Паскале. Нужна по зарез. Нужно сделать новогоднюю заставку. Какую нибуть ёлку или снеговика. Помогите пожалуйста.
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2007-12-20 14:15:44.003333
|
|
|
BinZo
Сообщений: 230
Оценки: 0
Присоединился: 2006-12-02 20:29:14.373333
|
Гугли статьи по использованию "GRAPH.TPU".
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2008-12-19 15:51:42.170000
|
|
|
tr4nz1t
Сообщений: 2
Оценки: 0
Присоединился: 2008-12-19 15:48:06.390000
|
Народ нужна помошь просто по зарез….надо до завтра сделать 2 задачи вот условие:
1. Дан одномерный масив из 20 действительных чисел.Элементы с четными и порядковыми номерами заменить нулями.Вывести полученный массив в два столбика.
11.Дан одномерный массив из 27 целых чисел(положительных и отрицательных) найти сумму положительных элементов из последней трети массива.Вывести полученную сумму и исходный массив в три столби
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2008-12-19 17:59:34.343333
|
|
|
K1ller
Сообщений: 94
Оценки: 0
Присоединился: 2008-11-25 23:19:36.140000
|
quote:
с четными и порядковыми
Это как?
И на каком языке должна быть прога?
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2008-12-19 18:20:30.343333
|
|
|
K1ller
Сообщений: 94
Оценки: 0
Присоединился: 2008-11-25 23:19:36.140000
|
var a : array[1..27] of integer;
i,s : longint;
begin
for i := 1 to 27 do read(a[i]);
s:=0;
for i := 19 to 27 do
if(a[i]>0) then s:=s+a[i];
writeln(s);
for i := 1 to 7 do
writeln(a[i],' ',a[i+8],' ',a[i+19]);
end.
Вторая задача. Судя по названию топика, тебе нужно на паскале.
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2008-12-19 18:34:06.080000
|
|
|
K1ller
Сообщений: 94
Оценки: 0
Присоединился: 2008-11-25 23:19:36.140000
|
var a : array[1..20] of real;
i,s : longint;
begin
for i := 1 to 20 do read(a[i]);
for i := 1 to 10 do a[i*2]:=0;
for i := 1 to 10 do
writeln(a[i],' ',a[i+10]);
end.
Первая задача.
Если все правильно - с тебя+)
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2008-12-19 18:38:57.330000
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
этот тред полон метаном чуть более чем полностью
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2008-12-19 20:23:23.296666
|
|
|
tr4nz1t
Сообщений: 2
Оценки: 0
Присоединился: 2008-12-19 15:48:06.390000
|
K1ller на паскале…ток че то они маленькие какие то…просто у нас у всех длинные кто сдал зачет а эти че та маленькие
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2008-12-19 21:22:24.076666
|
|
|
K1ller
Сообщений: 94
Оценки: 0
Присоединился: 2008-11-25 23:19:36.140000
|
А ты введи пару тестов и убедись, что все правильно работает. Короткая программа!=нерабочая.
Конечно, если оформить код по всем правилам, она визуально станет больше. Да, первую можно еще чуток укоротить)) Убери переменную s.
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2008-12-20 14:57:15.380000
|
|
|
_SaZ_
Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333
|
Чем больше (тяжелее) код - тем лучше. Главный критерий оценки… Ппц. А препод тоже на это смотрит?
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-01-14 17:36:03.150000
|
|
|
SAOZA
Сообщений: 2
Оценки: 0
Присоединился: 2009-01-14 17:33:08.786666
|
решите задачу Сформировать список студентов группы, вкотором указать фамилию, имя, отчество, знает ди язык с, паскаль( сли да то где обучался и сколько лет) подсчитать сколько студентов знают язык си сколько паскаль. сколько оба языка. Использовать записи
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-01-15 23:45:52.963333
|
|
|
Coolzoom
Сообщений: 40
Оценки: 0
Присоединился: 2008-11-05 02:32:34.956666
|
Вот сюда загляните
http://sp.sz.ru/nast_progr_.html
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-01-16 00:20:17.920000
|
|
|
spikky
Сообщений: 211
Оценки: 0
Присоединился: 2008-10-26 14:50:23.676666
|
quote:
Вот сюда загляните
http://sp.sz.ru/nast_progr_.html
Полный бред, имхо
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-01-16 00:45:44.466666
|
|
|
Denaturat
Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
|
quote:
ORIGINAL: spikky
Полный бред, имхо
это 90 год, совок - учитывай это когда читаешь
вообще забавный текст, ностальгический
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-01-16 00:50:33.133333
|
|
|
spikky
Сообщений: 211
Оценки: 0
Присоединился: 2008-10-26 14:50:23.676666
|
Да я уже заметил что в 90-м написано… только после того как предыдущий пост оставил..
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-01-16 02:24:18.293333
|
|
|
kreol
Сообщений: 823
Оценки: 0
Присоединился: 2007-03-08 03:13:06.876666
|
quote:
ORIGINAL: Denaturat
это 90 год, совок - учитывай это когда читаешь
В 90-м году было так хреново с мозгами? 0_о Эх, а я то думал, советский союз, коммунизм, светлое будещее, все дела…
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-01-16 20:57:11.640000
|
|
|
Coolzoom
Сообщений: 40
Оценки: 0
Присоединился: 2008-11-05 02:32:34.956666
|
quote:
ORIGINAL: spikky
quote:
Вот сюда загляните
http://sp.sz.ru/nast_progr_.html
Полный бред, имхо
Да я не говорил что это надо принимать это всерьез просто прикольно написано :)))
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-01-19 19:03:05.626666
|
|
|
GrifeX
Сообщений: 66
Оценки: 0
Присоединился: 2005-12-24 16:55:48
|
Народ, вопрос, как в паскале записать следующее:
Arctg(x+y) и Arcctg(x)?
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-01-21 20:33:55.943333
|
|
|
b[e]nd3p
Сообщений: 187
Оценки: 0
Присоединился: 2008-09-02 20:54:56.370000
|
Обратными их эквивалентами
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-05-24 17:08:48.176666
|
|
|
seMan66
Сообщений: 1
Оценки: 0
Присоединился: 2009-05-24 17:01:56.456666
|
помогите плизззззз!!!! условие задачи при написании любого числа поскаль должен писать четное или не четное это число! как это сделать?????????? напишите решение плиз!!!!!!!! зарание благадарен!!!!!
|
|
|
|
|
RE: Задачи по Турбо Паскалю - 2009-05-24 17:16:40.973333
|
|
|
VaZoNeZ
Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666
|
quote:
помогите плизззззз!!!! условие задачи при написании любого числа поскаль должен писать четное или не четное это число! как это сделать?????????? напишите решение плиз!!!!!!!! зарание благадарен!!!!!
:'(:'(:'(:'(:'(:'(:'(:'(:'(:'(:'(:'(:'(:'(
Случаем никто не забыл про ЭТО ???
ах да, и это:
quote:
Все остальные топики с просьбами о решении задач на paskal'e и delphi будут удаляться
???????
|
|
|
|
|
|
