Программу я сделал,все работает. Еще я здела к ней меню которое работает на половину. Программа отказывается сохранять в файл (Окно сохранения выбивает, но текст не сохраняется). Помогите найти ошибку.

Показать скрытый текст

[CODE]#include <iostream>
#include <stdio.h>
#include <conio.h>
#include <fstream>
#include <cstring>
using namespace std;
void main()
{
setlocale (LC_ALL,"Russian");
cout<<"1. Ввод с клавиатуры"<<endl;
cout<<"2. Ввод из файла"<<endl;
cout<<"Введите номер вашего выбора"<<endl;
int ans;
cin>>ans;
if(ans!=1&& ans!=2)
{
cout<<"Ошибка!";
return;
}
char str[50];
if(ans==1)
{
cout<<"Введите строку: "<<endl;
cin.get();
cin.getline(str,49);
}
if(ans==2)
{
ifstream start("start.txt");
if(!start)
{
cout<<"Фаила нет!";
return;
}
start.getline(str,49);
start.close();
}
int i=0;
int size=strlen(str);
char c;
bool fin=true;
cout<<"1. Вывод в окне"<<endl;
cout<<"2. Вывод в файл"<<endl;
cout<<"Введите номер вашего выбора "<<endl;
int ans2;
cin>>ans2;
if(ans2!=1&& ans2!=2)
{
cout<<"Ошибка! ";
return;
}
if(ans2==1)
{
cout<<"Старая строка: "<<str<<endl;
cout<<"Новая строка: ";
for (int t=0;t<size;t++)
{
c=str[t];
if ((c=='.')||(c=='!')||(c=='?')) { fin=true; putchar (c); continue;}
if ((fin)&&(c!=' ')) {putchar (toupper(c)); fin=false;}
else putchar (c);
}
cout<<endl;
}
if(ans2==2)
{
ofstream finish("finish.txt");
if(!finish)
{
cout<<"Файла нет!";
return;
}
cout<<"Старая строка: "<<str<<endl;
cout<<"Новая строка: ";
for (int t=0;t<size;t++)
{
c=str[t];
if ((c=='.')||(c=='!')||(c=='?')) { fin=true; putchar (c); continue;}
if ((fin)&&(c!=' ')) {putchar (toupper(c)); fin=false;}
else putchar (c);
}
cout<<"\n";
finish<<endl;
finish.close();
}
}[/CODE]

шарящие програмеры в пм напишите ) есть задание

-Цитата от Raz0r

шарящие програмеры в пм напишите ) есть задание

Язык то хоть какой?

-Цитата от Hammer

-Цитата от Raz0r

шарящие програмеры в пм напишите ) есть задание

Язык то хоть какой?

пофиг какой, какой удобнее

Y4il : JAVA, OOP, SQL, OSM, .NET, HTML, CSS, Ajax JavaScript....i tak dalee.

-Цитата от RabbiT

Y4il : JAVA, OOP, SQL, OSM, .NET, HTML, CSS, Ajax JavaScript....i tak dalee.

Ajax и есть JavaScript, только асинхронный.

и джава от ооп тоже не отделима, доппустим-то

-Цитата от @ MaRiO @

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

скорее всего это примета что нужно не петь реп.

Показать скрытый текст

было бы ахуенней если вместо эхо был автотюн

подскажите как лучше оформить прогу на делфи?
есть чтото типо xp manifest только в стиле виста\севен?хотелось бы оформить типо виста\севен.

-Цитата от Лжэц

-Цитата от @ MaRiO @

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

скорее всего это примета что нужно не петь реп.

Показать скрытый текст

было бы ахуенней если вместо эхо был автотюн

подскажите как лучше оформить прогу на делфи?
есть чтото типо xp manifest только в стиле виста\севен?хотелось бы оформить типо виста\севен.

Alpha Skins - тут без вариантов.

-Цитата от Лжэц

-Цитата от @ MaRiO @

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

скорее всего это примета что нужно не петь реп.

Показать скрытый текст

было бы ахуенней если вместо эхо был автотюн

подскажите как лучше оформить прогу на делфи?
есть чтото типо xp manifest только в стиле виста\севен?хотелось бы оформить типо виста\севен.

мне не только реп петь но и для скайпа надо

теперь вопрос по Alpha Skins.
Установил по инструкции его.Кидаем на форму любой его компонент вылазиит

-

[Fatal Error] Unit1.pas(7): File not found: 'sButton.dcu'

используем старые компоненты все норм.
Прочитал что нужно добавить путь до библиотеки,какой путь и куда именно?

Такой вопрос: как на Vb к программе прикрепить какой либо файл (текстовый, .dll и
т.д.) чтобы можно при установке проги на другой комп его без проблем открыть

пасаны извиняюсь может кто ща быстро написать
Составить программу для ввода слова результатом которой вывод на экран количество символов в этом слове

Добавлено через 30 минут 3 секунды

а всё ненад сам всё вспомнил

-Цитата от Лжэц

теперь вопрос по Alpha Skins.
Установил по инструкции его.Кидаем на форму любой его компонент вылазиит

-

[Fatal Error] Unit1.pas(7): File not found: 'sButton.dcu'

используем старые компоненты все норм.
Прочитал что нужно добавить путь до библиотеки,какой путь и куда именно?

Давно это было.
Если память не изменяется, то пропиши:
Tools->Enviroment Options->Library->Library path - путь к папке D7.
Для Browsing path тоже самое.

-Цитата от Hammer

-Цитата от tatu_cat_69

в sql кто-нибудь шарит?

Смотря что надо.

P.S. Лучше сразу писать проблему. Быстрее выйдет.

какие экзамены сдавали все студенты.
http://zalil.ru/31082768
тут база на sql server 2003

-Цитата от Hammer

-Цитата от Лжэц

теперь вопрос по Alpha Skins.
Установил по инструкции его.Кидаем на форму любой его компонент вылазиит

-

[Fatal Error] Unit1.pas(7): File not found: 'sButton.dcu'

используем старые компоненты все норм.
Прочитал что нужно добавить путь до библиотеки,какой путь и куда именно?

Давно это было.
Если память не изменяется, то пропиши:
Tools->Enviroment Options->Library->Library path - путь к папке D7.
Для Browsing path тоже самое.

спасибо разобрался со скинами,прога заметно преобразилась

помогите бездарю.
элементарное решить не могу.
http://rghost.ru/7247931 тут задание.на "сделать блок-схему" не обращать внимания, мне бы алгоритм.
решил вот так

-

var
x:integer;
y:real;
begin
writeln('Please type x:');
readln(x);
y:=(3*x*x-4)/(x+1);
writeln('y=',y:4:4);
readln
end.
end.

-Цитата от alligator[7Вагон]

помогите бездарю.
элементарное решить не могу.
http://rghost.ru/7247931 тут задание.на "сделать блок-схему" не обращать внимания, мне бы алгоритм.
решил вот так

-

var
x:integer;
y:real;
begin
writeln('Please type x:');
readln(x);
y:=(3*x*x-4)/(x+1);
writeln('y=',y:4:4);
readln
end.
end.

http://www.twirpx.com/file/22495/
http://soft.cnews.ru/windows/development/delphi/avtoshema/
вот тут прога, выбирай любую. я пользовался первой кажется

Добавлено через 1 минуту 48 секунд

и еще если кто поможет с Access
В общем есть БД(оснащение оборудование кафедры), но вот загвостка. надо вывести кол-во определенного вида оборудования(например видеокарты) в каждой аудитории на форме главной. Сколько всего оборудования в аудитории я вывожу, а вот как сделать по видам не знаю. может кто подскажет

БД тут: http://zalil.ru/31082744

-Цитата от tatu_cat_69

-Цитата от alligator[7Вагон]

помогите бездарю.
элементарное решить не могу.
http://rghost.ru/7247931 тут задание.на "сделать блок-схему" не обращать внимания, мне бы алгоритм.
решил вот так

-

var
x:integer;
y:real;
begin
writeln('Please type x:');
readln(x);
y:=(3*x*x-4)/(x+1);
writeln('y=',y:4:4);
readln
end.
end.

http://www.twirpx.com/file/22495/
http://soft.cnews.ru/windows/development/delphi/avtoshema/
вот тут прога, выбирай любую. я пользовался первой кажется

Добавлено через 1 минуту 48 секунд

и еще если кто поможет с Access
В общем есть БД(оснащение оборудование кафедры), но вот загвостка. надо вывести кол-во определенного вида оборудования(например видеокарты) в каждой аудитории на форме главной. Сколько всего оборудования в аудитории я вывожу, а вот как сделать по видам не знаю. может кто подскажет

БД тут: http://zalil.ru/31082744

да я блокс схемы рисовать умею.мне бы сказать правильно я решил или нет.

-Цитата от alligator[7Вагон]

помогите бездарю.
элементарное решить не могу.
http://rghost.ru/7247931 тут задание.на "сделать блок-схему" не обращать внимания, мне бы алгоритм.
решил вот так

-

var
x:integer;
y:real;
begin
writeln('Please type x:');
readln(x);
y:=(3*x*x-4)/(x+1);
writeln('y=',y:4:4);
readln
end.
end.

Правильно.

-Цитата от tatu_cat_69

и еще если кто поможет с Access
В общем есть БД(оснащение оборудование кафедры), но вот загвостка. надо вывести кол-во определенного вида оборудования(например видеокарты) в каждой аудитории на форме главной. Сколько всего оборудования в аудитории я вывожу, а вот как сделать по видам не знаю. может кто подскажет

БД тут: http://zalil.ru/31082744

Вечерком подумаю, может составлю запрос.

-Цитата от Hammer

-Цитата от alligator[7Вагон]

помогите бездарю.
элементарное решить не могу.
http://rghost.ru/7247931 тут задание.на "сделать блок-схему" не обращать внимания, мне бы алгоритм.
решил вот так

-

var
x:integer;
y:real;
begin
writeln('Please type x:');
readln(x);
y:=(3*x*x-4)/(x+1);
writeln('y=',y:4:4);
readln
end.
end.

Правильно.

-Цитата от tatu_cat_69

и еще если кто поможет с Access
В общем есть БД(оснащение оборудование кафедры), но вот загвостка. надо вывести кол-во определенного вида оборудования(например видеокарты) в каждой аудитории на форме главной. Сколько всего оборудования в аудитории я вывожу, а вот как сделать по видам не знаю. может кто подскажет

БД тут: http://zalil.ru/31082744

Вечерком подумаю, может составлю запрос.

фух.значит, не всё потеряно;D

-Цитата от Hammer

-Цитата от tatu_cat_69

и еще если кто поможет с Access
В общем есть БД(оснащение оборудование кафедры), но вот загвостка. надо вывести кол-во определенного вида оборудования(например видеокарты) в каждой аудитории на форме главной. Сколько всего оборудования в аудитории я вывожу, а вот как сделать по видам не знаю. может кто подскажет

БД тут: http://zalil.ru/31082744

Вечерком подумаю, может составлю запрос.

спасибо, уже сделал вчера на паре. оказалось не все так сложно. просто преподаватель говорила вначале одну подсказку, а она оказалась не всегда работает.

Добавлено через 1 день 8 часов 42 минуты

-

Select t.[Наименование предмета], avg (t.Оценка/1.0) as [Средняя балл по предмету]
from
(
select [Наименование предмета],[Код студента], [Оценка 1] as [Оценка]
from Оценки inner join Предметы
on
Оценки.[Код предмета 1]=Предметы.[Код предмета]
Where Оценки.[Код предмета 1] = [Код предмета]

union
select [Наименование предмета],[Код студента], [Оценка 2] as [Оценка]
from Оценки inner join Предметы
on
Оценки.[Код предмета 2]=Предметы.[Код предмета]
Where Оценки.[Код предмета 2] = [Код предмета]

union
select [Наименование предмета],[Код студента], [Оценка 3] as [Оценка]
from Оценки inner join Предметы
on
Оценки.[Код предмета 3]=Предметы.[Код предмета]
Where Оценки.[Код предмета 3] = [Код предмета]
)
as t

Group by t.[Наименование предмета]

если кто поможет с комментариями вот этого запроса то буду очень благодарен. просто ваще не понимаю что за t. после Select и почему она нужна если есть union

-Цитата от tatu_cat_69

-Цитата от Hammer

-Цитата от tatu_cat_69

и еще если кто поможет с Access
В общем есть БД(оснащение оборудование кафедры), но вот загвостка. надо вывести кол-во определенного вида оборудования(например видеокарты) в каждой аудитории на форме главной. Сколько всего оборудования в аудитории я вывожу, а вот как сделать по видам не знаю. может кто подскажет

БД тут: http://zalil.ru/31082744

Вечерком подумаю, может составлю запрос.

спасибо, уже сделал вчера на паре. оказалось не все так сложно. просто преподаватель говорила вначале одну подсказку, а она оказалась не всегда работает.

Добавлено через 1 день 8 часов 42 минуты

-

Select t.[Наименование предмета], avg (t.Оценка/1.0) as [Средняя балл по предмету]
from
(
select [Наименование предмета],[Код студента], [Оценка 1] as [Оценка]
from Оценки inner join Предметы
on
Оценки.[Код предмета 1]=Предметы.[Код предмета]
Where Оценки.[Код предмета 1] = [Код предмета]

union
select [Наименование предмета],[Код студента], [Оценка 2] as [Оценка]
from Оценки inner join Предметы
on
Оценки.[Код предмета 2]=Предметы.[Код предмета]
Where Оценки.[Код предмета 2] = [Код предмета]

union
select [Наименование предмета],[Код студента], [Оценка 3] as [Оценка]
from Оценки inner join Предметы
on
Оценки.[Код предмета 3]=Предметы.[Код предмета]
Where Оценки.[Код предмета 3] = [Код предмета]
)
as t

Group by t.[Наименование предмета]

если кто поможет с комментариями вот этого запроса то буду очень благодарен. просто ваще не понимаю что за t. после Select и почему она нужна если есть union

t у тебя - это таблица(псевдоним таблицы), получающаяся из выделенного запроса. а запись вида t.Наименование_предмета - это значит, что поле Наименование_предмета берётся из этой таблицы t. и так далее

-Цитата от зулусик просто

-Цитата от tatu_cat_69

-Цитата от Hammer

Вечерком подумаю, может составлю запрос.

спасибо, уже сделал вчера на паре. оказалось не все так сложно. просто преподаватель говорила вначале одну подсказку, а она оказалась не всегда работает.

Добавлено через 1 день 8 часов 42 минуты

-

Select t.[Наименование предмета], avg (t.Оценка/1.0) as [Средняя балл по предмету]
from
(
select [Наименование предмета],[Код студента], [Оценка 1] as [Оценка]
from Оценки inner join Предметы
on
Оценки.[Код предмета 1]=Предметы.[Код предмета]
Where Оценки.[Код предмета 1] = [Код предмета]

union
select [Наименование предмета],[Код студента], [Оценка 2] as [Оценка]
from Оценки inner join Предметы
on
Оценки.[Код предмета 2]=Предметы.[Код предмета]
Where Оценки.[Код предмета 2] = [Код предмета]

union
select [Наименование предмета],[Код студента], [Оценка 3] as [Оценка]
from Оценки inner join Предметы
on
Оценки.[Код предмета 3]=Предметы.[Код предмета]
Where Оценки.[Код предмета 3] = [Код предмета]
)
as t

Group by t.[Наименование предмета]

если кто поможет с комментариями вот этого запроса то буду очень благодарен. просто ваще не понимаю что за t. после Select и почему она нужна если есть union

t у тебя - это таблица(псевдоним таблицы), получающаяся из выделенного запроса. а запись вида t.Наименование_предмета - это значит, что поле Наименование_предмета берётся из этой таблицы t. и так далее

т.е. у меня получается тут делается таблица из объединения запросов? мне бы просто подробнее, если не сложно

-Цитата от tatu_cat_69

-Цитата от зулусик просто

-Цитата от tatu_cat_69

спасибо, уже сделал вчера на паре. оказалось не все так сложно. просто преподаватель говорила вначале одну подсказку, а она оказалась не всегда работает.

Добавлено через 1 день 8 часов 42 минуты

если кто поможет с комментариями вот этого запроса то буду очень благодарен. просто ваще не понимаю что за t. после Select и почему она нужна если есть union

t у тебя - это таблица(псевдоним таблицы), получающаяся из выделенного запроса. а запись вида t.Наименование_предмета - это значит, что поле Наименование_предмета берётся из этой таблицы t. и так далее

т.е. у меня получается тут делается таблица из объединения запросов?

да. скорее даже это называется "представление". можно даже эти запросы в отдельный запрос переписать(и назвать этот запрос "Запрос1" например), а потом писать так:

-

SELECT t.Код FROM Запрос1 t

по-моему, так, если я не ебусь в мозг совсем