Заказы "Сделайте все за меня"

[Тролль]

Рахмеджян Габдрохимович

var r,g,m,s:real;begin write('Angle (rad): '); readln®; r:=r*180/pi; g:=int®; m:=int((r-g)*60); s:=(r-g-m/60)*3600;writeln(g:0:0,'ø',m:0:0,'''',s:0:3,'"'); readlnend.

[Рахмеджян Габдрохимович]

Спасибо вам большое))

Но уже сам решил))

Сейчас над другим думаю

Нужно написать рограмму, котрая выводит на экран изображение секундомера с движущейся секундной стрелкой

[DENZZZ]

Помогите написать прогу, плиз в C++. Формулировка: указать матрицу, максимальный элемент которой минимален.

[abra08]

доброй ночи!!! вот как-то сделал курсач на Pascal, да вот ни как не получается доделать... помогите плиз... уж очень срочно нуна...

задача: сказать какие приблизительно будут оценки в следующей сессии(обязательно по предметам). если выводить только средний балл все работает и очень даже не плохо, а вот как это сделать по предметам ни как не получается... как бы нужно типо разграничить оценки на несколько групп, а затем уже проводить с ними какие-либо манипуляции(вот с этим-то у меня проблема возникла)... помогите кто чем может...

program kursovaia;

uses

crt,graph;

const

x1=15;

y1=15;

x2=345;

y2=215;

strelka=5;

ar=10;

c=20;

type

mn=string[80];

ball=integer;

ballarray=array [1..80] of ball;

var

data:ballarray;

a,med,st,md,prognoz:real;

num,num1,max,min,k:integer;

ch:char;

filename: file of ball;

driver,mode:integer;

{Їа®жҐ¤га  Ўлбва®© б®авЁа®ўЄЁ}

procedure quicksort( var bal:ballarray; flag:integer);

procedure qs(k,r:integer; var bl:ballarray);

var

i,j:integer;

x,y:integer;

begin

i:=k;

j:=r;

x:=bl[(k+r) div 2];

repeat

while bl<x do

inc(i);

while x<bl[j] do

dec(j);

if i<=j then

begin

y:=bl;

bl:=bl[j];

bl[j]:=y;

inc(i);

dec(j);

end;

until i>j;

if k<j then

qs(k,j,bl);

if k<r then

qs(i,r,bl);

end;

begin

qs(1,flag,bal);

end;

{Їа®жҐ¤га  ¬Ґ­о}

function menu:char;

var

ch:char;

begin

writeln;

writeln;

writeln;

repeat

writeln('A.ўўҐбвЁ ¤ ­­лҐ: ');

writeln('B.®вЄалвм д ©« б ¤ ­­л¬Ё: ');

writeln('C.ўлўҐбвЁ ­  нЄа ­: ');

writeln('D.ўлўҐбвЁ Ја дЁЄ: ');

writeln('E.б®еа ­Ёвм : ');

writeln('F.ўл©вЁ: ');

writeln;

writeln;

write('ўўҐ¤ЁвҐ (a,b,c,d,e,f)');

readln( ch );

until ch in ['a','b','c','d','e','f'];

menu:=ch;

end;

{ўлў®¤ ­  нЄа ­}

procedure display (data:ballarray; num:integer);

var

i:integer;

begin

for i:=1 to num do

writeln(i,': ',data);

writeln;

end;

{ўў®¤ ¤ ­­ле}

procedure enter( var data:ballarray);

var

i,k,n,q,j,p,d,t,x:integer;

del:word;

naz:string;

begin

writeln('Є Є п иЄ «  ®жҐ­®Є?');

readln(k);

writeln('бЄ®«мЄ® ўбҐЈ® г ‚ б ®жҐ­®Є Ї® нЄ§ ¬Ґ­ ¬? ');

readln(num1);

repeat

writeln('ўлЎҐаҐвҐ Ї® Є ЄЁ¬ Ё§ ­ Їа ў«Ґ­Ёп¬ е®вЁвҐ § ¤ вм ®жҐ­ЄЁ');

writeln('1.Їа®дЁ«м­лҐ ЇаҐ¤¬Ґвл');

writeln('2.­Ґ Їа®дЁ«м­лҐ, Јг¬ ­Ёв а­лҐ');

writeln('3.­Ґ Їа®дЁ«м­лҐ, вҐе­ЁзҐбЄЁҐ');

writeln('4.ўҐа­гвмбп ў ¬Ґ­о');

readln(del);

case del of

1: begin

writeln('бЄ®«мЄ® г ў б ЇаҐ¤¬Ґв®ў Ї® Їа®дЁ«м­л¬ ЇаҐ¤¬Ґв ¬?');

readln(n);

for q:=1 to n do

begin

writeln('ўўҐ¤ЁвҐ ЇаҐ¤¬Ґв Ї® Є®в®а®¬г Ё§ўҐбв­  ®жҐ­Є :');

readln(naz);

for i:=1 to q do

begin

writeln('ўўҐ¤ЁвҐ ®жҐЄг:');

readln(data[j]);

end;

end;

end;

2:begin

writeln('бЄ®«мЄ® г ў б ЇаҐ¤¬Ґв®ў Ї® ­Ґ Їа®дЁ«м­л¬,Јг¬ ­Ёв а­л¬ ЇаҐ¤¬Ґв ¬?');

readln(n);

for p:=1 to n do

begin

writeln('ўўҐ¤ЁвҐ ЇаҐ¤¬Ґв Ї® Є®в®а®¬г Ё§ўҐбв­  ®жҐ­Є :');

readln(naz);

for d:=1 to p do

begin

writeln('ўўҐ¤ЁвҐ ®жҐЄг:');

readln(data[d]);

end;

end;

end;

3:begin

writeln('бЄ®«мЄ® г ў б ЇаҐ¤¬Ґв®ў Ї® ­Ґ Їа®дЁ«м­л¬, вҐе­ЁзҐбЄЁ¬ ЇаҐ¤¬Ґв ¬?');

readln(n);

for t:=1 to n do

begin

writeln('ўўҐ¤ЁвҐ ЇаҐ¤¬Ґв Ї® Є®в®а®¬г Ё§ўҐбв­  ®жҐ­Є :');

readln(naz);

for x:=1 to t do

begin

writeln('ўўҐ¤ЁвҐ ®жҐЄг:');

readln(data[x]);

end;

end;

end;

end;

until del=4;

{end;

{®ЎкҐ¤Ё­Ґ­ЁҐ 3-Ґе ¬ ббЁў®ў ў ®¤Ё­}

{procedure obed;

var

j,d,x,i,n:integer;

begin}

for i:=1 to n do

begin

for j:=1 to n do

begin

data:=data[j];

for d:=1 to n do

begin

data:=data[d];

for x:=1 to n do

begin

data:=data[x];

end;

end;

end;

end;

repeat

writeln('ўлЎҐаҐвҐ Ї® Є ЄЁ¬ Ё§ ­ Їа ў«Ґ­Ёп¬ е®вЁвҐ г§­ вм ®жҐ­ЄЁ');

writeln('1.Їа®дЁ«м­лҐ ЇаҐ¤¬Ґвл');

writeln('2.­Ґ Їа®дЁ«м­лҐ, Јг¬ ­Ёв а­лҐ');

writeln('3.­Ґ Їа®дЁ«м­лҐ, вҐе­ЁзҐбЄЁҐ');

writeln('4.ўҐа­гвмбп ў ¬Ґ­о');

readln(del);

case del of

1: begin

writeln('бЄ®«мЄ® г ў б Ўг¤Ґв ЇаҐ¤¬Ґв®ў Ї® Їа®дЁ«м­л¬ ЇаҐ¤¬Ґв ¬?');

readln(n);

for q:=1 to n do

begin

writeln('ўўҐ¤ЁвҐ ЇаҐ¤¬Ґв Ї® Є®в®а®¬г е®вЁвҐ г§­ вм ®жҐ­Єг:');

readln(naz);

end;

end;

2:begin

writeln('бЄ®«мЄ® г ў б Ўг¤Ґв ЇаҐ¤¬Ґв®ў Ї® ­Ґ Їа®дЁ«м­л¬,Јг¬ ­Ёв а­л¬ ЇаҐ¤¬Ґв ¬?');

readln(n);

for p:=1 to n do

begin

writeln('ўўҐ¤ЁвҐ ЇаҐ¤¬Ґв Ї® Є®в®а®¬г е®вЁвҐ г§­ вм ®жҐ­Єг:');

readln(naz);

end;

end;

3:begin

writeln('бЄ®«мЄ® г ў б Ўг¤ҐвЇаҐ¤¬Ґв®ў Ї® ­Ґ Їа®дЁ«м­л¬, вҐе­ЁзҐбЄЁ¬ ЇаҐ¤¬Ґв ¬?');

readln(n);

for t:=1 to n do

begin

writeln('ўўҐ¤ЁвҐ ЇаҐ¤¬Ґв Ї® Є®в®а®¬г е®вЁвҐ ®жҐ­Єг:');

readln(naz);

end;

end;

end;

until del=4;

end;

{ўлзЁб«Ґ­ЁҐ б।­ҐЈ® §­ зҐ­Ёп}

function sr(data:ballarray; num:integer):real;

var

i:integer;

k:integer;

begin

k:=0;

for i:=1 to num do

k:=k+data;

sr:=k/num;

end;

{ўлзЁб«Ґ­ЁҐ б⥯Ґ­м Ў«Ё§®бвЁ Є ¦¤®© ®жҐ­ЄЁ Є б।­Ґ¬г §­ зҐ­Ёо}

function stot(data:ballarray; num:integer):real;

var

i:integer;

st,sta:real;

begin

sta:=sr(data,num);

st:=0;

for i:=1 to num do

st:=st+(data-sta)*(data-sta);

st:=st/num;

stot:=sqrt(st);

end;

{Ї®ЁбЄ ®жҐ­®Є, Є®в®алҐ ўбваҐз овбп Ў®«м襥 зЁб«® а §}

function moda(data:ballarray; num:integer):real;

var

i,j,flag,flag1:integer;

mda,moda1:real;

begin

moda1:=0;

flag1:=0;

for i:=1 to num do

begin

mda:=data;

flag:=1;

for j:=i+1 to num do

if mda=data[j] then

flag:=flag+1;

if flag>flag1 then

begin

moda1:=mda;

flag1:=flag;

end;

end;

moda:=moda1;

end;

{Ї®ЁбЄ б।­ҐЈ® §­ зҐ­Ёп Ё§ ўбҐЈ® гЇ®а冷祭­®Ј® ­ Ў®а  ®жҐ­®Є}

function mediana(data:ballarray; num:integer):real;

var

ball1:ballarray;

i:integer;

begin

for i:=1 to num do

ball1:=data;

quicksort(ball1,num);

mediana:=ball1[num div 2];

end;

{Ї®ЁбЄ ¬ ЄбЁ¬ «м­®Ј® §­ зҐ­Ёп}

function maxzn(data:ballarray; num:integer):integer;

var

i:integer;

max:real;

begin

max:=data[1];

for i:=2 to num do

if data>max then

max:=data;

maxzn:=trunc(max);

end;

{Ї®ЁбЄ ¬Ё­Ё¬ «м­®Ј® §­ зҐ­Ёп}

function minzn(data:ballarray; num:integer):integer;

var

i:integer;

min:real;

begin

min:=data[1];

for i:=2 to num do

if data<min then

min:=data;

minzn:=trunc(min);

end;

{ўлў®¤ Ја дЁЄ }

procedure stolb(a,prognoz:real);

var

q,z:integer;

begin

q:=round(a)*20;

z:=round(prognoz)*20;

line(x1,y1,x1,y2);

line(x1,y2,x2,y2);

line(x1,y1,x1+strelka,y1+strelka);

line(x1,y1,x1-strelka,y1+strelka);

outtextxy(strelka,strelka,'10');

line(x2,y2,x2-strelka,y2-strelka);

line(x2,y2,x2-strelka,y2+strelka);

outtextxy(x1-ar,y2-strelka,'0');

setfillstyle(xhatchfill,white);

bar(x1+c*3,z,x1+c*7,y2);

setfillstyle(xhatchfill,lightred);

bar(x1+c*10,q,x1+c*14,y2);

end;

{б®еа ­Ёвм ¤ ­­лҐ}

procedure save(data:ballarray; num:integer);

var

i:integer;

filname:string[80];

temp:integer;

begin

write('ўўҐ¤ЁвҐ Ё¬п д ©« -> ');

readln(filname);

assign(filename,filname);

rewrite(filename);

temp:=num;

write(filename,temp);

for i:=1 to num do

write(filename, data);

close(filename);

end;

{§ Јаг§Ёвм ¤ ­­лҐ}

procedure zagr;

var

i:integer;

filname:string[80];

temp:integer;

begin

write('ўўҐ¤ЁвҐ Ё¬п д ©«  ->');

readln(filname);

assign(filename, filname);

reset(filename);

read(filename, temp);

num:=trunc(temp);

for i:=1 to num do

read(filename, data);

close(filename);

end;

{®б­®ў­ п Їа®Ја ¬¬ }

begin

clrscr;

repeat

ch:=upcase(menu);

case ch of

'A': enter(data);

'B': zagr;

'C': begin

display(data,num);

begin

writeln;

writeln;

writeln;

max:=maxzn(data,num);

min:=minzn(data,num);

a:=sr(data,num);

med:=mediana(data,num);

st:=stot(data,num);

md:=moda(data,num);

prognoz:=a+sqrt(sqrt(st));

writeln('¬Ё­Ё¬ «м­ п ®жҐ­Є : ',min);

writeln('¬ ЄбЁ¬ «м­ п ®жҐ­Є : ',max);

writeln('б।­ҐҐ §­ зҐ­ЁҐ: ',a:2:3);

writeln('б।­ҐҐ §­ з ­ЁҐ Ё§ ўбҐе ®жҐ­®Є : ',med:2:3);

writeln('б⥯Ґ­м Ў«Ё§®бвЁ ®жҐ­®Є Є б।­Ґ¬г §­ зҐ­Ёо: ',st:2:3);

writeln('®жҐ­ЄЁ, Є®в®алҐ ўбваҐз овбп Ў®«м襥 Є®«ЁзҐбвў® а §: ',md:2:3);

if prognoz>max then

begin

prognoz:=max;

writeln('Їа®Ј­®§Ёа㥬 п ®жҐ­Є : ',prognoz:2:3);

end

else

begin

writeln('Їа®Ј­®§Ёа㥬 п ®жҐ­Є : ',prognoz:2:3);

writeln;

writeln;

end;

end;

end;

'D':begin

initgraph(driver,mode,'');

repeat

stolb(a,prognoz);

until keypressed;

end;

'E':save(data,num);

end;

until ch='F';

end.

[abra08]

вот файл с тем, что уже сделал.

kursovaya.rar

kursovaya.rar

[Darth Emil]

Помогите пожалуйста с Delphi.

Нужно чтобы программа искала текст в html-файлах, лежащих в одной папке. Выводила их в листбокс и при нажатии на имя файла в листбоксе подгружала в встроенный браузер и подсвечивала нужный текст. И нужна функция поиска в интернете.

[Teddy_Bear]

Ищет локально, ищет в тексте хтмл-ки, но включая служебные слова. Выделение не сделал. Функция поиска в интернете это что? Загуглить или найти по известному адресу? Встроенный браузер понял как TWebBrowser.

Delphi 7. SS.rar

Насчет выделения. Приходит на ум создание копии html с измененным текстом тегами и загрузку уже её. Но надо городить отсев служебных слов и слов в скриптах и т.п., а это муторно (лениво мне, сорри).

SS.rar

Изменено 5 июня, 2011 пользователем Teddy_Bear

[Teddy_Bear]

SS2.rar

Добавил выделение. Жду комментария насчет поиска в интернете до вторника. Потом смываюсь ... :)

SS2.rar

[Darth Emil]

Да, поиск в интернете - именно загуглить.

Программа не работает - не ищет текст на русском языке. Да и на английском тоже.

Изменено 6 июня, 2011 пользователем Darth Emil

[Teddy_Bear]

Проверил - работает. Работать должно железно - в листбокс выводить. Сделал тупо и прямо как текстовой файл. Именно поэтому ищет даже служебные слова. Должно работать даже на первой Дельфе :) и без IE.

Нужно выбрать папку с html-ками. Для контроля сделал список файлов видимым.

SS.rar

SS.rar

Изменено 6 июня, 2011 пользователем Teddy_Bear

[Teddy_Bear]

SS.rar

Сделал поиск введенного шаблона текста через функцию WebBrowsera GoSearch, но она кидает к Windows Live, (надо понимать поиск Bing от M$) а там регистрироваться надо раз до поиска... поэтому недопроверял. Попробую подцепить именно Гуглопоиск. Хотя WebBrowser - это кусок IE и вряд ли монополист пустит к конкуренту.

Не знаю - а зачем поиск? Проще запустить Мозиллу и ручками. Хотя, походу, это уже я не хочу признать поражение.

Может можно изменить задачу? Ну или поиск через Bing. Как-то так.

SS.rar

Изменено 6 июня, 2011 пользователем Teddy_Bear

[Darth Emil]

Не ищет в папке.

[Riki_Tiki_Tavi]

Объясните пожалуйста мне все функции в задаче

#include<stdio.h>

#include<conio.h>

#include<string.h>

#include<stdlib.h>

typedef struct inform

{

char prizv[20];

int rik;

} vid;

void stvor(vid*z)

{

printf("Vvedit prizv\n");

scanf("%s",z->prizv);

printf("Vvedite vik\n");

scanf("%d",&z->rik);

printf("___________________\n");

}

typedef struct elem

{

vid dani;

struct elem*next;

} element;

typedef element*ptr;

ptr AddElem(ptr head,vid elem)

{

ptr x;

x=(ptr)malloc(sizeof(element));

x->dani=elem;

x->next=head;

head=x;

return head;

}

ptr DelElemV(ptr head)

{

ptr x;

x=head;

head=head->next;

free(x);

return head;

}

int main()

{

vid z;

char filename[20];

ptr head;

head=NULL;

FILE*f;

printf("Vvedit ima faily\n");

gets(filename);

printf("\n");

f=fopen(filename,"wb");

stvor(&z);

while(strcmp(z.prizv,"#")!=0)

{

fwrite(&z,sizeof(vid),1,f);

stvor(&z);

}

fclose(f);

f=fopen(filename,"rb");

while(!feof(f))

{

fread(&z,sizeof(vid),1,f);

printf("%s----",z.prizv);

printf("%d\n",z.rik);

}

fclose(f);

f=fopen(filename,"rb");

fread(&z,sizeof(vid),1,f);

head=AddElem(head,z);

while(!feof(f))

{

fread(&z,sizeof(vid),1,f);

if(head->dani.rik<z.rik)

{

// while(head!=NULL)

head=DelElemV(head);head=AddElem(head,z);

}

}

fclose(f);

ptr p;

p=head;

while(p!=NULL)

{

printf("----naystarshiy-----------------\n");

printf("%s %d\n",p->dani.prizv,p->dani.rik);

p=p->next;

}

getch();

return 0;

}

[Ray]

Запросто. Керниган, Ричи. Язык C

[Riki_Tiki_Tavi]

Запросто. Керниган, Ричи. Язык C

остроумно))

[Teddy_Bear]

Не ищет в папке.

В окне выбора папки выбираем папку. (При необходимости выбираем привод С или D ...) Под окном отражается название текущей папки. В зеленом окне отображаются все файлы *.html в этой папке.

Вводим шаблон поиска текста в этих файлах.

Нажимаем кнопку поиска "Найти". В листбоксе отображается список всех файлов, в которых есть шаблон.

Двойным кликом выделяем в листбоксе файл. В WebBrowsere появляется html-ка.

Нажимаем вторую кнопку "Выделить". Строка с шаблоном отмечается синим цветом.

Нажимаем третью кнопку - переходим к службе MS Windows Live для поиска. (Требует однократной регистрации на данном компьютере).

В каком месте не ищет?

(Ищет только html, htm не ищет, что поправляется легко)

[Teddy_Bear]

SS.rar

Теперь ищет и в html и в htm файлах. Зарегистрировался в Windows Live, но GoSearch не ищет, а лезет реклама какая-то. Короче (windows must die!), М$ и тут изуродовала команду.

SS.rar

[Ray]

остроумно))

Дай голодающему удочку, а не рыбу.

[Teddy_Bear]

Дай голодающему удочку, а не рыбу.

Дай утопающему книжку "Научись плавать за 21 день", а не подай руку.

SS.rar

Есть Гуглопоиск! Просто Navigate на русский Гугл и в командной строке параметры поиска в кодировке win1251.

У меня Win XP. На 7-ке не проверял.

SWeb.rar

Экзешник. Проверьте, люди добрые. Может только у меня работает.

Засим откланиваюсь до 20 июня. ...

Wow! I can see my house ...

:)

SS.rar

SWeb.rar

[Ray]

Дай утопающему книжку "Научись плавать за 21 день", а не подай руку.

Одесса. Лето. С моря раздаются крики: "HELP!! HEEEEELP!!!"

По набережной идут двое. Один из них, услышав это, говорит другому:

- Да, когда вся Одесса училась плавать, Изя учил английский...

Уж простите за оффтоп, умолкаю.

[Darth Emil]

В нете ищет, а в папке нет. А где исходник?

[Teddy_Bear]

В нете ищет, а в папке нет. А где исходник?

Самолет (чартер) перенесли на завтра. Топливо экономят. Зато полечу через Барселону с возможностью вылазки в город.. Залезу на крышу Падреры.

Исходники в SS.rar

В SWeb.rar экзешник.

Может html-ки у тебя прессованные? В таких не будет искать. Проверь блокнотом.

Win XP. На Win 7 не проверял.

[Darth Emil]

Все, уже сделал.

Код такой:

procedure TForm1.Button1Click(Sender: TObject);vari: Integer;ts: String;fs: TSearchRec;beginListBox1.Clear;if FindFirst(getcurrentdir+'\data\lessons\*.htm',faAnyFile,fs) = 0 then begin repeat ts := fs.Name; WebBrowser1.Navigate(getcurrentdir+'\data\lessons\'+ts);while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;for i := 0 to WebBrowser1.OleObject.Document.All.Length - 1 do begin if AnsiPos(AnsiLowerCase(Edit1.Text), AnsiLowerCase(WebBrowser1.OleObject.Document.All.Item(i).InnerText)) <> 0 then   begin   ListBox1.Items.Add(ts);   Break;   end; end;until FindNext(fs) <> 0;FindClose(fs);end;end;

Плюс такаяподсветка синтаксиса. Спасибо за поиск в Интернете! :cool:

Изменено 8 июня, 2011 пользователем Darth Emil

[kolec]

помогите бедному студенту=)

Составьте программу вычисления суммы положительных элементов матрицы A.

Составьте программу вычисления произведения отрицательных элементов матрицы B.

Составьте программу вычисления суммы элементов второй строки матрицы C.

Составьте программу вычисления суммы отрицательных элементов матрицы A.

Составьте программу вычисления произведения положительных элементов матрицы B.

Составьте программу вычисления суммы элементов третьего столбца матрицы C.

Составьте программу вычисления суммы четных элементов матрицы A.

Составьте программу вычисления произведения элементов матрицы В, кратных 3.

Составьте программу вычисления суммы элементов главной диагонали матрицы C.

P.S нужно написать на паскале

Составьте программу вычисления суммы нечетных элементов матрицы A.

Составьте программу вычисления произведения элементов матрицы B, кратных 5.

Составьте программу вычисления суммы элементов боковой стороны матрицы C.

Изменено 28 июня, 2011 пользователем kolec

[Irina20]

Помогите решить задачу на С++ Дано предложение, слова в котором разделены пробелами, а в конце стоит точка. Заменить порядок слов в предложении на обратный.