Как-то так, если условие правильно понял )) Code: var x1,x2:integer; y:real; begin write('x1='); readln(x1); write('x2='); readln(x2); y:=sqrt((sqr(x1)+x1/x2)(16*x2*x1); writeln('y=',y); end. Ну, а если на Дельфи, то сделаешь 2 edit и кнопку. В событии кнопки напишешь Code: x1:=strtoint(edit1.Text); x2:=strtoint(edit2.Text); y:=sqrt((sqr(x1)+x1/x2)(16*x2*x1); // и выведешь y куда нибудь
Помогите срочно написать функцию заполнения массива следующим образом 1414 2323 3232 4141 на СИ очень срочно и обяснить
#include<iostream.h> void main() { int arr[4][4]; for(int i=0;i<4;i++) { int m=1;int a=4; cout<<"\n"; if(i%2==0) { for(int j=0;j<4;j++) { arr[j]=m++; cout<<arr[j]<<" "; } } else { for(int j=4;j>0;j--) { arr[j]=a--; cout<<arr[j]<<" "; } } } } вот программа только неправельно выводит помогите должно 1414 2323 3232 4141
Кароче C++ не знаю, но могу подсказать алгоритм! делаешь k=1 и n=порядку матрицы! если столбец будет четным то его значение будет равно n, если не четный, то k после заполнения строки, во внешнем цикле делаешь k=k+1 и n=n-1 и все! сорри если не помог мысленно))
держи! Code: void main() { int arr[4][4]; for(int j=0;j<4;j++) { int b=1; if(j%2==0) { for(int i=0;i<4;i++) { arr[j][i]=b++; } } else { for(int i=3;i>=0;i--) { arr[j][i]=b++; } } } for(int j=0;j<4;j++) { printf("\n"); for(int i=0;i<4;i++) { printf("%d ",arr[i][j]); } } getch(); }
вычислить радиус описанного круга вокруг треугольника со сторонами a b c visual basic кароче командную кнопку код написать нужно чтоб формулe просчитало R=a*b*c/(4*p*(p-a)(p-b)(p-c)^0.5 при p=(a+b+c)/2 а=3 б=3 с=4 а б с у меня в лейбах... Помогите плиз, ато я нуб(((
че то в этом духе! смотря куда тебе выводить надо... public function asdf() dim a,b,c,p,r as integer a=3 b=3 c=4 p=(a+b+c)/2 R=a*b*c/((4*p*(p-a)*(p-b)*(p-c))^0.5) msgbox(Cstr(Round(R,2))) end function во подредактировал что б лучше смотрелось
Далее приведен код написанный на Borland C++ но работать не хочет, выдаёт что типа ошибка где то в LRESULT, помогите разобраться... Code: #include <windows.h>//Два файла с определениями, макросами #include <windowsx.h>//и прототипами функций Windows LRESULT CALLBACK WndProc(HWND,UINT,WPARAM,LPARAM); /*Главная функция WinMain*/ int WINAPI WinMain(HINSTANCE hInst,HINSTANCE hInst1, LPSTR str ,int in){ char szClassName[]="MainWindow";//Имя класса главного окна char szTitle[]="Лабораторная работа 2";//Заголовок окна MSG msg;//Структура msg для получения сообщений Windows WNDCLASS wc;//Структура wc для задания характеристик окна /*Зарегистрируем класс главного окна*/ ZeroMemory (&wc,sizeof(wc));//Обнуление всех членов wc wc.lpfnWndProc=WndProc;//Определяем оконную процедуру wc.hInstance=hInst;//Дескриптор приложения wc.hIcon=LoadIcon(NULL,IDI_APPLICATION);//Пиктограмма wc.hCursor=LoadCursor(NULL,IDC_ARROW);//Курсор мыши wc.hbrBackground=CreateSolidBrush(RGB(255,0,255));;//Белый фон wc.lpszClassName=szClassName;//Имя класса окна wc.style = CS_NOCLOSE; RegisterClass(&wc);//Собственно регистрация класса окна /*Создадим главное окно и сделаем его видимым*/ HWND hwnd=CreateWindow(szClassName,//Класс окна szTitle, WS_OVERLAPPEDWINDOW|WS_EX_TOPMOST,//Заголовок, стиль окна 10,10,300,100, //Координаты, размеры HWND_DESKTOP,NULL,//Родитель, меню hInst,NULL);//Дескриптор приложения, параметры ShowWindow(hwnd,SW_SHOWNORMAL);//Покажем окно /*Организуем цикл обработки сообщений*/ while(GetMessage(&msg,NULL,0,0))//Получить сообщение, DispatchMessage(&msg);//вызвать WndProc return 0;//После выхода из цикла вернуться в Windows }//Конец функции WinMain /*Оконная функция WndProc главного окна*/ LRESULT CALLBACK WndProc(HWND hwnd,UINT msg, WPARAM wParam,LPARAM lParam){ switch(msg){//Переход по значению msg – номеру сообщения case WM_DESTROY://При закрытии приложения пользователем PostQuitMessage(0);//Завершим приложение return 0;//Возврат в Windows default://Остальные сообщения обработать по умолчанию return(DefWindowProc(hwnd,msg,wParam,lParam)); }//Конец оператора switch }//Конец функции WndProc
Привет. Низнаю точно сюда или нет(извеняюсь если не сюда), нужно срочно прогу на eclipse зделать(на уровне 3 курса, несложная) есть задание и есть пример как оно должно выглядеть, надо просто пример переделать под задачу и все Где не прошу, никто не отзывается. Я предлогаю за wmr, яндекс-деньги, или Ваш вариант... Чем скорее тем лучше. Кто разбирается в Eclipse отпишите или тут в пм или icq: 575-482-7О4(вместо О = ноль) Скину задание, если возьметесь скину пример. Надеюсь на помощ...
Помогите, пожалуйста, написать программу для курсового проекта по МПС на ассемблере! y=x3+x-8 P.S. x3 - x в кубе Заранее спасибо!
да, вы правы извиняюсь, просто с украинского на русский переводила в переводчике, и как-то пропустила мимо эту огрешность да, спасибо, я тоже задавалась тем же вопросом, да и задаваемый массив по себе тож не обязательно 10 элементов имеет, но вроде разобралась, мне код помогли написать...так что пасибки)
Пожалуйста помогите подректировать программу на С! Задание Массив Удалить:Все элементы с нечетными индексами; Добавить К элементов в начало массива; Сдвинуть циклически на M элементов влево #include <stdio.h> #include <conio.h> #include <stdlib.h> void main() { clrscr(); const int MAX_SIZE=100; int mas[MAX_SIZE]; int n,i,j,k; printf("\nVvedite stroku,MAX_SIZE\nn="); scanf("%d",&n); for(i=0;i<n;i++) { mas=rand()%100-50; printf("[%d] ",mas); } printf("\nishodnii massiv:\n"); for(i=0;i<n;i++) printf("[%d] ",mas); for(i=0;i<n;i++) if(i%2==0) for(j=i;j<n-1;j++) mas[j]=mas[j+1]; n--; printf("\nishodnii massiv posle udalenia nechetnih elementov:\n"); for(i=0;i<n;i++) printf("[%d] ",mas); printf("\nVvedite kol-vo elementov,kotorii\nvi hotite vesti v nachalo massiva k="); scanf("%d",&k); n+=k; for(i=n-k;i>k;i--) mas=mas[i-k]; printf("\nPreobrazovanii massiv:\n"); for(i=0;i<n;i++) printf("[%d] ",mas); int m=0, tmp; printf("\nVvedite kol-vo na skolko sdvigat m="); scanf("%d",&m); while(m!=0) { tmp=mas[0]; for(i=0;i<n;i++) { mas=mas[i+1]; } mas[n]=tmp; m--; } printf("Sdvinutii massiv:\n"); for(i=0;i<n;i++) printf("[%d] ",mas); getch(); }
Ребята, помогите, срочно нужна помощь, нужно написать прогу в Delphi. Заранее спасибо ! Повтор слов. В текстовое поле пользователь вводит строку, состоящую из слов, разделенных любым количеством пробелов и знаков препинания. Напишите программу, которая редактирует этот текст, удаляя слова и символ пробела, встречающийся подряд более, чем один раз. Отредактированный текст помещается в надпись.
DJeFRY_RASH..уточните пожалуйста какие ограничения на длину строки? Регистрочувствительный? И как понять "Отредактированный текст помещается в надпись."?
Soherox, ограничений нет, но допустим максимум 255, нерегистрочувствительный. Готовый ответ, засовываем допустим в текстовое поле Label.
DJeFRY_RASH...потестил, вроде работает, но как говорится вроде...если что, могу исходник кинуть Code: const n = 10000; var Form1: TForm1; a: string; lin: array [1..n] of shortstring; kol, lenn: integer; implementation {$R *.dfm} function check(f: string; var kol2: integer; len: integer): boolean; var i: integer; ok: boolean; begin ok:=false; for i:=1 to kol do if f = lin[i] then begin delete(a, kol2 - len, len); dec(kol2, len); dec(lenn, len); ok:=true; break; end; if not ok then begin inc(kol); lin[kol]:=f; end; end; procedure TForm1.Button1Click(Sender: TObject); var i: integer; f: shortstring; begin a:=Edit1.Text; for i:=1 to kol do lin[i]:=''; i:=1; kol:=0; f:=''; a:=a+' '; lenn:=length(a); while i <= lenn do begin if a[i] in ['A'..'Z', 'a'..'z'] then f:=f + a[i] else if (a[i] in [',', '.', '!', ';', ':', ' ']) then begin check(f, i, length(f)); f:=''; if a[i] = ' ' then if a[i-1] = ' ' then begin delete(a, i-1, 1); dec(i); dec(lenn); end; end; inc(i); end; Edit2.Text:=a; end; end.
Программа работает не полностью. Помогите мне понять почему данная прога шифрует только текст ПРИВЕТ с ключом КЛЮЧ (методом Вижинера). Она должна шифровать любой текст как по заданию. вот код: Code: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, ComCtrls, ExtCtrls, XPMan; const Lmax=100; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; StringGrid1: TStringGrid; Button3: TButton; Edit2: TEdit; Button4: TButton; Edit3: TEdit; Edit4: TEdit; Label2: TLabel; XPManifest1: TXPManifest; procedure Button3Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure Button4Click(Sender: TObject); procedure FormActivate(Sender: TObject); procedure Edit4Change(Sender: TObject); procedure Edit4KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; type TArr=array[1..Lmax] of integer; Tmar=array[1..Lmax] of integer; var Form1: TForm1; a: SET of 1..255; shifr:array[1..Lmax] of char; b: SET of 1..Lmax; str1,str2:string; i1,j1,k1:integer; password:TArr; implementation {$R *.dfm} procedure TForm1.Button3Click(Sender: TObject); var str, S,t: String; lk,jjj: Integer; begin Button4.Enabled:=true; str:=Edit1.Text; S:=''; LK:=1; i1:=1; begin For k1:=1 to Length(EDIT1.Text) do BEGIN FOR J1:=1 TO 32 DO IF STR[I1]=StringGrid1.Cells[j1,0] THEN begin S:=S+StringGrid1.Cells[J1,LK]; Inc(i1); LK:=lk+1; break; END; If lk=Length(EDIT4.Text)+1 then lk:=1; END; end; Edit2.Text:=S; end; procedure TForm1.Edit1Change(Sender: TObject); begin If edit1.Text='' then Button3.Enabled:=false else Button3.Enabled:=true; Button4.Enabled:=false; edit2.Text:=''; edit3.Text:=''; end; procedure TForm1.Button4Click(Sender: TObject); var str, S: String; lk,jjj: Integer; begin str:=Edit2.Text; S:=''; LK:=1; i1:=1; begin For k1:=1 to Length(EDIT1.Text) do BEGIN FOR J1:=1 TO 32 DO IF STR[I1]=StringGrid1.Cells[J1,LK] THEN begin S:=S+StringGrid1.Cells[j1,0]; Inc(i1); LK:=lk+1; break; END; If lk=Length(EDIT4.Text)+1 then lk:=1; END; end; Edit3.Text:=S; end; procedure TForm1.FormActivate(Sender: TObject); begin J1:=1; FOR I1:=ORD('А') TO ORD('Я') DO BEGIN StringGrid1.Cells[J1,0]:=CHR(I1); J1:=J1+1; end; Edit4Change(sender); Edit1Change(sender); end; procedure TForm1.Edit4Change(Sender: TObject); var str :string; kol:integer; begin For i1:=1 to length(edit4.text) do begin StringGrid1.Cells[0,i1]:=Edit4.text[i1]; StringGrid1.RowCount:=length(edit4.text)+1; J1:=1; iF StringGrid1.Cells[0,I1]<>'А' THEN begin str:=StringGrid1.Cells[0,I1]; kol:=32-(Ord('Я')-ord(str[1])+1); For k1:=kol to 31 do begin StringGrid1.Cells[j1,I1]:=chr(192+K1); j1:=J1+1; end; For k1:=0 to KOL do begin StringGrid1.Cells[j1,I1]:=chr(192+K1); j1:=J1+1; end; END ELSE For J1:=1 to 32 do begin StringGrid1.Cells[j1,I1]:=chr(192+J1); end; end; end; procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char); begin if not (key in ['А'..'Я',#8]) then key:=#0; end; end.
