var a,b,c:string;
begin
readln(a);
readln(b);
if (pos(b,a))<>0 then writeln('est simvol');
c:=copy(a,1,pos(' ',a)-1);
writeln(c);
writeln(copy(a,pos(' ',a)+1,length(a)-pos(' ',a)+1),' ',copy(a,1,pos(' ',a)-1));
end.
Я бы посоветовал:
1) Если Delphi 7, то могут быть проблемы с русскими наименованиями таблиц/столбцов в БД (у самого так было).
2) Я бы по другому запрос написал, примерно так:
SELECT * FROM infa WHERE familia >= +QuotedStr(help2) (в конце уже не помню как там в делфи надо, чтоб переменную в запрос добавить)
Надеюсь помог, удачи.
1 - R V U
2 - везде галочки
3 - везде галочки
4 - R
5 - U
6 - нигде
Что-бы поставить кол-во знаков после запятой я просто использовал библиотеку iomanip и функцию fixed, и через setprecision поставил кол-во знаков. Естественно это можно сделать через формулы и какие-то алгоритмы, но это очень долго, муторно, да и зачем? Если это намного эффективнее, быстрее и намного легче.
В файле код программы.
Программа округляет числа до ближайшего целого.
Вводите количество отдыхающих и процент "A" затем получаете результат вычислений.
Программа выводит на экран количество людей побывавших на концерте певицы, на выступлении хора, общее число посетителей концерта и выступления и процент этого числа от общего количества отдыхающих.