Здесь можно задавать любые вопросы по программированию, включая учебные задачи. По объемным задачам, требующим длительных объяснений и много строк кода, будут высказаны только идеи решения. Практически 100% гарантия, что здесь помогут, если вы к условию задачи добавите свои попытки решения.
не могли би ви помочь найти ошибки в паскаль абц
Program Sora;
uses
graphABC, ABCObjects, ABCButtons, crt;
var
x,y:integer;
cl,j,k,kk,kut1, kut2: integer;
b1, b2, b3, b4, bn: ButtonABC;
procedure MainWindow; forward;
procedure bClick;
begin
ClearWindow;
b1.Destroy;
b2.Destroy;
ClearWindow(RGB(219, 219, 219));
bn := new ButtonABC(10, 2, 100, 27, '<Меню', clBlue);
bn.OnClick := MainWindow;
end;
procedure b2Click;
begin
ClearWindow;
b1.Destroy;
b2.Destroy;
ClearWindow(clPink);
SetFontColor(clPurple);
SetFontSize(12);
TextOut (20, 35, 'Світло, падаючи на предмети, спричинює зорове відчуття, що дає змогу бачити ці предмети; світло');
TextOut (20, 55, 'проявляє нагрівання поверхонь. Отже світло має енергію і переносить її в просторі. Так як енергію');
TextOut (20, 75, 'можуть переносити або матеріальні частинки або хвилі, то виникло дві гіпотези про природу світла:');
TextOut (20, 95, 'Світло – це потік найдрібніших частинок, або світло –потік хвиль На основі першої гіпотези Ньютон');
TextOut (20, 115,'створив корпускулярну (частинкову) теорію світла. За теорією світло –це потік частинок –корпускул,');
TextOut (20, 135,'що мають різну форму, поширюються в рiзному середовищі. На основі другої гіпотези голландський');
TextOut (20, 155,'вчений Х. Гюйгенс створив хвильову теорію світла. За теорією світло представляє собою потік');
TextOut (20, 175,'поперечних хвиль, які поширюються в певному середовищі. Кожна з теорій пояснювала ряд ');
TextOut (20, 195,'властивостей світла, але кожна мала певні недоліки, так як не могла пояснити деяких понять і явищ.');
TextOut (20, 215,'Так корпускулярна теорія не могла пояснити явищ інтерференції і дифракції світла, а хвильва не могла');
TextOut (20, 235,'пояснити, як світло поширюється у вакуумі, по скільки поперечна механічна хвиля не може поширюватись');
TextOut (20, 255,'при відсутності середовища. Згідно створеної Д. Максвелл теорії електромагнітних хвиль і визначення');
TextOut (20, 275,'їх швидкості, він висунув гіпотезу, що світло – це теж електромагнітна хвиля. Ця гіпотеза була повністю');
TextOut (20, 295,'підтверджена багатьма дослідами. Так виникла електромагнітна теорія світла. Випромінювання');
TextOut (20, 315,'електромагнітних хвиль відбувається під час вимушених коливань електронів у коливальних контурах.');
TextOut (20, 335,'За допомогою електричних коливальних контурів можна дістати електромагнітні хвилі, частота яких');
TextOut (20, 355,'досягає 1012 Гц. Детальне вивчення електромагнітних хвиль показало, що під час коливання атомів');
TextOut (20, 375,'і молекул виникають електромагнітні хвилі, частота яких значно перевищує частоту хвиль, які');
TextOut (20, 395,'одержують за допомогою коливальних контурів. Ці хвилі дістали назву світлових хвиль. При переході');
TextOut (20, 415,'світлового випромінювання з одного середовища в інше, його колір зберігається, бо зберігається його');
TextOut (20, 435,'частота, а довжина хвилі змінюється внаслідок зміни швидкості поширення світла. Питання про');
TextOut (20, 455,'швидкість поширення світла є одним з найбільш важливих, принципових питань всієї фізики. Оскільки');
TextOut (20, 475,'швидкість світла – дуже велика, воно затрачає помітний час лише на подолання великих відстаней.');
TextOut (20, 495,'Кілька років тому, скориставшись лазерним випромінюванням, вчені визначили швидкість світла');
TextOut (20, 515,'с=(299792456±1,1) Так як світло – це електромагнітна хвиля, то швидкість поширення його залежить');
TextOut (20, 535,'від роду середовища і визначається формулою :u=1/ Ö m с e с. Речовини, в яких може поширюватися');
TextOut (20, 555,'світло, є діелектриками.');
SetPenColor(clLightGreen);
SetBrushColor(clLightBlue);
rectangle(0, 0, 800, 31);
bn := new ButtonABC(10, 2, 100, 27, '<Меню', clBlue);
bn.OnClick := MainWindow;
end;
procedure b3Click;
begin
ClearWindow;
b1.Destroy;
b2.Destroy;
ClearWindow(RGB(219, 219, 219));
SetPenColor(clLightGreen);
SetBrushColor(clLightBlue);
rectangle(0, 0, 800, 31);
bn := new ButtonABC(10, 2, 100, 27, '150*kut1) or (y<150) ;
cl:=(kut1+4);
elektron(x,y,cl);
ustanovka;
until (kk=80) or (keypressed);
end;
procedure b4Click;
begin
ClearWindow;
b1.Destroy;
b2.Destroy;
ClearWindow(RGB(219, 219, 219));
SetPenColor(clLightGreen);
SetBrushColor(clLightBlue);
rectangle(0, 0, 800, 31);
bn := new ButtonABC(10, 2, 100, 27, '<Меню', clBlue);
bn.OnClick := MainWindow;
SetPenWidth(2);
line(86,540,156,490);
line(100,560,170,510);
circle(93,550,12);
Arc(163,500,12,-55,125);
line(350,350,350,450);
line(200,300,200,400);
line(350,350,200,300);
line(350,450,200,400);
line(312,357,312,417);
line(302,353,302,413);
line(302,353,312,357);
line(302,413,312,417);
line(237,332,237,392);
line(247,336,247,396);
line(237,332,247,336);
line(237,392,247,396);
line(200,50,500,150);
line(200,200,500,300);
line(200,50,200,200);
line(500,150,500,300);
SetPenWidth(5);
SetPenColor(clGreen);
Sleep(205);
Arc(163,500,50,-35,105);
Sleep(255);
Arc(163,500,90,-35,105);
Sleep(255);
Arc(163,500,130,-35,105);
Sleep(255);
Arc(163,500,170,-35,105);
Sleep(255);
Arc(240,300,1,0,150);
Arc(310,320,1,0,150);
Sleep(255);
Arc(240,300,10,0,150);
Arc(310,320,10,0,150);
Sleep(255);
Arc(240,300,50,0,150);
Arc(310,320,50,0,150);
Sleep(255);
Arc(240,300,90,0,150);
Arc(310,320,90,0,150);
Sleep(255);
Arc(240,300,130,0,150);
Arc(310,320,130,0,150);
Sleep(255);
Arc(310,320,170,0,150);
Arc(240,300,170,0,150);
end;
procedure MainWindow;
begin
if bn nil then
bn.Destroy;
SetWindowSize(800, 600);
Window.IsFixedSize := true;
ClearWindow(RGB(219, 219, 219));
SetPenColor(clLightGreen);
SetBrushColor(clLightBlue);
Rectangle(0, 0, 800, 31);
SetFontSize(40);
SetFontColor(clblue);
SetFontStyle(fsNormal);
SetBrushColor(RGB(219, 219, 219));
TextOut(50, 50, 'Меню');
b1 := new ButtonABC(680, 550, 3, 3, '.', clBlue);
b2 := new ButtonABC(250, 150, 300, 50, 'Теорiя', clPink);
b3 := new ButtonABC(250, 250, 300, 50, 'Як електрони ведуть себе у станi кульок', clBlue);
b4 := new ButtonABC(250, 350, 300, 50, 'Як електрони ведуть себе у станi хвиль', clBlue);
b1.OnClick := bClick;
b2.OnClick := b2Click;
b3.OnClick := b3Click;
b4.OnClick := b4Click;
end;
begin
MainWindow;
end.
что выдает компилятор
одна из ошибок - не полный код. не хватает кода electron, а вызов есть: elektron(x,y,cl);
Помогите пожалуйста задачу на СИ #!!!В массиве целых чисел с количеcтвом элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них????))))
int imax=0;
int cmax=0;
for (int i=0; i < n; i++) if (a[i]==a[imax]) cmax++; int count; for (int i=1; i < n; i++) { count=0; for (int j=0; j < n; j++) if (a[i]==a[j]) count++; if (count>cmax || (count==cmax && a[imax] > a[i]))
{ cmax=count; imax=i; }
}
Console.WriteLine(a[imax]);
Извините пытаюсь разобраться с переменными что есть что? Объясните пожалуйста
что такое count, imax, cmax
imax - номер такого элемента, который встречается наибольшее число раз НА ДАННЫЙ МОМЕНТ, то есть из тех что уже просмотрели. cmax - это сколько раз он встречается. count - для подсчета сколько раз встречается элемент который сейчас анализируем. когда проанализировали - сравниваем count и cmax
спасибо огромное
Реши пожалуйста.
1)перевести число из 4-ричной системы счисления в 18-ричную и наоборот
2)дан массив из n элементов. Найти в нем количество элементов, оканчивающихся на 50 вывести их сумму.
3) удалить в предложении лишние открывающиеся или закрывающиеся скобки подсчитать количество удалений.
4) определить функцию для вычисления количества букв "е" в слове. Подсчитать количество букв "е" в 4 словах введенных с клавиатуры. вывести слово с минимальным количеством "е"
какой язык программирования
C++
CodeBlocks
2)
int main()
{
int* a;
int n;
cin >> n;
a=new int [n];
for (int i = 0; i < n; i++) { cout<<" input a[ "<< i << " ]: "; cin>>a[i];
}
int sum=0;
int count = 0;
for (int i=0 ; i < n; i++ ) { if (a[i]%100 == 50 ) { count++; sum+=a[i]; } } cout<<"count = "<< count << endl; cout<<"sum = " << sum << endl; delete [] a; return 0; }
спасибо
пожалуйста сделай 4. Буду очень благодарен.