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

[temich5000]

temich5000:

У тебя приведена только часть программы, так что неясно, что делается в остальной ее части, но кнопка "=" тогда не должна делать сброс запомненной операции. Запомненная операция и введенное в b число при нажатии этой кнопки должны оставаться неизменными, а значение a должно меняться на s. Тогда при повторном нажатии "=" операция повторится уже с новым значением a.

chibi:

var i,j,m,n:integer; a:array[1..25,1..25]of real; b:array[1..25]of integer; beginwriteln('Введите размерности матрицы (через пробел) N M : '); readln(n,m);for i:=1 to n dobegin writeln('Введите элементы ',i,'-й строки, разделяя пробелами'); for j:=1 to m do read(a[i,j]); readln;end;for i:=1 to n do begin b[i]:=0; for j:=1 to m do if a[i,j]<0 then inc(b[i]) end; writeln('Result:'); for i:=1 to n do write(b[i]:4); writeln; readln end.

ой прошу прощения

случайно продублировал сообщение

[chibi]

Спасибо большое

[eXoule]

Помогите решить задачи,срочно нужно.дано натуральное Число n получить последовательность b1.....bn, где при i=1,2 ....n значение b1 равно:1+1/2+....+1/i;

[eXoule]

Если не лень помогите и с этой задачкой.Даны действительная матрица размера m x n. Определить числа b1........bn,равные соответственно:значениям средних арифметических элементов строк.

[temich5000]

Прошу прощения что выкладываю столь большой код.

Но я так и не понял как сделать чтобы

например 12+3=15 и при нажатии ещё раз копки равно высвечивалось бы число 18

или 12/3=4 и при нажатии ещё раз копки равно высвечивалось бы число 1,3333333333

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

Code

adouble a,s,b;

Boolean g, l, m, n;

char Zap = '0';

private void button1_Click(object sender, EventArgs e)(кнопка 7)

{

textBox1.Text = textBox1.Text + "7";

}

private void button2_Click(object sender, EventArgs e) (кнопка 8)

{

textBox1.Text = textBox1.Text + "8";

}

private void button3_Click(object sender, EventArgs e) (кнопка 9)

{

textBox1.Text = textBox1.Text + "9";

}

private void button4_Click(object sender, EventArgs e) (кнопка 4)

{

textBox1.Text = textBox1.Text + "4";

}

private void button5_Click(object sender, EventArgs e) (кнопка 5)

{

textBox1.Text = textBox1.Text + "5";

}

private void button6_Click(object sender, EventArgs e) (кнопка 6)

{

textBox1.Text = textBox1.Text + "6";

}

private void button7_Click(object sender, EventArgs e) (кнопка 1)

{

textBox1.Text = textBox1.Text + "1";

}

private void button8_Click(object sender, EventArgs e) (кнопка 2)

{

textBox1.Text = textBox1.Text + "2";

}

private void button9_Click(object sender, EventArgs e) (кнопка 3)

{

textBox1.Text = textBox1.Text + "3";

}

private void button10_Click(object sender, EventArgs e) (кнопка «,»)

{

if (Zap == '0')

{

textBox1.Text = textBox1.Text + ",";

Zap = '1';

}

else textBox1.Text = textBox1.Text;

}

private void button11_Click(object sender, EventArgs e) (кнопка 0)

{

textBox1.Text = textBox1.Text + "0";

}

private void button12_Click(object sender, EventArgs e) (кнопка c)

{

textBox1.Text = ""; Zap = '0';

}

private void button13_Click(object sender, EventArgs e) (кнопка +)

{

a = Convert. ToDouble (textBox1.Text);

textBox1.Text = "";

g = true;

Zap = '0';

}

private void button14_Click(object sender, EventArgs e) (кнопка -)

{

a = Convert. ToDouble (textBox1.Text);

textBox1.Text = "";

l = true;

Zap = '0';

}

private void button15_Click(object sender, EventArgs e) (кнопка *)

{

a = Convert. ToDouble (textBox1.Text);

textBox1.Text = "";

m = true;

Zap = '0';

}

private void button16_Click(object sender, EventArgs e) (кнопка /)

{

a = Convert. ToDouble (textBox1.Text);

textBox1.Text = "";

n = true;

Zap = '0';

}

private void button17_Click(object sender, EventArgs e) (кнопка =)

{

b = Convert. ToDouble (textBox1.Text);

if (g == true) s = a + b;

if (l == true) s = a - b;

if (m == true) s = a * b;

if (m == true) s = a / b;

textBox1.Text = Convert.ToString(s);

}

private void Form1_Load(object sender, EventArgs e)

{

}

private void button18_Click(object sender, EventArgs e) {

textBox1.Text = textBox1.Text.Remove(textBox1.Text.Length - 1, 1); (кнопка backspase)

[Тролль]

temich5000:

Ну, программу я, конечно, не проверял, но выглядеть тогда это будет так:

double a,s,b;

int d;

char Zap = '0';

private void button1_Click(object sender, EventArgs e)(кнопка 7)

{textBox1.Text = textBox1.Text + "7";}

private void button2_Click(object sender, EventArgs e) (кнопка 8)

{textBox1.Text = textBox1.Text + "8";}

private void button3_Click(object sender, EventArgs e) (кнопка 9)

{textBox1.Text = textBox1.Text + "9";}

private void button4_Click(object sender, EventArgs e) (кнопка 4)

{textBox1.Text = textBox1.Text + "4";}

private void button5_Click(object sender, EventArgs e) (кнопка 5)

{textBox1.Text = textBox1.Text + "5";}

private void button6_Click(object sender, EventArgs e) (кнопка 6)

{textBox1.Text = textBox1.Text + "6";}

private void button7_Click(object sender, EventArgs e) (кнопка 1)

{textBox1.Text = textBox1.Text + "1";}

private void button8_Click(object sender, EventArgs e) (кнопка 2)

{textBox1.Text = textBox1.Text + "2";}

private void button9_Click(object sender, EventArgs e) (кнопка 3)

{textBox1.Text = textBox1.Text + "3";}

private void button10_Click(object sender, EventArgs e) (кнопка «,»)

{if (Zap == '0'){textBox1.Text = textBox1.Text + ","; Zap = '1'; }

else textBox1.Text = textBox1.Text;}

private void button11_Click(object sender, EventArgs e) (кнопка 0)

{textBox1.Text = textBox1.Text + "0";}

private void button12_Click(object sender, EventArgs e) (кнопка c)

{textBox1.Text = ""; Zap = '0';}

private void button13_Click(object sender, EventArgs e) (кнопка +)

{a = Convert. ToDouble (textBox1.Text);

textBox1.Text = ""; d = 1; Zap = '0';}

private void button14_Click(object sender, EventArgs e) (кнопка -)

{a = Convert. ToDouble (textBox1.Text);

textBox1.Text = ""; d = 2; Zap = '0';}

private void button15_Click(object sender, EventArgs e) (кнопка *)

{a = Convert. ToDouble (textBox1.Text);

textBox1.Text = ""; d = 3; Zap = '0'; }

private void button16_Click(object sender, EventArgs e) (кнопка /)

{a = Convert. ToDouble (textBox1.Text);

textBox1.Text = ""; d = 4; Zap = '0';}

private void button17_Click(object sender, EventArgs e) (кнопка =)

{b = Convert. ToDouble (textBox1.Text);

if(b == 0 && d == 4) then textBox1.Text = "zero divide! overflow!"; else

{

if (d == 1) s = a + b;

if (d == 2) s = a - b;

if (d == 3) s = a * b;

if (d == 4) s = a / b;

a = s;

textBox1.Text = Convert.ToString(s); } }

private void Form1_Load(object sender, EventArgs e)

{ }

private void button18_Click(object sender, EventArgs e) {

textBox1.Text = textBox1.Text.Remove(textBox1.Text.Length - 1, 1); (кнопка backspase)

Просто при выполнении "=" делается a=s; и флаг последней операции не стирается. Операция будет заменена только при нажатии другой кнопки операции. Чтобы это делалось проще, вместо 4-х булевских переменных используется одна целая, иначе пришлось при нажатии любой кнопки со знаком операции сбрасывать все остальные булевские переменные.

Изменения я выделил жирным шртфтом.

P.S. Вообще-то полагается давать текст программы в сообщении с тегом кода, но тогда не работает выделение нового жирным шрифтом, поэтому я оставил текст программы обычным.

Изменено 7 декабря, 2010 пользователем Тролль

[temich5000]

почти работает

тока 5+2=7 и при следующем нажатии кнопки равно выводит 14 ((((((((((

[Тролль]

temich5000:

Тогда объяви булевскую переменную g и вставь в действия каждой кнопки операций (+,-,*,/) команду g=true;

а строчку {b = Convert. ToDouble (textBox1.Text); замени на {if(g)b = Convert. ToDouble (textBox1.Text); g=false;

P.S. Тьфу, if было записал как в Pascal, подправил. Вот что значит писать в одном посте на двух языках...

eXoule:

дано натуральное Число n получить последовательность b1.....bn, где при i=1,2 ....n значение b1 равно:1+1/2+....+1/i;

Ну, не b1, а bi

var i,n:integer; b:array[1..100]of real; begin readln(n); b[1]:=1; for i:=2 to n do b[i]:=b[i-1]+1/i end; for i:=1 to n do write(b[i]:10:6); writeln; readln end.

Даны действительная матрица размера m x n. Определить числа b1........bn,равные соответственно:значениям средних арифметических элементов строк.

var i,j,m,n:integer; a:array[1..25,1..25]of real; b:array[1..25]of real; beginwriteln('Введите размерности матрицы (через пробел) m n : '); readln(m,n);for i:=1 to m do begin   writeln('Введите элементы ',i,'-й строки, разделяя пробелами');  for j:=1 to n do read(a[i,j]); readln; end;for i:=1 to m do begin b[i]:=0; for j:=1 to n do b[i]:=b[i]+a[i,j]; b[i]:=b[i]/n end; writeln('Result:'); for i:=1 to m do write(b[i]:8:3); writeln; readln end.

Изменено 7 декабря, 2010 пользователем Тролль

[eXoule]

Спасибо большое!

[Новичге]

люди помогите плиз, АиЯП начал учить только в этом году, учитель не из лучших, помогите составить проги:

1.Написать программу, которая считывает из текстового файла три предложения и выводит их в обратном порядке.

2.Напишите программу, подсчитывающую количество вхождений заданной буквы в введенной строке.

3.В одномерном массиве, состоящем из n вещественных элементов, вычислить:

1)сумму отрицательных элементов массива;

2)произведение элементов массива, расположенных между максимальным и минимальным элементами.

Упорядочить элементы массива по возрастанию.

4.Дана целочисленная прямоугольная матрица. Определить:

1)количество строк, не содержащих ни одного нулевого элемента;

2)максимальное из чисел, встречающихся в заданной матрице более одного раза.

БУДУ НУ ООООООЧЕНЬ РАД ХОТЯ БЫ ОДНОЙ ИЗ НИХ

НУЖНО В ПАСКАЛЕ, чтобы можно было потом подогнать под оболочку delphi

[Тролль]

Новичге:

Вторая задача:

program a2;var s:string; c:char; i,n:integer; begin write('string ? '); readln(s); write('character ? '); readln©; n:=0; for i:=1 to length(s) do if s[i]=c then inc(n); writeln(n)end.

Третья задача:

program a3;var i,j,n,imin,imax:integer; a:array[1..100]of real; s,p,q:real;beginwrite('number of elements? '); readln(n); write('elements of the array? '); for i:=1 to n do read(a[i]); readln; imin:=1; imax:=1; p:=1;for i:=1 to n do  begin if a[i]<0 then s:=s+a[i]; if a[i]>a[imax] then imax:=i; if a[i]<a[imin] then imin:=i end;if imin <imax then for i:=imin+1 to imax-1 do p:=p*a[i] else for i:=imax+1 to imin-1 do p:=p*a[i];for j:=2 to n do for i:=2 to n do if a[i-1]>a[i] then begin q:=a[i-1]; a[i-1]:=a[i]; a[i]:=q end;writeln('sum=',s:0:3,'   mul=',p:0:3); for i:=1 to n do write(a[i]:10:3); writeln end.

[Zabiyaka]

Дана матрица m\n вводятся c клавиатуры....

1 Найти суму элементов в столбцах которые не содержат отрецательных чисел

2. Максимальное среди чисел которое встречается в матрице больше 2 раз

Помогите плиз .... ато я не знаю как сделать .... очень надо ... ((((((((

[Zabiyaka]

Только эту прога для Визуал Бэйсика .... Помогите пожалуйста

[chuz91]

Здравствуйте ! кто ни будь помогите построить блок схему к этой програмке . спасибо

#include <stdio.h>

#include <string.h>

main()

{

struct NOTE{char NAME[20],TELE[15];unsigned BDAY[3];}BLOCKNOTE[8],T;

int i,j,k=0; char Name[20];

for(i=0;i<8;i++)

{

printf("\nName? "); gets(BLOCKNOTE.NAME);

if(strlen(BLOCKNOTE.NAME)==0)break;

printf("Phone number? "); gets(BLOCKNOTE.TELE);

printf("Birthday (YYYY MM DD)? ");

for(j=0;j<3;j++)scanf("%u",&BLOCKNOTE.BDAY[j]);

gets(Name); k++;

};

for(i=0;i<k;i++)for(j=0;j<k-i-1;j++)

if(strncmp(BLOCKNOTE[j].TELE,BLOCKNOTE[j+1].TELE,3)>0)

{T=BLOCKNOTE[j];BLOCKNOTE[j]=BLOCKNOTE[j+1];BLOCKNOTE[j+1]=T;}

printf("\nName for the seach? "); gets(Name); j=0;

for(i=0;i<k;i++)if(!strncmp(Name,BLOCKNOTE.NAME,strlen(Name)))

{

printf("\nName: %s \nPhone number: %s \nBirthday: %u %u %u\n\n",

BLOCKNOTE.NAME, BLOCKNOTE.TELE,

BLOCKNOTE.BDAY[0],BLOCKNOTE.BDAY[1],BLOCKNOTE.BDAY[2]);j=1;

};

if(!j)printf("No such person!\n\n");

getch();

}

[Тролль]

chuz91:

Здравствуйте ! кто ни будь помогите построить блок схему к этой програмке . спасибо

Взял программу из этого поста темы?

Блок-схемы уже полвека никто не использует, как и каменные топоры, только в школах ими зачем-то мучают, наверное, чтобы занять время. Для особо требовательных заказчиков существуют программы автоматического построения блок-схем, которые берут это бестолковое занятие на себя и переписывают команды из текста программы в прямоугольнички и ромбики сами. Например, AutoFlowchart.

Изменено 9 декабря, 2010 пользователем Тролль

[chuz91]

chuz91:Взял программу из этого поста темы?

Блок-схемы уже полвека никто не использует, как и каменные топоры, только в школах ими зачем-то мучают, наверное, чтобы занять время. Для особо требовательных заказчиков существуют программы автоматического построения блок-схем, которые берут это бестолковое занятие на себя и переписывают команды из текста программы в прямоугольнички и ромбики сами. Например, AutoFlowchart.

Здравствуйте ) да программу взял от туда

требует преподователь

спасибо за помощь !)) попробую...

[Zabiyaka]

У меня не получается сделать сортировку по алфавиту записей .... я остальное уже сделал а это дописать не могу ... Вот код который я написал ..... Сюда можно дописать сортировку ????

#include <iostream>

using namespace std;

struct WORKER

{

char surname[40]; // ôàìèëèÿ

char initials[40]; // èíèöèàëû

char post[40]; // äîëæíîñòü

int date; // ãîä ðîæäåíèÿ

};

int main()

{

setlocale(LC_ALL, "");

int const N = 10;

int staj;

bool f = true;

WORKER mass[N];

for( int i = 0; i < N; ++i )

{

cout << "Uvedit inphormatsiy pro spivrobitnyka 1" << i+1 << ":" << endl;

cout << "1) Phamiliya: "; cin >> mass.surname;

cout << "2) Initsialu: "; cin >> mass.initials;

cout << "3) Posada: "; cin >> mass.post;

cout << "4) Rik pryinnyattya na roboty: "; cin >> mass.date;

}

cout << "Uvedit stash roboty pratsivnyka stag roboty yakogo bilshe nish: ";

cin >> staj;

cout << "Phamaliya robitnyks stash kotrogo bilshe nish: " << staj << " rokiv:" << endl;

for( int i = 0; i < N; ++i )

{

if( (2010 - mass.date) > staj )

{

cout << mass.surname << endl;

f = false;

}

}

if(f)

cout << "Nemae." << endl;

system("pause");

return 0;

}

Всё вроде работает ... только вот проблема что нет сортировки ((((((((((((((

[Тролль]

Zabiyaka:

Сюда можно дописать сортировку ????

Сортировку записей по имени?

for(int i=0;i<N;i++)for(int j=0;j<N-i-1;j++)  if(strcmp(mass[j].surname,mass[j+1].surname)>0)     {WORKER wt=mass[j];mass[j]=mass[j+1];mass[j+1]=wt;}

Да, не забудь добавить в начало программы #include <string>

Изменено 9 декабря, 2010 пользователем Тролль

[Zabiyaka]

Спасибо ...

А можно мне пожалуйста к моей проге пристроить сортировку и скинуть .... пожалуйста ато я не справлюсь ....

[Zabiyaka]

Ну да по имени ... только как сделать так чтобы вставить туда этот кусочек и прога мне после ввода сортировала имена и показывала ??? (((

[Тролль]

Zabiyaka:

Если хочешь, чтобы еще был и вывод того, что было введено и отсортировано - добавь после текста сортировки из моего поста еще строчки

for(int i=0;i<N;i++){cout<<"  "<<mass[i].surname<<"  "<<mass[i].initials<<  "  "<<mass[i].post<<"  "<<mass[i].date<<endl;}

Ну, как "вставить туда этот кусочек" - надеюсь, работа в текстовом редакторе для тебя не проблема. Если хочешь после ввода - значит, перед строкой

cout << "Uvedit stash roboty pratsivnyka stag roboty yakogo bilshe nish: ";

Изменено 10 декабря, 2010 пользователем Тролль

[rica]

Всем Привет! Пишу простую мной придуманную игру в Dev C++, с помощью библиотеки OpenGL. Возникла проблема. У меня есть один статичный куб и 10 разноцветных динамичных. Как сделать так чтобы при нажатии мыши цвет статичного менялся, но не random а из набора цветов 10 "летающих" кубов. заранее спсибо=)

[chuz91]

всем привет, помогите пожалуйста составить программу

Описать структуру с именем TRAIN содержащую следующие поля:

- название пункта назначения

- номер поезда

- время отправления

Написать программу выполняющие следующие действия:

1) ввод с клавиатуры данных в массив, состоящий из восьми элементов типа TRAIN; записи должны быть упорядочены по номерам поездов.

2) вывод на экран информации о поезде, номер которого введен с клавиатуры.

3) если таких поездов нет, выдать на дисплей соответствующее сообщение.

п.с. это сиплюсплюс

п.с.с. буду очень благодарен

[Тролль]

chuz91:

#include <stdio.h>#include <string.h>int main(){struct TRAIN{char NAME[20];unsigned NUM;char TOUT[6];}B[8],T;int i,j,k=0; unsigned Num; char Name[20];for(i=0;i<8;i++)  {printf("\nName of the place? "); gets(B[i].NAME); if(strlen(B [i].NAME)==0)break;   printf("Train number? "); scanf("%u",&B[i].NUM);   printf("Departure time? "); scanf("%s",&B[i].TOUT); gets(Name); k++;};for(i=0;i<k;i++)for(j=0;j<k-i-1;j++)if(B[j].NUM<B[j+1].NUM){T=B[j];B[j]=B[j+1];B[j+1]=T;}printf("\nTrain number for seach? "); scanf("%u",&Num); j=0;for(i=0;i<k;i++)if(Num==B[i].NUM)  {printf("\nName of the place: %s \nTrain number: %u \nDeparture time: %s\n\n",    B[i].NAME,B[i].NUM,B[i].TOUT); j=1;};if(!j)printf("No such train!\n\n"); getchar(); getchar();}

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

[chuz91]

chuz91:

#include <stdio.h>#include <string.h>int main(){struct TRAIN{char NAME[20];unsigned NUM;char TOUT[6];}B[8],T;int i,j,k=0; unsigned Num; char Name[20];for(i=0;i<8;i++)  {printf("\nName of the place? "); gets(B[i].NAME); if(strlen(B [i].NAME)==0)break;   printf("Train number? "); scanf("%u",&B[i].NUM);   printf("Departure time? "); scanf("%s",&B[i].TOUT); gets(Name); k++;};for(i=0;i<k;i++)for(j=0;j<k-i-1;j++)if(B[j].NUM<B[j+1].NUM){T=B[j];B[j]=B[j+1];B[j+1]=T;}printf("\nTrain number for seach? "); scanf("%u",&Num); j=0;for(i=0;i<k;i++)if(Num==B[i].NUM)  {printf("\nName of the place: %s \nTrain number: %u \nDeparture time: %s\n\n",    B[i].NAME,B[i].NUM,B[i].TOUT); j=1;};if(!j)printf("No such train!\n\n"); getchar(); getchar();}

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

Спасибо большое)) а можно как нибудь доделать этот код чтобы после вывода результата поиска поезда по номеру, был запрос что то вроде:

"want to search again (Y/N)?" и при нажатии Y возвращал на вопрос Train number for seach?