Нужно из текста "ЦСКА МОСКВА" удалить все буквы А. Заранее спасибо!
Нужно из текста "ЦСКА МОСКВА" удалить все буквы А. Заранее спасибо!
ЦСКА ВСЕГДА БУДЕТ ПЕРВЫМ!!!
I зимние Юношеские Олимпийские игры
nons (15.01.2012)
Помогите с Паскалем
"Пусть элементами круга являются радиус (первый элемент), диаметр (второй элемент) и длина окружности (третий элемент). Составить программу, которая по номеру элемента запрашивала бы его соответствующее значение и вычисляла бы площадь круга."
ну братюнь ты же шаришь )
Оффтопик
rr3 (20.12.2011)
Ребят, помогите разобраться
Задача: Ввести текст X$ из нескольких слов (не менее 10). Из текста удалить все согласные. распечатать полученный текст.
Мой код:
задача 1
Проблема в том, что в тексте удаляются не все буквы, находящиеся в "sogl". В чем причина?
и еще, помогите решить
1)Вывести на экран прописыне и строчные буквы русского алфавита, располагая их в одной стрке. В каждой последующей строке выводится на один симсов меньше. Коливчество строк определяется количеством букв в алфавите.
Дано натуральное чисто n. Выяснеить, можно ли представить чисто n! в виде произведления трех последовательных числе.
2)Пусть дан список вещественныхчисле. Проверьте образуют ли числа, хранящиеся всписке, арифметическую или геометрическую прогрессию
3) Создать файл, содержащий сведения о багаже пассажиров. Структура записи: количество вещей (переменная целого типа), вес в килограммах.
Последний раз редактировалось Afee; 14.01.2012 в 23:20.
А в паскале точно массивы с единицы идут не с нуля?(давно с ним не связывался) А обязательно именно удалять буквы? Не достаточно их просто не выводить? Сделать два цикла один внутри другого, в первом флаг наличия буквы сбрасывается а во вложенном проверяется совпадает ли текущая буква с одной из фильтра, если да, то флаг устанавливается, при возвращении управление во внешний цикл проверять стоит-ли флаг, если нет, то выводить букву в результат.
приветик всем)) помогите пожалуйста с решеними задач связанных с паскалем,очень нуждаюсь ввашей помощи... вот задачи при решении которых возникли проблемы...
1. составить блок-схему и написать программу вычисления смешанного арифметического выражения для данных в форматах real (переменные a,b), integer(остальные переменные)
(-2*c+d*82)/tg(a/4-1)
<br>
2. дано вещественное число A и целое число N(>0) вывести А в степени N: АN = А*А*...*А (числа А перемножаются N раз)
3.одномерные массивы.дан целочисленный массив А размера 10. вывести номер первого из тех его элементов А[i], которые удовлетворяют двойному неравенству : A[1]<A[i]<A[10]. если таких элементов нет, то вывести 0.
4.двумерные массивы///дана матрица размера 5х10. найти минимальное значение в каждом столбце.
помогите пожалуйста, нужно сдать завтра, буду очень благодарна, заранее спасибо вам)
Добавлено через 2 часа 59 минут
приветик всем)) помогите пожалуйста с решеними задач связанных с паскалем,очень нуждаюсь ввашей помощи... вот задачи при решении которых возникли проблемы...
1. составить блок-схему и написать программу вычисления смешанного арифметического выражения для данных в форматах real (переменные a,b), integer(остальные переменные)
(-2*c+d*82)/tg(a/4-1)
<br>
2. дано вещественное число A и целое число N(>0) вывести А в степени N: АN = А*А*...*А (числа А перемножаются N раз)
3.одномерные массивы.дан целочисленный массив А размера 10. вывести номер первого из тех его элементов А[i], которые удовлетворяют двойному неравенству : A[1]<A[i]<A[10]. если таких элементов нет, то вывести 0.
4.двумерные массивы///дана матрица размера 5х10. найти минимальное значение в каждом столбце.
помогите пожалуйста, нужно сдать завтра, буду очень благодарна, заранее спасибо вам)
Последний раз редактировалось Жанек; 14.10.2012 в 19:32. Причина: Добавлено сообщение
1.
program z1;
uses crt;
var
a,b: real;
c,d: integer;
otvet: real;
begin
clrscr;
write('Vvedite a: ');
readln(a);
write('Vvedite b: ');
readln(b);
write('Vvedite c: ');
readln(c);
write('Vvedite d: ');
readln(d);
otvet := ((-2)*c+d*82)/(sin(a/4-1)/cos(a/4-1));
writeln('Otvet: ', otvet3);
readln;
end.
Добавлено через 23 минуты
program z2;
uses crt;
var
A,N, i: integer;
otvet: integer;
begin
clrscr;
write('Vvedite A: ');
readln(A);
write('Vvedite N: ');
readln(N);
otvet := A;
for i := 1 to N - 1 do
begin
if N <= 0 then
begin
writeln('Oshibka!');
break;
end;
otvet := otvet*A;
end;
write('Otvet: ', otvet);
readln;
end.
Последний раз редактировалось Klaud; 16.10.2012 в 11:04. Причина: Добавлено сообщение
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)