ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
22.04.2009, 20:40
|
|
Познающий
Регистрация: 05.03.2007
Сообщений: 99
Провел на форуме:
744734
Репутация:
44
|
|
Как можно в языке C написать программу, которая бы выводила из текстового файла все символы кроме 0-9A-Za-z, т.е. русские символы.
Допустим в текстовом файле написано " reggreg выприук !4t5dfsdf?*mvfgerFECCV".
Знаю что должно как-то через функцию grep [^0-9A-Za-z] file; решаться но не знаю как. 
Помогите кому не сложно  |
|
|
23.04.2009, 16:52
|
|
Участник форума
Регистрация: 19.05.2007
Сообщений: 281
Провел на форуме:
2823587
Репутация:
106
|
|
Читаеш файл посимвольно если символ принадлежит диопазону от 0xc0 до 0xFF то выводиш. Так примерно как то:
PHP код:
FILE *f;
char c;
f = fopen("123.txt","r+");
while(!feof(f))
{
c = fgetc(f);
if((c<=0xc0) && (c>=0xff))
printf("%c",c);
}
|
|
|
|
23.04.2009, 17:10
|
|
Участник форума
Регистрация: 26.11.2008
Сообщений: 158
Провел на форуме:
2816163
Репутация:
158
|
|
Сообщение от snAKe33
HELP!!!!
Код:
for i:=2 to n do begin
delete(s,i,1);
i:=i+1;
end;
|
|
|
|
23.04.2009, 22:14
|
|
Новичок
Регистрация: 22.04.2009
Сообщений: 3
Провел на форуме:
4480
Репутация:
0
|
|
Помогите кто может!!!
№1 Вычислить все значения функции ф=корень из x квадрат + y квадратесли х и у это значения элементов массива х(n) и у(m)
№2 определить количество положительных и отрицательных элементов в массиве х(n)
№3 в массиве A(n,m) определить:
а)максимальный и минимальный элементы
б)номер последнего отрицательного
в)заменить последний отрицательный элемент на минимальный
№4в массиве A(n,m) найти разность между суммой элементов во 2 строке и суммой элементов в 5 столбце.
Пожалуста!!! Просто очень нужно!
|
|
|
|
23.04.2009, 22:38
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
Сообщение от Alex056
№1 Вычислить все значения функции ф=корень из x квадрат + y квадратесли х и у это значения элементов массива х(n) и у(m)
Код:
procedure dothis;
var x : array[1..5] of integer = (1,2,3,4,5,6);
y : array[1..3] of integer = (1,2,3);
i,j : integer;
f : real;
begin
for i:=0 to 4 do
for j:=0 to 2 do begin
f := sqrt( x[i]*x[i] + y[j] * y[j] );
writeln(x[i],',',y[j],' = ',f);
end;
end;
|
|
|
|
23.04.2009, 22:41
|
|
Members of Antichat - Level 5
Регистрация: 15.06.2008
Сообщений: 941
Провел на форуме:
5111568
Репутация:
2399
|
|
Сообщение от Alex056
№2 определить количество положительных и отрицательных элементов в массиве х(n)
Код:
const x = array(1,2,-3,4,-5,6,7);
y = array(1,-2,3);
var
pol, otr : integer;
begin
pol := 0; otr := 0;
for i:=0 to 6 do
if x[i]>=0 then inc(pol) else
dec(pol);
writeln('X: ','noJlo*uteJlbHux=',pol, 'oTPucaTeJlHux=',otr);
pol := 0; otr := 0;
for i:=0 to 2 do
if y[i]>=0 then inc(pol) else
dec(pol);
writeln('Y: ','noJlo*uteJlbHux=',pol, 'oTPucaTeJlHux=',otr);
end.
|
|
|
|
23.04.2009, 23:07
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
Провел на форуме:
1686751
Репутация:
138
|
|
Всем привет!
Помогите с двумя задачами - нужно написать на турбо паскале сие:
Только первый и второй пример, с меня + и огромное спасибо. Желательно чтоб было написанно без проффисионализма =) Ну чтоб препод не запалил) |
|
|
|
23.04.2009, 23:26
|
|
Участник форума
Регистрация: 26.11.2008
Сообщений: 158
Провел на форуме:
2816163
Репутация:
158
|
|
1.
y:=sqrt(1-sqr(cos(x)*cos(x)));
2.
Код:
Program xya2;
uses crt;
var x,y:real;
begin
writeln('BBeguTe X');
readln(x);
if (x<=0) then
y:=cos(x)*(5-3*x)
else
y:=2*sqrt(x);
writeln('Y = ',y);
readln();
end.
Неужели нет интереса научится хотябы немного программировать?=\
Последний раз редактировалось fker; 23.04.2009 в 23:35..
Причина: cosx^2
|
|
|
|
23.04.2009, 23:33
|
|
Участник форума
Регистрация: 25.05.2007
Сообщений: 290
Провел на форуме:
1740746
Репутация:
435
|
|
PHP код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
y,x:real;
begin
write('vvedite znachenie x:'+#10#13);
readln(x);
writeln('x='+floattostr(x));
y:=sqrt(2*(1-cos(x)*cos(x)));
write('y='+floattostr(y));
readln(x);
{ TODO -oUser -cConsole Main : Insert code here }
end.
PHP код:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
y,x:real;
begin
write('vvedite znachenie x:'+#10#13);
readln(x);
writeln('x='+floattostr(x));
if x>0 then
begin
y:=2*sqrt(x);
end
else
begin
y:=cos(x)*(5-3*x);
end;
write('y='+floattostr(y)+#10#13);
readln(x);
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
|
|
|
23.04.2009, 23:35
|
|
Banned
Регистрация: 23.05.2008
Сообщений: 59
Провел на форуме:
1686751
Репутация:
138
|
|
Сообщение от fker
1.
y:=sqrt(1-sqr(cos(x))); //точно не помню как вычисл cos^2 x
2.
Код:
Program xya2;
uses crt;
var x,y:real;
begin
writeln('BBeguTe X');
readln(x);
if (x<=0) then
y:=cos(x)*(5-3*x)
else
y:=2*sqrt(x);
writeln('Y = ',y);
readln();
end.
Неужели нет интереса научится хотябы немного программировать?=\ Спасибо! Ну, другие интересы)
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
