ё, Сашечка Бух
Сообщения: 1,743
Регистрация: 26.12.2007 Откуда: картофельная афроамерика |
1 декабря 2010, 22:07
| | |
#551 (ПС)
| -Цитата от Slip[SFU] Товарищи, очень необходима помощь
Потухаю и так, а лабораторок по информатике куча ещё.
Язык: С++
Двумерные массивы
В двумерном массиве хранятся результаты футбольных матчей. Каждый элемент матрицы содержит информацию о результате игры: i-ой и j-ой команд. 3 очка - i-тая команда победила, 1 - ничья, 0 - поражение, "-1" - не играли.
Определить: а)наиболее успешную команду; б)вывести на экран списки не игравших.
Помогите а? пусть матрица - А, размером n на n
int s[n]; // вектор для занесения туда суммарных очков команд
for(int i=0; i<n; i++)
s[i]=0;
for(int i=0; i<n; i++)
for(int j=0; j<n; j++)
s[i]+=A[i][j];
int max=s[0], nom=0;
for(int i=1; i<n; i++)
if(s[i]>max)
{
max=s[i];
nom=i;
}
cout<<"Pobedila "<<i<<"komanda"<<endl;
for(int i=0; i<n; i++)
s[i]=0;
for(int i=0; i<n; i++)
for(int j=0; j<n; j++)
if(A[i][j]<0)
s[i]+=A[i][j];
int min=s[0], nom=0;
for(int i=1; i<n; i++)
if(s[i]<min)
{
min=s[i];
nom=i;
}
cout<<"Bolshe vseh ne igrala "<<i<<"komanda"<<endl;
коменты не ставлю, так как - а то я ещё разбираться пытаюсь, учиться... разбирайся | | | | Выпускаю дым...
Сообщения: 663
Регистрация: 17.07.2009 Откуда: UA |
2 декабря 2010, 09:53
| | |
#552 (ПС)
| Нихуя не шарю в php программировании,но имею огромное желание освоить это дело.
Какие книги почитать,какие форумы|блоги покурить? | | | | Раздолбай
Сообщения: 107
Регистрация: 29.10.2009 |
2 декабря 2010, 13:43
| | |
#553 (ПС)
| чел, если те интересно програмирование то советую зайти http://xwab.ru/
это форум програмистов, там те и советом помогут и подскажут+ все новое обсуждается постоянно | | | | Добрый
Сообщения: 6,249
Регистрация: 28.09.2007 Откуда: Кострома-Ярославль |
2 декабря 2010, 13:50
| | |
#554 (ПС)
| тут кто-нибдь шарит в ассемблере? а именно в тасме? | | | |
Сообщения: 9,544
Регистрация: 23.11.2007 |
2 декабря 2010, 18:13
| | |
#555 (ПС)
| -Цитата от tatu_cat_69 тут кто-нибдь шарит в ассемблере? а именно в тасме? а в чём загвоздка? Добавлено через 12 минут 10 секунд -Цитата от Заморский чел, если те интересно програмирование то советую зайти http://xwab.ru/
это форум програмистов, там те и советом помогут и подскажут+ все новое обсуждается постоянно ну и программисты, режет глаза | | | | судьбу ломают женщины
Сообщения: 2,340
Регистрация: 03.07.2008 |
2 декабря 2010, 21:23
| | |
#556 (ПС)
| Код: #include "stdio.h"
#include "stdlib.h"
#include "conio.h"
#include <string.h>
#define S 31 //слова
int countw(char *s);
void main()
{
int i;
int k; // dlina slova
int c;
char A[255];
char s,ss;
printf("\n Napishite pravilnoe predlojenie, BLEAT' !: \n");
for ( i=0, s=' ', k=0; i<=254; i++)
{
ss=s;s=getchar();
if (s==' ') continue;
if (s=='.') break;
if (s=='?') break;
if (s=='!') break;
if (ss==' ') k=0;
A[k]=s; k++;
}
c=countw(A);
if (i==255 || k==0 || k>20 || c > S)
printf("Nevernoe predlojenie, bleat'! \n");
printf ("\n slova = %d",c);
}
int countw(char *A)
{
bool
f = false;
int
i = 0, // текущая позиция в строке
c = 0;
while(A[i] != '.')
{
if(A[i] == ' '&& f)
{
c++;
f = false;
}
if(A[i] != ' ' && !f)
f = true;
i++;
}
return c += f;
}
немогу заставить функцию подсчета слов работать. мну нужно сделать ограничения на кол-во слов и кол-во букв в слове, разделенных одним или несколькими пробелами.
проблема в том что когда я считаю сколько в слове букв я испльзую гетчар.
а функция подсчета слов работает с гетс(). че делать помогите? лабу сдавать в субботу | | | | the end is near
Сообщения: 8,798
Регистрация: 25.06.2008 Откуда: я не из гетто, я из хуй знает где-то... |
2 декабря 2010, 21:27
| | |
#557 (ПС)
| -Цитата от 'CR Sound' Нихуя не шарю в php программировании,но имею огромное желание освоить это дело.
Какие книги почитать,какие форумы|блоги покурить? точно не этот | | | | судьбу ломают женщины
Сообщения: 2,340
Регистрация: 03.07.2008 |
2 декабря 2010, 21:28
| | |
#558 (ПС)
| Код: #include "stdio.h"
#include "stdlib.h"
#include "conio.h"
#include <string.h>
char
str[35];
int CofW(char *s)
{
bool
f = false;
int
i = 0, // текущая позиция в строке
c = 0;
while(s[i] != '.')
{
if(s[i] == ' '&& f)
{
c++;
f = false;
}
if(s[i] != ' ' && !f)
f = true;
i++;
}
return c += f;
}
void main()
{
gets(str);
int
c;
c = CofW(str);
printf("\nCount of words = %d\n", c);
}
вот когда используем гетс, то функция считать слова работает. но тогда не знаю как посчитать буквы в каждом слове | | | | плотненько
Сообщения: 2,895
Регистрация: 01.06.2006 Откуда: Красноярск |
2 декабря 2010, 21:36
| | |
#559 (ПС)
| -Цитата от Meteraise -Цитата от AlexxUnder блин не могу кнопку сделать в Лазарусе, что бы при нажатии на неё переходить на другую форму, в Gambas писал form2.show и всё работало... кто-нибудь подскажите пожалуйста Забивай большой и толстый на лазарус,тот ещё головняк я знаю что головняк, только что делать, если там где я работаю линукс везде установлен | | | | Добрый
Сообщения: 6,249
Регистрация: 28.09.2007 Откуда: Кострома-Ярославль |
3 декабря 2010, 12:29
| | |
#560 (ПС)
| -Цитата от иксуй! -Цитата от tatu_cat_69 тут кто-нибдь шарит в ассемблере? а именно в тасме? а в чём загвоздка? да надо типа сравнить два числа однозначных. т.е. сделать проверку на дурака, чтобы не было ввода двузначныхх чисел. числа знаковые т.е. в пределах от -9 до 9. Показать скрытый текст
STACKS SEGMENT PARA STACK 'STACK'
DB 512 DUP (?)
STACKS ENDS
DATA SEGMENT PARA 'DATA'
STR1 DB 'VVEDITE 1-oe znakovoe chislo $'
STR2 DB 'VVEDITE 2-oe znakovoe chislo $'
STR3 DB 'min chislo $'
chislo1 dw ?
chislo2 dw ?
BUF DB 20,?,20 DUP ('$')
buf2 db 20,?,20 dup ('$')
DATA ENDS
CODE SEGMENT PARA PUBLIC 'CODE'
ASSUME CS:CODE,DS ATA,SS:STACKS
entr PROC NEAR ;процедура перехода на новую строку
MOV AH,2
MOV DL,13
INT 21H
MOV DL,10
INT 21H
RET
entr ENDP
MAIN PROC FAR;
MOV AX,DATA
MOV DS,AX
vvod_1:
;-----------------
MOV AH,9 ;код функции (вывод строки)
MOV DX,OFFSET STR1
INT 21H
;-----------------
CALL entr ; Переход на новую строку
MOV AH,0AH;
MOV Dx,OFFSET BUF; это работа с буфером, его заполняем строкой
mov chislo1,dx
INT 21H
MOv AX,0
MOV Al,BYTE PTR BUF+1 ;помещение длины строки в AX
cmp al,1
Ja otriz
cmp al,1
je polog
polog: cmp buf+2, 30h
jb vvod_1
cmp buf+2, 39h
ja vvod_1
jmp end_if
;cmp buf+2, 20h
;jnz vvod_1
otriz: cmp al,2
je otriz1
jmp vvod_1
otriz1: cmp buf+2, 2dh
jne vvod_1
cmp buf+3, 2dh
je vvod_1
jmp end_if
end_if:
CALL entr ; Переход на новую строку
;-----------------
vvod_2: ;-----------------
MOV AH,9 ;код функции (вывод строки)
MOV DX,OFFSET STR2
mov chislo1,dx
INT 21H
;-----------------
CALL entr ; Переход на новую строку
MOV AH,0AH;
MOV DX,OFFSET BUF; это работа с буфером, его заполняем строкой
INT 21H
MOv AX,0
MOV Al,BYTE PTR BUF+1 ;помещение длины строки в AX
cmp al,1
Ja otriz_11
cmp al,1
je polog_1
polog_1:
cmp buf+2, 30h
jb vvod_2
cmp buf+2, 39h
ja vvod_2
jmp end_if1
;cmp buf+2, 20h
;jnz vvod_2
otriz_11: cmp al,2
je otriz_21
jmp vvod_2
otriz_21:
cmp buf+2, 2dh
jne vvod_2
cmp buf+3, 2dh
je vvod_2
jmp end_if1
end_if1:
CALL entr ; Переход на новую строку
MOV AH,2 ;
MOV Dx,chislo1 ;Вывод на экран num1
ADD Dx,37h ;
INT 21h
CALL entr
MOV AH,9
MOV DX,OFFSET STR3 ;ВЫВОД СТРОКИ С ПОМОЩЬЮ Ф.9
INT 21H
mov ax,chislo2
cmp ax,[chislo1]
Jge proc_min_out
MOV AH,2
MOV DX,ax;ВЫВОД СТРОКИ С ПОМОЩЬЮ Ф.9
INT 21H
proc_min_out:
mov ax,chislo1
MOV AH,2
MOV DX,ax;ВЫВОД СТРОКИ С ПОМОЩЬЮ Ф.9
INT 21H
mov ah,4ch
int 21h
MAIN ENDP
CODE ENDS
END MAIN
END MAIN
сделал я защиту от дурака. но вот с выводом и проверкой я не знаю что делать | | | |
Сообщения: 8,137
Регистрация: 30.09.2008 |
4 декабря 2010, 20:11
| | |
#561 (ПС)
| скажите, для чего нужна в паскале команда uses crt? Добавлено через 1 час 18 минут 7 секунд всё, цже сам нашёл) | | | | активный пользователь
Сообщения: 1,624
Регистрация: 29.10.2008 Откуда: Киев |
5 декабря 2010, 11:02
| | |
#562 (ПС)
| ПОМОГИТЕ плиз решить задачу
1.Магазин. В одном из магазинов города в предверии нового года была объявлена акция. При покупке трёх товаров вы оплачиваете стоимость только двух и них, а третий получаете в подарок. Однако самое важное условие той акции как всегда написано в сноске мелкими буквами - товары, за которые будет производится оплата, выбирает не покупатель, а касир. Понятно, что он выберет наиболее дорогой товар. Вы решили воспользоватся этой акцией и приобрести некоторые товарыю
Задание. Напишите программу shop, которая определит сколько вам прийдётся заплатить за выбраные три товара.
Входные данные. В единственной строке заприсаны три неотрицательных целых числа - цены выбранных товаров. Все числа не привышают 30000.
Выходные данные. Выведите одно целое число- наибольшую сумму, которую можете потребовать кассир за эту покупку, действуя по правилам по объявленной акции.
пример входных и выходных данных
ввод вывод
4 6 3 10
а то я нуб | | | | нормальный пользователь
Сообщения: 522
Регистрация: 18.03.2008 Откуда: Kharkov |
5 декабря 2010, 11:07
| | |
#563 (ПС)
| -Цитата от ZooMMeN ПОМОГИТЕ плиз решить задачу
1.Магазин. В одном из магазинов города в предверии нового года была объявлена акция. При покупке трёх товаров вы оплачиваете стоимость только двух и них, а третий получаете в подарок. Однако самое важное условие той акции как всегда написано в сноске мелкими буквами - товары, за которые будет производится оплата, выбирает не покупатель, а касир. Понятно, что он выберет наиболее дорогой товар. Вы решили воспользоватся этой акцией и приобрести некоторые товарыю
Задание. Напишите программу shop, которая определит сколько вам прийдётся заплатить за выбраные три товара.
Входные данные. В единственной строке заприсаны три неотрицательных целых числа - цены выбранных товаров. Все числа не привышают 30000.
Выходные данные. Выведите одно целое число- наибольшую сумму, которую можете потребовать кассир за эту покупку, действуя по правилам по объявленной акции.
пример входных и выходных данных
ввод вывод
4 6 3 10
а то я нуб какой язык программирования? | | | | активный пользователь
Сообщения: 1,624
Регистрация: 29.10.2008 Откуда: Киев |
5 декабря 2010, 11:10
| | |
#564 (ПС)
| -Цитата от krupa -Цитата от ZooMMeN ПОМОГИТЕ плиз решить задачу
1.Магазин. В одном из магазинов города в предверии нового года была объявлена акция. При покупке трёх товаров вы оплачиваете стоимость только двух и них, а третий получаете в подарок. Однако самое важное условие той акции как всегда написано в сноске мелкими буквами - товары, за которые будет производится оплата, выбирает не покупатель, а касир. Понятно, что он выберет наиболее дорогой товар. Вы решили воспользоватся этой акцией и приобрести некоторые товарыю
Задание. Напишите программу shop, которая определит сколько вам прийдётся заплатить за выбраные три товара.
Входные данные. В единственной строке заприсаны три неотрицательных целых числа - цены выбранных товаров. Все числа не привышают 30000.
Выходные данные. Выведите одно целое число- наибольшую сумму, которую можете потребовать кассир за эту покупку, действуя по правилам по объявленной акции.
пример входных и выходных данных
ввод вывод
4 6 3 10
а то я нуб какой язык программирования?
паскаль | | | | нормальный пользователь
Сообщения: 522
Регистрация: 18.03.2008 Откуда: Kharkov |
5 декабря 2010, 11:11
| | |
#565 (ПС)
| -Цитата от ZooMMeN -Цитата от krupa -Цитата от ZooMMeN ПОМОГИТЕ плиз решить задачу
1.Магазин. В одном из магазинов города в предверии нового года была объявлена акция. При покупке трёх товаров вы оплачиваете стоимость только двух и них, а третий получаете в подарок. Однако самое важное условие той акции как всегда написано в сноске мелкими буквами - товары, за которые будет производится оплата, выбирает не покупатель, а касир. Понятно, что он выберет наиболее дорогой товар. Вы решили воспользоватся этой акцией и приобрести некоторые товарыю
Задание. Напишите программу shop, которая определит сколько вам прийдётся заплатить за выбраные три товара.
Входные данные. В единственной строке заприсаны три неотрицательных целых числа - цены выбранных товаров. Все числа не привышают 30000.
Выходные данные. Выведите одно целое число- наибольшую сумму, которую можете потребовать кассир за эту покупку, действуя по правилам по объявленной акции.
пример входных и выходных данных
ввод вывод
4 6 3 10
а то я нуб какой язык программирования?
паскаль сейчас придумаю) | | | | активный пользователь
Сообщения: 1,624
Регистрация: 29.10.2008 Откуда: Киев |
5 декабря 2010, 11:13
| | |
#566 (ПС)
| спасиб огромное | | | | нормальный пользователь
Сообщения: 522
Регистрация: 18.03.2008 Откуда: Kharkov |
5 декабря 2010, 11:29
| | |
#567 (ПС)
| -Цитата от ZooMMeN спасиб огромное - Program Max_Tsena;
Var a,b,c,summ : Real;
Begin
Writeln("vvedite tsenu 3-ox tovarov");
Read(a,b,c);
if (a>c) AND (b>c)
sum:=a+b;
else
if (b>a) AND (c>a)
sum:=b+c;
else sum:=a+c;
Writeln("sum=",sum);
Read();
END. только синтаксис передалешь.
паскаль 3 года назад был(
впадлу проверять.
там с ифами не помню как дело обстоит | | | | активный пользователь
Сообщения: 1,624
Регистрация: 29.10.2008 Откуда: Киев |
5 декабря 2010, 11:32
| | |
#568 (ПС)
| -Цитата от krupa -Цитата от ZooMMeN спасиб огромное - Program Max_Tsena;
Var a,b,c,summ : Real;
Begin
Writeln("vvedite tsenu 3-ox tovarov");
Read(a,b,c);
if (a>c) AND (b>c)
sum:=a+b;
else
if (b>a) AND (c>a)
sum:=b+c;
else sum:=a+c;
Writeln("sum=",sum);
Read();
END. только синтаксис передалешь.
паскаль 3 года назад был(
впадлу проверять.
там с ифами не помню как дело обстоит
ещё раз спасибо
хоть не пустую работу здам | | | |
Сообщения: 8,137
Регистрация: 30.09.2008 |
5 декабря 2010, 12:07
| | |
#569 (ПС)
| -Цитата от ZooMMeN -Цитата от krupa -Цитата от ZooMMeN спасиб огромное - Program Max_Tsena;
Var a,b,c,summ : Real;
Begin
Writeln("vvedite tsenu 3-ox tovarov");
Read(a,b,c);
if (a>c) AND (b>c)
sum:=a+b;
else
if (b>a) AND (c>a)
sum:=b+c;
else sum:=a+c;
Writeln("sum=",sum);
Read();
END. только синтаксис передалешь.
паскаль 3 года назад был(
впадлу проверять.
там с ифами не помню как дело обстоит
ещё раз спасибо
хоть не пустую работу здам - uses crt;
var a,b,c,summa:real;
begin
clrscr;
readln(a,b,c);
if (a>b) and (c>b) then summa:=a+c else write(' ');
if (b>a) and (c>a) then summa:=b+c else write(' ');
if (a>c) and (b>c) then summa:=a+b else write(' ');
writeln(summa :1:0);
readln
end. на, работает
я тока вчера паскаль начал учить | | | | новый пользователь
Сообщения: 463
Регистрация: 09.09.2007 Откуда: Череповец |
5 декабря 2010, 12:12
| | |
#570 (ПС)
| зачем пробелы выводить, если можно через else все сделать норм. как выше сделано | | | |
Сообщения: 8,137
Регистрация: 30.09.2008 |
5 декабря 2010, 12:12
| | |
#571 (ПС)
| -Цитата от adajio зачем пробелы выводить, если можно через else все сделать норм. как выше сделано я ещё через else не умею
сделал как смог
теперь возьму на заметку | | | | Неадекватный пользователь
Сообщения: 984
Регистрация: 04.07.2009 Откуда: ты взялся? |
5 декабря 2010, 12:16
| | |
#572 (ПС)
| пацаны, есть курсовая на тему "Метод Северо-Западного угла и уточнение методом потенциалов" срочно нужна помощь! Программа в Делфи | | | |
Сообщения: 8,137
Регистрация: 30.09.2008 |
5 декабря 2010, 12:16
| | |
#573 (ПС)
| - Program Max_Tsena;
Var a,b,c,sum : Real;
Begin
Writeln('vvedite tsenu 3-ox tovarov');
Read(a,b,c);
if (a>c) AND (b>c) then sum:=a+b
else
if (b>a) AND (c>a) then sum:=b+c
else sum:=a+c;
Writeln('sum=',sum :0:0);
Readln
END. вот синтаксис поправил.теперь работает | | | | активный пользователь
Сообщения: 1,624
Регистрация: 29.10.2008 Откуда: Киев |
5 декабря 2010, 12:17
| | |
#574 (ПС)
| -Цитата от Трэй -Цитата от ZooMMeN -Цитата от krupa
только синтаксис передалешь.
паскаль 3 года назад был(
впадлу проверять.
там с ифами не помню как дело обстоит
ещё раз спасибо
хоть не пустую работу здам - uses crt;
var a,b,c,summa:real;
begin
clrscr;
readln(a,b,c);
if (a>b) and (c>b) then summa:=a+c else write(' ');
if (b>a) and (c>a) then summa:=b+c else write(' ');
if (a>c) and (b>c) then summa:=a+b else write(' ');
writeln(summa :1:0);
readln
end. на, работает
я тока вчера паскаль начал учить
ммм хз мне написало 7 ошибок((((
оооо сенкс))) Добавлено через 6 минут 45 секунд -Цитата от Трэй - Program Max_Tsena;
Var a,b,c,sum : Real;
Begin
Writeln('vvedite tsenu 3-ox tovarov');
Read(a,b,c);
if (a>c) AND (b>c) then sum:=a+b
else
if (b>a) AND (c>a) then sum:=b+c
else sum:=a+c;
Writeln('sum=',sum :0:0);
Readln
END. вот синтаксис поправил.теперь работает Ммм так поставить и будет работать???? | | | |
Сообщения: 8,137
Регистрация: 30.09.2008 |
5 декабря 2010, 12:32
| | |
#575 (ПС)
| -Цитата от ZooMMeN -Цитата от Трэй -Цитата от ZooMMeN
ещё раз спасибо
хоть не пустую работу здам - uses crt;
var a,b,c,summa:real;
begin
clrscr;
readln(a,b,c);
if (a>b) and (c>b) then summa:=a+c else write(' ');
if (b>a) and (c>a) then summa:=b+c else write(' ');
if (a>c) and (b>c) then summa:=a+b else write(' ');
writeln(summa :1:0);
readln
end. на, работает
я тока вчера паскаль начал учить
ммм хз мне написало 7 ошибок((((
оооо сенкс))) Добавлено через 6 минут 45 секунд -Цитата от Трэй - Program Max_Tsena;
Var a,b,c,sum : Real;
Begin
Writeln('vvedite tsenu 3-ox tovarov');
Read(a,b,c);
if (a>c) AND (b>c) then sum:=a+b
else
if (b>a) AND (c>a) then sum:=b+c
else sum:=a+c;
Writeln('sum=',sum :0:0);
Readln
END. вот синтаксис поправил.теперь работает Ммм так поставить и будет работать???? ага | | | | |