|
Решения задач на Паскале!Срочно нужно!
|
|
|
|
А что там не так то?)
В переменную считываешь любую дату которую введёт пользователь, потом пробежаться по файлу и удалить всё что связано с товарами которые выпущены ранее))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
1.Используя идею обращения числовой матрицы написать программу для обращения булевой матрицы.
2.Предложение состоит из слов, между словами один пробел, а после последнего слова точка. Найти самое короткое слово, начинающееся на букву «А». Помогите плиз ктото :((((
Студент :)
|
|
|
|
Quote (onlyrevo) 1.Используя идею обращения числовой матрицы написать программу для обращения булевой матрицы.
Не понял задания, по возможности - пример ввода-вывода
Quote (onlyrevo) 2.Предложение состоит из слов, между словами один пробел, а после последнего слова точка. Найти самое короткое слово, начинающееся на букву «А». Помогите плиз ктото :((((
var
a,stroka:string;
i,k,dlinna:integer;
begin
dlinna:=high(dlinna);k:=0;
readln(stroka);
delete(stroka,pos('.',stroka)+1,255);
for i:=1 to length(stroka) do
if (stroka[i]=' ')and(stroka[i+1]=' ') then delete(stroka,i,1);
if pos('a',stroka<>0 then
while pos('a',stroka)<>0 do begin
a:=copy(stroka,1,pos(' ',stroka));
delete(stroka,1,pos(' ',stroka));
k:=length(a);
if k<dlinna then dlinna:=k;end else writeln('Tut net bukvu A');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Дана строка S, которая не является палиндромом. Далее, удаляются несколько символов из S,
чтобы оставшаяся строка стала палиндромом.
Пусть T будет строкой, полученной при объединении стертых букв из S, сохраняя
относительный порядок. Как решить???
|
|
|
|
Читаешь строку S
Каждый стёртый символ из S записываешь в Т, и всё))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожалуйста!!!!!
Задан масссив целых чисел из Т элементов. Найти первую пару соседних противоположных чисел ( их сумма равна 0).
За ранее огромное спасибо=)Добавлено (04.04.12, 22:02)
---------------------------------------------
Задан двумерный массив размерности m*n. Дополнить его строкой и столбцом, в которых записать сумму элементов соответствующих строк и столбцов исходного массива. В элементе (m+1, n+1) должна храниться сумма всех элементов первоначального массива.
|
|
|
|
Quote (lelik-danilov96) Требуется подсчитать, на сколько раньше будет заканчиваться k-й урок, если все перемены сократить на 5 минут. Входные данные Вводится одно натуральное число k, не превосходящее 7. Выходные данные Вывести одно натуральное число — время в минутах. ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ СРОЧНО!!!!
Я тебе в контакте ответил в подписке
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Elena04) Помогите пожалуйста!!!!! Задан масссив целых чисел из Т элементов. Найти первую пару соседних противоположных чисел ( их сумма равна 0). За ранее огромное спасибо=)
var
a:array[1..100]of integer;
i,q,w,n:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]+a[i+1]=0 then q:=i;w:=i+1;
writeln(q,' ',w);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
и Добавлено (05.04.12, 13:37)
---------------------------------------------
Помогите!!!
пользователь вводит массив из 10 чисел каждое отрицательное число заменить на ноль..
спасибо заранее
Sweet
№ 450 | Автор: Sweet__life |
2012-04-05, 13:37 | Изменено: Sweet__life - Чт, 2012-04-05, 13:34
|
Репутация: [ + 0 ]
|
|
|
Sweet
№ 450 | Автор: Sweet__life |
2012-04-05, 13:37 | Изменено: Sweet__life - Чт, 2012-04-05, 13:34
|
Репутация: [ + 0 ]
|
|
|
|
var
mass:array[1..10]of byte;
i:byte;
begin
for i:=1 to 10 do begin
read(mass[i]);
if mass[i]<0 then mass[i]:=0;
for i:=1 to 10 do
write(mass[i],' ');
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
обращайся ещё))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Знаю , что решение на эти задачи спрашивал , но мне нужно программу выполнить БЕз ЕСЛИ . Прошу пожалуйста
1)Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями.
С начала суток прошло n секунд. Выведите, что покажут часы.
Пример
Ввод Вывод
3602 1:00:02
129700 12:01:40
2)Напишите программу, которая считывает значения двух переменных a и b, затем меняет их значения местами (то есть в переменной a должно быть записано то, что раньше хранилось в b, а в переменной b записано то, что раньше хранилось в a). Затем выведите значения переменных.
Пример
Ввод Вывод
3 7
7 3
|
|
|
|
Quote (500kg) Знаю , что решение на эти задачи спрашивал , но мне нужно программу выполнить БЕз ЕСЛИ . Прошу пожалуйста 1)Электронные часы показывают время в формате h:mm:ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями. С начала суток прошло n секунд. Выведите, что покажут часы. Пример Ввод Вывод 3602 1:00:02 129700 12:01:40 2)Напишите программу, которая считывает значения двух переменных a и b, затем меняет их значения местами (то есть в переменной a должно быть записано то, что раньше хранилось в b, а в переменной b записано то, что раньше хранилось в a). Затем выведите значения переменных. Пример Ввод Вывод 3 7 7 3
Скинь тот код, который я писал ранее, переделаю
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
var
chas,minutu,secundu:longint;
begin
chas:=0;minutu:=0;
read(secundu);
while secundu>60 do begin
secundu:=secundu-60;
minutu:=minutu+1;
if minutu=60 then begin minutu:=0;chas:=chas+1;end;
end;
chas:=chas mod 24;
if(minutu<10)and(secundu<10)then writeln(chas,':0',minutu,':0',secundu) else
if(minutu<10)and(secundu>=10)then writeln(chas,':0',minutu,':',secundu) else
if(minutu>=10)and(minutu<10)then writeln(chas,':',minutu,':0',secundu) else
writeln(chas,':',minutu,':',secundu);
end.
Вот Он.Мне сказали что программы выполняются с помощью ДИВ и МОд
№ 456 | Автор: 500kg |
2012-04-07, 17:29 | Изменено: 500kg - Сб, 2012-04-07, 17:31
|
Репутация: [ + 0 ]
|
|
|
|
Помогите пожалуйста: дана матрица А размером 7х7. составить программу нахождения суммы элементов, лежащих выше главной диагонали
№ 457 | Автор: lena))) |
2012-04-08, 12:34 | Изменено: lena))) - Вс, 2012-04-08, 12:37
|
Репутация: [ + 0 ]
|
|
|
|
помогите пожалуйста решить процедуру..........
"Сожмите" одномерные массивы размерности m и n, удалив из них
нулевые элементы.
|
|
|
|
Quote (500kg) Вот Он.Мне сказали что программы выполняются с помощью ДИВ и МОд
Безусловно, но без ифов правильный вывод организовать не выйдет
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (lena)))) Помогите пожалуйста: дана матрица А размером 7х7. составить программу нахождения суммы элементов, лежащих выше главной диагонали
var
mass:array[1..7,1..7]of integer;
summ,i,j:integer;
begin
summ:=0;
for i:=1 to 7 do
for j:=1 to 7 do begin
read(mass[i,j]);
if j>i then summ:=summ+mass[i,j];end;
writeln(summ);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
