http://opeople.ru/index.php Mon, 21 May 2012 02:19:36 +0400 5 6 Программирование на Паскале, Си, Бейсике, Ассемблере На 16.05.2012 решено 584 задачи (оформлено в решебнике 388 решений), 98 в процессе решения и 1318 ещё не решено. Все это добро доступно для свободного скачивания

Решебник выполнен в виде текстового редактора (есть подсветка синтаксиса, сохранение настроек и т.д.) с вшитыми в него решениями.
Решения задач ведутся на С++ и Pascal

Если кто желает поучаствовать в проекте, или есть интересные идеи, или Вам просто нужен этот решебник - то добро пожаловать в официальную группу проекта ВКонтакте http://vk.com/answerbook

Также, если Вам нужны решения задач, которых нет на данный момент в решебнике, то её решение можно абсолютно бесплатно заказать в офф. группе ВКонтакте

Любой человек, решивший минимум одну задачу(которая на данный момент не решена) или любым другим способом помог проекту, то он автоматически записывается в разработчики проекта))

И ещё:
Хочу в решебнике осуществить поиск по решения по его фрагменту (нужен какой нибудь быстрый алгоритм) и автоматическое обновление.
Если у кого есть какие нибудь идеи - то пишите в http://vk.com/s9.saratov в личку или в оф. группу



P.S. Во вложении решебник (v. 0.1 beta, сборка 117 от 18/V 2012г), но т.к. решебник обновляется раз в 1-2 дня, то самая новая версия - в оф. группе в ВКонтакте]]> .S9 .S9 .S9 Sat, 19 May 2012 12:02:30 +0400 201489 55 Программируем на Паскале и Delphi fam:string[10];
i:string[12];
o:string[16];
zp:integer;
staj:integer;
deti:integer;
end;
var tablica:array[1..35] of table;
n,l,k:integer;
f:text;
begin
assign(f,'tabl.txt');
reset(f);
for l:=1 to n do
begin
with tablica[l] do
begin
read(f,fam);
read(f,i);
read(f,o);
read(f,zp);
read(f,staj);
read(f,deti);
end;
close(f);
for k:=1 to n do
begin
with tablica[l] do
begin
write(tablica[l].fam,' ');
write(tablica[l].i,' ');
write(tablica[l].o,' ');
write(tablica[l].zp,' ');
write(tablica[l].staj,' ');
write(tablica[l].deti,' ');
end;
end;
begin
if (tablica[l].staj>10) and (tablica[l].zp<7000) then
write(tablica[l].zp,' ');
end;
end;
readln;
end.




вот задание: Анкета содержит сведения в виде: фамилия, имя, отчество, величина зарплаты, стаж работы, количество детей. Получить список сотрудников, стаж которых превышает 10 лет, а зарплата ниже 7000 рублей.

табличка лежит в файле tabl.txt в ней вот

Кузнецова Наталья Владиславовна 1500 6 2
Кульчицкий Евгений Сергеевич 1220 10 2
Дубров Владимир Владимирович 5000 12 -
Первухин Михаил Александрович 3500 9 2
Шалая Татьяна Евгеньевна 5700 4 1


есть еще пара вариантов как программу написать но все равно ни один не работает, и я не могу понять в чем проблема(( ]]> kuzichka kuzichka kuzichka Fri, 18 May 2012 14:55:45 +0400 201488 6 Программирование на Паскале, Си, Бейсике, Ассемблере fam:string[10];
i:string[12];
o:string[16];
zp:integer;
staj:integer;
deti:integer;
end;
var tablica:array[1..35] of table;
n,l,k:integer;
f:text;
begin
assign(f,'tabl.txt');
reset(f);
for l:=1 to n do
begin
with tablica[l] do
begin
read(f,fam);
read(f,i);
read(f,o);
read(f,zp);
read(f,staj);
read(f,deti);
end;
close(f);
for k:=1 to n do
begin
with tablica[l] do
begin
write(tablica[l].fam,' ');
write(tablica[l].i,' ');
write(tablica[l].o,' ');
write(tablica[l].zp,' ');
write(tablica[l].staj,' ');
write(tablica[l].deti,' ');
end;
end;
begin
if (tablica[l].staj>10) and (tablica[l].zp<7000) then
write(tablica[l].zp,' ');
end;
end;
readln;
end.




вот задание: Анкета содержит сведения в виде: фамилия, имя, отчество, величина зарплаты, стаж работы, количество детей. Получить список сотрудников, стаж которых превышает 10 лет, а зарплата ниже 7000 рублей.

табличка лежит в файле tabl.txt в ней вот

Кузнецова Наталья Владиславовна 1500 6 2
Кульчицкий Евгений Сергеевич 1220 10 2
Дубров Владимир Владимирович 5000 12 -
Первухин Михаил Александрович 3500 9 2
Шалая Татьяна Евгеньевна 5700 4 1


есть еще пара вариантов как программу написать но все равно ни один не работает, и я не могу понять в чем проблема(( ]]> kuzichka kuzichka kuzichka Wed, 16 May 2012 19:40:20 +0400 201484 6 Программирование на Паскале, Си, Бейсике, Ассемблере массива с четными индексами, а во второй – с нечетными. Вывести результат на экран.]]> +Елена+ +Елена+ +Елена+ Thu, 03 May 2012 19:52:56 +0400 201462 55 Программируем на Паскале и Delphi ]]> Наталья Семенова Наталья Семенова Наталья Семенова Sat, 28 Apr 2012 19:21:49 +0400 201456 56 Программирование на Си, и в C++ Builder Ребята помогите найти иструкцию о пользовании компилятором wxDev-C++ на русском языке.
(поскольку в английском я ни бум-бум,пока).]]> Veka Veka Veka Wed, 18 Apr 2012 06:40:48 +0400 201447 56 Программирование на Си, и в C++ Builder Помогите пожалуйста перевести с Паскаля на Си
Условие задачи: Заполнить квадратную матрицу номерами 1, 2, 3, … по спирали, начиная от любого угла и закручивая ее к центру по часовой стрелке или против.

Программа в Паскале:

Program tip;
uses crt;
Var
a:array[1..4,1..4] of integer;
z,krug,g1,g2,g3,g4,N,i,j:integer;

Begin
clrscr;
N:=4;
z:=1;
{цикл, который отвечате за количество витков спирали}
for krug:=1 to ((n+1) div 2) do
begin
{цикл, верхней горизотальной части витка}
for g1:=krug to N-krug do
begin
a[krug,g1]:=z;
inc(z);
end;
{цикл, правой вертикальной части витка (той, что сверху вниз)}
for g2:=krug to N-krug do
begin
a[g2,((n+1)-krug)]:=z;
inc(z);
end;
{цикл, нижней горизонтальной части витка (той, что справа на лево)}
for g3:=((N+1)-krug) downto krug+1 do
begin
a[((N+1)-krug),g3]:=z;
inc(z);
end;
{цикл, левой вертикальной части витка (той, что снизу вверх)}
for g4:=((N+1)-krug) downto krug+1 do
begin
a[g4,krug]:=z;
inc(z);
end;
end;

for i:=1 to 4 do
begin
Writeln;
for j:=1 to 4 do
Write(a[i,j]:5);
end;
readln;
End.

Помогите ]]> Liana_nf Liana_nf Liana_nf Sun, 15 Apr 2012 11:02:04 +0400 201446 60 Теоретические вопросы ====>> Цитата (brat315 @ 9.11.2010, 20:57) :

Начинай с изучения литературы, вот здесь хороший сайт с книгами найдешь все необходимое
Скачать книги и журналы по программированию http://booklib.3dn.ru/

<<====]]> bearing brat315 brat315 Sat, 17 Mar 2012 03:30:18 +0300 201405 56 Программирование на Си, и в C++ Builder , массив передавать как параметры функций


#include <vcl.h>
#include <iostream.h>
#include <stdlib.h>

char* Rus(const char* text);


int main() {
srand(time(NULL)); //делаем rand() зависящим от текущего времени, по сути аналог randomize()

int n,i;
cout << Rus( "Введите размер массива:") << endl;
cin >> n; //считываем его
int a[100]; //объявляем массив нужного размера

cout << Rus("Массив имеет вид:") << endl;
for (int i = 0; i < n; i++) { ///заполняем массив случайными числами от 0 до 99 и печатаем
a[i] = rand() % 100 - rand() % 100;
cout << a[i] << " ";
}
cout << endl;
cout << Rus("Удаляем из массива все числа Фибоначчи:") << endl;

и тут я застрял.... ]]> NEON NEON NEON Mon, 12 Mar 2012 16:25:41 +0300 201401 6 Программирование на Паскале, Си, Бейсике, Ассемблере Может у кого-нибудь есть уже гововые решения

1.Написать программу на языке Ассемблер вывода на экран дисплея сообщения, используя функции BIOS.

2.Написать программу на языке Ассемблер проверки цветности в текстовом и графическом режиме.

3.Написать программу на языке ассемблер реализации режима Caps Lock, не нажимая функциональной клавиши, используя соответствующую команду контроллера клавиатуры.

4.Написать программу на языке Ассемблер вывода данных на печать струйного (матричного) принтера, используя порты адаптера (регистр данных, состояния, управления).

5.Написать программу обработчика прерываний для мыши на языке Ассемблер (функция 12h), вызванную нажатием клавиши пробел.
]]> Alexsh Alexsh Alexsh Wed, 07 Mar 2012 23:11:04 +0300 201399 56 Программирование на Си, и в C++ Builder Ален И. Голуб: Правила программирования на C и C++ СКАЧАТЬ

Леен Аммерааль: STL для программистов на C++ СКАЧАТЬ

Андрей Александреску: Современное проектирование на С++ СКАЧАТЬ

Андрей Богатырев: Хрестоматия по программированию на Си в Unix СКАЧАТЬ

Пахомов Б. "C/C++ и MS Visual C++ 2008 для начинающих" СКАЧАТЬ

Дейл Роджерсон: Основы COM, 2-е издание СКАЧАТЬ

Дональд Бокс: Сущность технологии COM СКАЧАТЬ

Herb Sutter: Exceptional C++ СКАЧАТЬ

Джесс Либерти: Освой самостоятельно C++ за 21 день СКАЧАТЬ

Брайан Керниган, Деннис Ритчи: Язык программирования C СКАЧАТЬ

Стенли Липпман, Жози Лажойе: Язык программирования C++. Вводный курс СКАЧАТЬ

М.В. Мозговой: 85 нетривиальных проектов, решений и задач СКАЧАТЬ

Николай Джосьютис: C++ Стандартная библиотека. СКАЧАТЬ

Т.А. Павловская, Ю.А. Щупак - С и С++ Структурное программирование СКАЧАТЬ

Роберт Седжвик: Фундаментальные алгоритмы C++. Части 1-4 СКАЧАТЬ

Сергей Сабуров: Языки программирования C и C++ СКАЧАТЬ

Герб Саттер - Новые сложные задачи на C++ СКАЧАТЬ

Скотт Мейерс: Эффективное использование STL. СКАЧАТ

Скотт Мейерс: Наиболее эффективное использование C++ СКАЧАТЬ

Герберт Шилдт - Искусство программирования на С++ СКАЧАТЬ

В.А. Скляров: С++ и ООП. Справочное пособие СКАЧАТЬ

В.П. Солдатов: Программирование драйверов Windows СКАЧАТЬ

Стефан Р. Дэвис: C++ Для чайников СКАЧАТЬ

Бьерн Страуструп - Дизайн и Эволюция C++ СКАЧАТЬ

Тодд Баррон: Программирование стратегических игр с DX9 СКАЧАТЬ

Дмитрий Якушев: Философия программирования на языке C++ СКАЧАТЬ

Ю.В. Земсков - Программирование на C++ с использованием библиотеки Qt4 СКАЧАТЬ
]]> Bumcheb Bumcheb Bumcheb Sun, 26 Feb 2012 17:43:32 +0300 201388 6 Программирование на Паскале, Си, Бейсике, Ассемблере Помогите, пожалуйста решить на Microsoft Visual Studio. Содержимое квадратной матрицы повернуть относительно центра симметрии матрицы на заданный угол, кратный 90*. Ольга Тимонова Ольга Тимонова Ольга Тимонова Wed, 22 Feb 2012 15:01:47 +0300 201386 6 Программирование на Паскале, Си, Бейсике, Ассемблере Помогите, пожалуйста решить на Microsoft Visual Studio. В заданном тексте найти самое длинное слово и самую длинную фразу. Ольга Тимонова Ольга Тимонова Ольга Тимонова Wed, 22 Feb 2012 15:00:16 +0300 201385 6 Программирование на Паскале, Си, Бейсике, Ассемблере последовательности нулей и единиц. Из-за помех возможен
ошибочный прием некоторых сигналов: нуль может быть
воспринят как единица и наоборот. Для повышения вероятности
правильного приема сигналов было решено передавать каждый
сигнал трижды. Теперь передатчик вместо 1 всегда передает 111, а
вместо 0 всегда 000. Необходимо написать программу, которая
будет восстанавливать исходное сообщение. При передаче могли
произойти ошибки, поэтому вместо каждой тройки цифр
программа должна вывести ту цифру, которая встречается в этой
тройке по крайней мере два раза. Предусмотреть защиту от
некорректного ввода исходных данных.]]> Ольга Тимонова Ольга Тимонова Ольга Тимонова Wed, 22 Feb 2012 14:59:06 +0300 201384 56 Программирование на Си, и в C++ Builder #include <stdio.h>
#include <sys/time.h>
#include <stdio.h>

int count = 0;
struct tm the_date, * ptr_date;
time_t the_time;
int i;

void findd(void) {
the_time = mktime(&the_date);
ptr_date = localtime(&the_time);
if ( ptr_date->tm_wday == 5 )
count++;

if (the_date.tm_year < 2010) {
if (the_date.tm_mon < 12) {
the_date.tm_mon++;
}
else {
the_date.tm_year++;
the_date.tm_mon = 0;
}
findd();
}
}

int main(void){
the_date.tm_sec = 1;
the_date.tm_min = 0;
the_date.tm_hour = 0;
the_date.tm_mday = 13;
the_date.tm_mon = 0;
the_date.tm_year = 1900;

findd();
printf("%d", count);
return 0;
}]]> вселюбятнастю вселюбятнастю вселюбятнастю Fri, 27 Jan 2012 00:26:17 +0300 201347 6 Программирование на Паскале, Си, Бейсике, Ассемблере Даны три целых числа: А, В, С. Проверить, верно ли утверждение: «Хотя
бы одно из чисел А, В, С положительное». Надо написать программу с помощью visual basiс.
Помогите плиз))))]]> sportvanino sportvanino sportvanino Mon, 26 Dec 2011 09:11:00 +0300 201339 55 Программируем на Паскале и Delphi
Помогите пжл написать програму или может есть у кого то похожая.]]> Inmate Inmate Inmate Sun, 25 Dec 2011 21:14:58 +0300 201338 56 Программирование на Си, и в C++ Builder вот чтобы разбить число у меня есть:
#include<stdio.h>
int main( ){
int a, m=2;
printf("vvedite naturalnoe chislo a\n");
scanf("%d",&a); //вводим натуральное число
while (a!=1){ // пока число не ноль
if (a%m == 0) //проверка делиться ли число без остатка
{
printf("%d, ", m); //вывод множителя если делится
a = a/m;
}
else
m++;
}
return 0;
}


теперь надо чтобы считались функции, знаю что можно через массивы но че т у меня кажись мозгов не хватает(((
помогите пожалуйста...]]> kaste kaste kaste Sat, 24 Dec 2011 18:11:16 +0300 201336 55 Программируем на Паскале и Delphi пример 2х^3-4x+1=0 разроботать программу для решения уравнения методом хорд и дихотомии j2593 j2593 j2593 Thu, 22 Dec 2011 09:59:32 +0300 201334 56 Программирование на Си, и в C++ Builder -ФИО
-Наименование отдела
-размер заработной платы за месяц
Вычислить общую сумму выплат за месяц по отделу,а так же среднемесячный заработок сотрудников этого отдела

вот это все что я сама написала, куча ошиюок и недоделанно, а еще тут нет файлом...если знаете как, то решите.


#include<stdio.h>
#include<stdlib.h>
#include<string.h>
struct Person
{
char fam[100];
char odt[100];
int zt;
};


void vvod_arr(Person*p,int,k1,int,k2);//////...функция ввода всего массива
void vvod_obj(Person*);//..объявление массива
void sort_fam(Person*p,int n);// сортировка по фамилии
void main()
{int n;
Scanf(“%d”,&n);
Person*p;
P=(person*)malloc(n*sizeof(person));
Person p
///////…объявление массив структур
Person p1[3]
p1[0]///..обращение

}
void vvod_arr(Person*p,int,k1,int,k2);/////..vvod massiva
for(int i=k1;i<k2;++i)
vvod_obj(&p[i]);

void vivod_obj(const Person*p)
{
printf(“-%-25s%-25s%-7d%.2lf\n” p->person.fam, p->person.otd, p->person.zt);
person ob={fam,otd,zt};//...инициализация

void sort_fam(Person*p,int n)// сортировка по фамилии
{
int i,j,k,buf;
for(int i=0;i<n-1;++i)
{ k=i;
for(j=i+1;j<n;++j)
if(strcmpi(p[i].person.fam,p[k].person.fam)==-1);
k=j;
}
{
buf=p[i];
p[i]=p[k];
p[k]=buf;
}
vivod sort_fam(Person*p)//…vivod
{printf(“”)
}


]]> Sheel Sheel Sheel Thu, 22 Dec 2011 00:15:36 +0300 201333