Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Куратор(ы):   Lord_of_Darkness   



Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 985 • Страница 47 из 50 • <  1 ... 44  45  46  47  48  49  50  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  overover
Прилепленное (важное) сообщение

Убедительная просьба ко всем, кто выкладывает исходники:
1. Обязательно пользуйтесь тэгом code (иначе очень трудно читать)
2. Старайтесь делать отступы

Если вы хотите чтобы вам помогли в написании программы, внятно излагайте задание!

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


Возможно, что нужная вам программа уже написана, поэтому советую просмотреть список здесь и здесь
Отредактировано куратором: Lord_of_Darkness. Дата: 07.07.2006 19:36
Реклама

Партнер
  ToSHiC

Member
Статус: Не в сети
Регистрация: 07.01.2010
begyn, ты разницу между "помогите, у меня тут не получается" и "сделайте за меня" видишь? если я хорошо программирую - это же не значит, что я должен за других делать их работу, правда? не думаю, что шеф-повар какого нибудь ресторана согласится готовить мне бесплатно - ради чего, если ему за готовку еды платят деньги?

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

определить номера столбцов в матрице, имеющих четное число положительных элементов.

Помогите плз я ваще не умею программировать и объясните чуть чуть хоть.плз.буду оч признателен.
  Beatrisa

Добрый вечер, помогите, пожалуйста, найти ошибку.
Код:
program sum;
const pi=3.14159;
var a,b,h,x,y,s:real; i,n:integer;
begin
writeln ('vvedite a,b,h,n');
read (a,b,h,n);
x:=a;
while x<=b do begin
y:=(pi*pi)/8-(pi/4)*abs(x);
writeln (x:5:2,y:8:2);
x:=x+h;
end;
s:=0;
for i:=1 to n do begin
a:=cos(2*i-1)/(2*i-1)*(2*i-1);
s:=s+a;
writeln (s:8:2);
end;
end.

По идее, значения s и y должны быть приблизительно одинаковыми, но у меня они получаются разные. Само задание было таким: вычислить значения суммы S и функции y(x) для аргумента x, изменяющегося в заданном интервале [2.0;2.6] с шагом h=0.1. Напечатать таблицу значений x,y,s.
Заранее спасибо.
  ToSHiC

Member
Статус: Не в сети
Регистрация: 07.01.2010
а формулы то точно правильные? я в экселе прикинул - получилось так:

Код:
x   y   i   s
2   -0,337096534   1   0,540302306
2,1   -0,415636284   2   -0,449690191
2,2   -0,494176034   3   -0,166028005
2,3   -0,572715784   4   0,587874249
2,4   -0,651255534   5   -0,323256013
2,5   -0,729795284   6   -0,318830315
2,6   -0,808335034   7   0,588616467
  Beatrisa

Формулы такие:
y=П²/8-П/4|x|
s=cos x+(cos 3x)/3²+ ... +(cos(2n-1)x)/(2n-1)²
n=20
Спасибо большое, что помогаете...
  maco

Member
Статус: Не в сети
Регистрация: 04.10.2004
Beatrisa писал(а):
(cos(2n-1)x)/(2n-1)²

Код:
a:=cos((2*i-1)*x)/((2*i-1)*(2*i-1));


Это:
Код:
s:=0;
for i:=1 to n do
  begin
    a:=.......;
    s:=s+a;
  end;
нужно впихнуть в цикл, в котором изменяется x. И выводить, соответственно, одно значение s (т.е. то, которое будет получено в конце цикла for) для одного значения x.
  Beatrisa

Извините, вы не могли бы написать? А то у меня теперь получается, что изменяются только значения x и y, а все значения s одинаковые. Видимо, я не совсем правильно поняла, куда именно нужно вставит этот цикл.
  ToSHiC

Member
Статус: Не в сети
Регистрация: 07.01.2010
они одинаковые, потому что надо добавить в вычисление косинуса собственно сам икс, как maco написал
  VirXak

Member
Статус: Не в сети
Регистрация: 11.05.2009
Откуда: Нижнекамск
Люди помогите плз задачу решить на паскале(( никак не пойму(
Даны целые числа a1..a50. Получить сумму тех чисел данной последовательности, которые нечетны и отрицательны.
спасибо

_________________
4790k@4.5Ghz/16Gb@2400Mhz/2xGTX780SLI@1100

  dimon1993

Member
Статус: Не в сети
Регистрация: 14.09.2008
Ребят помогите кто хороши хнает паскаль написать программу , которая генерирует 3 последовательности из 10 случайных чисел в диапазоне от 1 до 10,выводит каждую последовательность на экран и вычисляет среднее арифметическое каждой последовательности.Вот вид как должна выглядеть программа:
1 0 4 2 5 8 1 7 3 среднее арифметическое 5.30
3 6 1 1 0 1 3 8 7 6 среднее арифметическое 5.50
2 2 5 4 2 2 1 6 1 0 среднее арифметическое 3.90

Добавлено спустя 1 минуту 15 секунд:

Я так понял что нужно использовать "randomize" но не знаю как всё это расписать

_________________
Gigabyte GA-MA770-UD3/955BE @3,93Ghz/Thermalright Silver Arrow/RAM 4GB @952Mhz(6-6-6-18-2T)/GTX 580 3GB @850mhz/SSD Plextor M3 128Gb/TT Toughpower750W

Последний раз редактировалось Lord_of_Darkness 06.03.2011 0:18, всего редактировалось 1 раз.

  Lord_of_Darkness

Куратор темы
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
dimon1993

Код:
randomize;
for i:=1 to 3 do
begin
  sum:=0;
  for j:=1 to 10 do
  begin
    num:=1+random(10);
    sum:=sum+num;
    write(num,' ');
  end;
  writeln('среднее арифметическое = ',sum/10);
end;

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  dimon1993

Member
Статус: Не в сети
Регистрация: 14.09.2008
Спасибо Lord_of_Darkness

Добавлено спустя 11 минут 40 секунд:
Помогите пожалуйста как рассписать вот такую задачу(судя по условию я думаю в ней нужно использовать цикл for):
Написать программу которая вычисляет сумму первых n-членов ряда 1,3,5,7....Кол-во суммируемых членов ряда задаётся в программе

Добавлено спустя 2 часа 41 минуту 18 секунд:
Вроде сделал проверьте правильно?

Код:
var
  i, n: integer;
  sum: real;
 
begin
  readln(n);
  sum := 0;
  for i := 1 to n do
  begin
    sum := sum + (2 * i - 1);
  end;
  writeln(sum);
end.

_________________
Gigabyte GA-MA770-UD3/955BE @3,93Ghz/Thermalright Silver Arrow/RAM 4GB @952Mhz(6-6-6-18-2T)/GTX 580 3GB @850mhz/SSD Plextor M3 128Gb/TT Toughpower750W

  Lord_of_Darkness

Куратор темы
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
dimon1993
да, верно. Чтобы отступы было видно нужно использовать тэг code (исправил).
Ну и пара мелочей:
следующие две конструкции делают одно и тоже
Код:
  for i := 1 to n do
  begin
    sum := sum + (2 * i - 1);
  end;

и
Код:
  for i := 1 to n do
    sum := sum + 2*i - 1;

но вторая компактнее.

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  Alexander from VRN

Member
Статус: Не в сети
Регистрация: 08.07.2010
Откуда: VRN
кто нибудь умеет хорошо работать с графикой в паскале? с движением в частности?
если есть такие помогите плиз сделать так чтобы у нарисованного на паскале совенка махали крылья и моргали глаза....
код программы
Код:
 program z3;
uses graph, crt;
var Gd, Gm, i:integer;
begin
Gd:=detect;
initgraph (Gd, Gm, '');
setbkcolor (15);
setcolor (6);
circle (300,70,60);
circle (275,60,15);
circle (325,60,15);
circle (278,62,10);
circle (322,62,10);
line (300,70,290,80);
line (300,70,310,80);
line (290,80,300,100);
line (310,80,300,100);
circle (300,180,50);
line (253,160,232,190);
line (347,160,368,190);
line (232,190,250,180);
line (368,190,350,180);
circle (300,190,25);
line (290,229,290,234);
line (283,228,283,234);
line (310,229,310,234);
line (317,228,317,234);
circle (279,236,2);
circle (285,236,2);
circle (291,236,2);
circle (321,236,2);
circle (315,236,2);
circle (309,236,2);
line (250,13,260,23);
line (255,10,255,29);
line (260,13,250,23);
line (350,13,340,23);
line (345,10,345,29);
line (340,13,350,23);
readkey;
closegraph;
readln;
end.
  reb1l1on

Junior
Статус: Не в сети
Регистрация: 25.08.2007
Для использования регулярных выражений, подскажите наиболее подходящию библиотеку для BorlandC++, и описание к ней, пробовал библиотеки boost, но так и не смог разобраться с ними ((

Еще один вопрос, решил воспользоваться конвертером из С++ в С# ( взял отсюда http://rutracker.org/forum/viewtopic.php?t=1734855), и при конвертации он требует большое количество библиотек, у себя я смог найти только 2, а вот например rpcerr.h, macocidl.h негде нету, где можно найти эти библиотеки ?
  artBlack

Member
Статус: Не в сети
Регистрация: 15.03.2011
Помогите, люди добрые решить задачу на Turbo Pasсal !
"Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Проверьте алгоритм трассировкой. Напишипе программу на Паскале
Заранее преблагодерен!!
  dimon1993

Member
Статус: Не в сети
Регистрация: 14.09.2008
Помогите решить задачу с использованием repeat
Найти сумму ряда с точностью E=10^-2, общий член которого An=5^n/n!
считать что точность достигнута если An<E.Тему эту пропустил поэтому прошу помощи.

Добавлено спустя 23 минуты 11 секунд:
artBlack
Вот как я бы решил твою задачу:
uses crt;
var
i,n,summa:integer;
begin
writeln('Введите заданнное число');
readln(n)
summa : = 0;
for i := 1 to n do
summa := summa + i;
end;
WriteLn('l + 2 + ... + n= ', summa):
ReadLn;
end.

_________________
Gigabyte GA-MA770-UD3/955BE @3,93Ghz/Thermalright Silver Arrow/RAM 4GB @952Mhz(6-6-6-18-2T)/GTX 580 3GB @850mhz/SSD Plextor M3 128Gb/TT Toughpower750W

  Lord_of_Darkness

Куратор темы
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
dimon1993

Код:
n:=0;
repeat
  n:=n+1;
  An:=power(5,n)/Factorial(n);
  sum:=sum+An;
until An<E;


где Factorial это

Код:
function Factorial(n: word): LongInt;
begin
  Factorial := 1;
  if n=0 then exit;
  for n := 1 to n do
    Factorial := Factorial*n;
end;

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

  HeavyMetalManiac

program lab5;
var
Ca:char;
Iq:integer;
const
c1='6' ;
c2=#53 ;

opys1:char='\' ;
opys2:char=#7 ;
Begin
opys1:='-';
opys2:=#5;
Ca:='B' ;
Ca:='*' ;
Ca:='5' ;
Ca:=#34 ;

Ca:=#8 ;
Iq:=ord(Ca) ;
Ca:=chr (Iq) ;

Ca:=succ(Ca) ;
Ca:=#76;
Ca:=pred(Ca) ;

Ca:=low(char) ;
Ca:=high(char) ;

end.





если запускать в фри паскале то константы с1=54 с2=53, почему он показует не то? и что не напишу значение в вотче не меняеться
  Lord_of_Darkness

Куратор темы
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
А что должен показывать? Это же константы, изменить их нельзя. А значения у них верные, '6' равнозначно #54. Вот табличка ASCII http://www.asciitable.com

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)

Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 985 • Страница 47 из 50 • <  1 ... 44  45  46  47  48  49  50  >
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2

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

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan