Форум АНТИЧАТ
Страница 51 из 287 « Первая < 41 47 48 49 50 51 52 53 54 55 61101151 > Последняя »
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Студентам с лабораторными сюда (https://forum.antichat.xyz/showthread.php?t=122076)

WinTREI 06.05.2008 22:07
а чоу мою задачку пропустили ><

Дан типизированный файл символов. Все символы цифр записать в конец файла.

пояснение:

дан файл с символов, нужно найти среди символов - символы чисел и вывести их в конец файла.

Myst 06.05.2008 22:32
Т.е. все цифры перенести в конец ЭТОГО ЖЕ файла?
De-visible: ДА.

Myst 06.05.2008 23:58
WinTREI

Код:
Program qwer;

Var
        a:char;
        s:string;
        infile:text;
Begin

        assign(infile,'yourfile.txt');
        reset(infile);
        s:='';
        repeat
                read(infile,a);
                case a of
                        '0'..'9':        s:=s+a+' ';
                end;
        until eof(infile);
       
        close(infile);
        append(infile);
        writeln(infile,s);
        close(infile);
End.

Catsy 07.05.2008 14:41
:mad: up
функции
дано число n, ну то есть его вводят, потом дано некоторое число, ск которого начинается проверка, таким образом получаем некоторую последовательно чисел
то есть например, вводишь 100, и вводишь число, с которого начинается последовательность, например 233, получается в результате массив из целых чисел, начиная от 233, заканчивая 333
из них, нужно найти те числа, из которых можно извлечь корень
например от 1 до 10, должно вывести 4 9

criz 07.05.2008 14:42
Люди, сроки поджимают. Хелп ми :)
Изменил код.
Код:
        memcpy( pkt, srcmac, 7);
        memcpy( (void *)(pkt + 7), (void *)destmac, 7);
        memcpy( (void *)(pkt + 14), &ip_hd, 20 );
        memcpy( (void *)(pkt + 14 + sizeof(ip_hd)), &tcp_hd, 20);
Но, экзепшен вылетает =(

krypt3r 07.05.2008 14:54
Цитата:
подскажи, что добавить чтоб выводилось на экране, а не в файле?
WinTREI, третью с конца строку
Код:
writeln(infile,s);
замени на
Код:
writeln(s);

criz 07.05.2008 16:40
Цитата:
Сообщение от Catsy
дано число n, ну то есть его вводят, потом дано некоторое число, ск которого начинается проверка, таким образом получаем некоторую последовательно чисел
Если я не забыл паскаль, то код должен быть примерно такой:
Код:
var
        beg, end, k : double ;
        i : integer ;
begin
        readln(beg, end);

        for i=beg to (beg+end) do
        begin
                k = sqrt(i);
                if i / k = k then
                        writeln(i);
        end;
end;

Catsy 07.05.2008 20:20
Цитата:
Сообщение от criz
Если я не забыл паскаль, то код должен быть примерно такой:
что-то тут вобще не понятное, да и через функции надо :rolleyes:

Myst 08.05.2008 00:09
Catsy
Код:
Program qwer;

Var

        n,k,i:integer;

Function kvadrat(i:integer) : boolean;
        begin
                if frac(sqrt(i))=0 then
                        kvadrat:=true else
                        kvadrat:=false;
        end;


Begin
        write('Введите количество чисел ');
        readln(n);
        write('Введите начальное число ');
        readln(k);
        for i:=k to k+n do
        if kvadrat(i) then
        begin       
                write(i);
                write(' ');
        end;
        readln;
End.

TheSoul 09.05.2008 12:20
C++
Помогите пож-та ...
Дана последовательность символов a1 ... an . Удалить из последовательности все группы букв типа "abcd"


Время: 22:05
Страница 51 из 287 « Первая < 41 47 48 49 50 51 52 53 54 55 61101151 > Последняя »
Показывать 40 сообщений этой темы на одной странице