FORUMS

MEMBERS

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

		Форум АНТИЧАТ > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
Студентам с лабораторными сюда

Страница 128 из 284

128

Опции темы

Поиск в этой теме

Опции просмотра

08.04.2009, 14:08

razb

Постоянный

Регистрация: 24.03.2009

Сообщений: 670

Провел на форуме:
2868783

Репутация: 414

Цитата:

23 вариант! на С++ помогите плз . с меня репа. задача не трудная. (((

держи)

Код:

#include <iostream>
#include <cmath>
    using namespace std;

    
int main(int argc, char** argv)
{
    double z, x;
    
        cout << "x=";
        cin >> x;
        
        if(x >= 1) z = log10(x);
        else if(x > -1 && x < 1) z = 1;
        else if(x <= -1) z = exp(x);
        
        cout << "z=" << z << endl;
    
    return (0);
}

08.04.2009, 17:35

SHAXID

Познающий

Регистрация: 13.12.2007

Сообщений: 56

Провел на форуме:
469345

Репутация: 51

Помогите с этой задачей на Паскале плиз если не сложно:

Числа Фибоначчи (FП) определяются формулами
fo = f1 = 1; fn = fn-1 + fn-2 при n= 2,3,...
вычислить s - сумму всех чисел Фибоначчи, которые не превосходят 1000.

=)

08.04.2009, 20:49

SHAXID

Познающий

Регистрация: 13.12.2007

Сообщений: 56

Провел на форуме:
469345

Репутация: 51

Цитата:

Сообщение от Mozy

Погугли!
Ведь очень много материала на данную тему!

Прежде чем писАть - я всегда гуглю если что.
это тебе так, на заметку.

09.04.2009, 07:27

fker

Участник форума

Регистрация: 26.11.2008

Сообщений: 158

Провел на форуме:
2816163

Репутация: 158

MRAK9 лови:

Код:

program xuinya;
Uses crt;
const n = 6;
m = 6;
var a: array[1..n,1..m] of integer;
i,j:integer;
begin
//заполнение случ числами, вывод
for i:=1 to n do begin
   for j:=1 to m do begin
      a[i,j]:=random(10);
      write(a[i,j],' ');
      end;
   writeln;
   end;
writeln;
//поиск четной строки, обнуление всех элементов
for i:=1 to n do begin
   if (i mod 2 = 0) then
      for j:=1 to m do
         a[i,j]:=0;
   end;
//вывод результата в crt
for i:=1 to n do begin
   for j:=1 to m do
      write(a[i,j],' ');
   writeln;
   end;
end.

10.04.2009, 17:57

Hammer94

Новичок

Регистрация: 21.12.2008

Сообщений: 4

Провел на форуме:
27639

Репутация: 0

Товарищи, помогите срочно нужно сделать игру быки и коровы, игру почти написал, но в коде что-то напутал и никак не разобрать, вот ссылка на архив, игра написана на C# : http://narod.ru/disk/7571056000/BikiiKorovi.rar.html

посмотрите плиз код и скажите что там не так.
В долгу не останусь!

12.04.2009, 20:16

Irdis

Участник форума

Регистрация: 06.02.2006

Сообщений: 177

Провел на форуме:
1576821

Репутация: 88

Цитата:

В заданном тексте заменить последовательность символов X(I) на A(I)

В тупую, или как...
http://ru.wikipedia.org/wiki/ -> Поиск подстроки

Последний раз редактировалось Irdis; 12.04.2009 в 20:22..

13.04.2009, 03:33

Irdis

Участник форума

Регистрация: 06.02.2006

Сообщений: 177

Провел на форуме:
1576821

Репутация: 88

2 Mozy
Так какой именно алгоритм надо?
2 sebay
Прокатит любая рекурсия ))

13.04.2009, 08:13

sebay

Познающий

Регистрация: 09.03.2009

Сообщений: 43

Провел на форуме:
549532

Репутация: 53

Цитата:

Сообщение от Irdis

2 Mozy
2 sebay
Прокатит любая рекурсия ))

я правильно понимаю что алгоритм примерно такой?
Пользователь вводит с клавиатуры начальную формулу и конечную,и правила подстановки.Возьмем 3 строки.В одной будет начальная формула.В другой конечная.В третье промежуточные вычисления.Затем мы берем начальное слово и применяем к нему первую подстановку результат записываем в промежуточную строку.Затем к промежуточной формуле применяем ещё подстановки...Вопрос в том нужно ли к ней снова применять ту подстановку которую мы применили или перейти к другой.Это похоже просто перебор....
Вот реализовать его я совсем не могу.

13.04.2009, 10:07

043nKRuT0y

Участник форума

Регистрация: 31.10.2007

Сообщений: 213

Провел на форуме:
394522

Репутация: 14

Народ подскажыте :
- как найти длинну сторон Н-угольника , зная только массив координат его вершын(X,Y) ?
- как найти угол при вершыне ?

Если можно формулами ))) Зарание спс !

#10

15.04.2009, 13:33

snAKe33

Участник форума

Регистрация: 10.02.2009

Сообщений: 203

Провел на форуме:
3226894

Репутация: 379

Нужна помощь по паскалю.!
то сам не догоняю как сделать!
Вообщем есть текст программы но он не работает.!
Программа должна удалять из каждой тройки букв среднюю букву.!тип циклический.
проблема в том что я написал, что бы было чтение данных из файла..!а нужно что бы они вводились с клавиатуры, и конец строчки заканчивалась .(точкой)
т.е вводишь данные.
1 строчка йцукен
конец строчки .
начальное слово йцукен......преобразованное йукн
.
также я хз зачем создал еще Pysk, Pysk1, Ptr1

Uses Crt;
type
pSpisok = Slova;
Slova = Record
slv : string[10];
next : pSpisok
end;
var
Head1, Tail1, Head2, Tail2, Ptr1, Ptr2, Pysk1, Pysk2 : pSpisok;
St, Str : string[10];
F : text;
I, K, N : integer;
Name : string;
begin
ClrScr;
Writeln ('Fail dolgen sodergat slova, raspologennie postrochno');
Writeln ('Vvedite imya faila: ');
Readln (Name);
Assign (F, Name);
Reset (F);
Head1 := Nil;
Tail1 := Nil;
Head2 := Nil;
Tail2 := Nil;
ClrScr;
While not Eof(F) do
begin
Readln (F, St);
New (Ptr1);
Ptr1^.Slv :=St;
Ptr1^.Next := Nil;
If Tail1 <> Nil then
Tail1^.Next := Ptr1;
Tail1 := Ptr1;
If Head1 = Nil then
Head1 := Ptr1;
end;
Tail1^.Next := Head1;
Ptr1 := Head1;
Pysk1 := Head1;
repeat
Str := Ptr1^.Slv;
N := length(str) - 1 div 3;
If Str <> '' then K := 1;
for I := 1 to N do
begin
Delete (Str, K+1, 1);
K := K + 2;
end;
New (Ptr2);
Ptr2^.Slv := Str;
Ptr2^.Next := Nil;
If Tail2 <> Nil then
Tail2^.Next := Ptr2;
Tail2 := Ptr2;
If Head2 = Nil then
Head2 := Ptr2;
Pysk1 := Ptr1^.Next;
Ptr1 := Pysk1;
Until Pysk1 = Head1;
Tail2^.Next := Head2;
Pysk1 := Head1;
Pysk2 := Head2;
Ptr1 := Head1;
ptr2 := Head2;
repeat
Write (Ptr1^.Slv,' ');
Writeln (Ptr2^.Slv);
Pysk1 := Ptr1^.Next;
Pysk2 := Ptr2^.Next;
Ptr1 := Pysk1;
Ptr2 := Pysk2;
until Pysk2 = Head2;
repeat until KeyPressed;
End.

Последний раз редактировалось snAKe33; 15.04.2009 в 13:36..

Страница 128 из 284

128

« Предыдущая тема | Следующая тема »

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Американским студентам запретили пользоваться Skype	KPOT_f!nd	Мировые новости. Обсуждения.	1	28.09.2006 03:47
Любителям квестов сюда!!	FoX's	Болталка	10	25.01.2005 20:42

Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)

Быстрый переход

Home

Help

Terms and Rules