Новые сообщения · Правила  
Страница 2 из 7«123467»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задач в Паскале
Решение задач в Паскале
Ну, что же вы мне остальные не присылаете...
21 | Автор: MVera | 2012-02-28, 18:51   |  Репутация: [ + 0 ]
Много дел

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
22 | Автор: Berestovskiy | 2012-02-29, 00:19   |  Репутация: [ + 211 ]
помоги пожалуйста с задачами)
1закодировать и декодировать заданную строку по ключевому слову.
2заданную строку вывести на экран в виде бесконечной бегущей справа-налево строки до нажатия клавиши Esc ,с возможностью оперативного изменения: 1скорости строки 2 цвета символов строки 3 цвета фона строки положения на экране по вертикале.
Очень нужна помощь ,заранее спасибо)
23 | Автор: irina404 | 2012-03-03, 16:36   |  Репутация: [ + 0 ]
Помогите пожалуйста решить-Написать программу на языке Паскаль.Даны два целых положительных числа N и M.Заменить большее из них суммой этих двух чисел,а меньшее возвести в квадрат.
24 | Автор: sergey313 | 2012-03-04, 10:10   |  Репутация: [ + 0 ]
Quote (irina404)
1закодировать и декодировать заданную строку по ключевому слову.


Какое слово является ключевым?


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
25 | Автор: Berestovskiy | 2012-03-06, 13:13   |  Репутация: [ + 211 ]
Quote (irina404)
2заданную строку вывести на экран в виде бесконечной бегущей справа-налево строки до нажатия клавиши Esc ,с возможностью оперативного изменения: 1скорости строки 2 цвета символов строки 3 цвета фона строки положения на экране по вертикале.
Очень нужна помощь ,заранее спасибо)


Бесконечная строка вот тебе:
var
a:integer;
l:boolean;
begin
l:=false;
repeat begin
write(a,' ');
a:=a+1;
end;
until l=true;
end.

Цвет текста и фона - в гугл, не помню просто как записывается..
Скорость сроки - Пробел по умолчанию))


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
26 | Автор: Berestovskiy | 2012-03-06, 13:15   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
26 | Автор: Berestovskiy | 2012-03-06, 13:15   |  Репутация: [ + 211 ]
Quote (sergey313)
Помогите пожалуйста решить-Написать программу на языке Паскаль.Даны два целых положительных числа N и M.Заменить большее из них суммой этих двух чисел,а меньшее возвести в квадрат.


var
n,m:integer;
begin
read(n,m);
if n>m then begin n:=n+m;m:=m*m;end else begin
m:=n+m;n:=n*n;end;
writeln(n,' ',m);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
27 | Автор: Berestovskiy | 2012-03-06, 13:15   |  Репутация: [ + 211 ]
1) Дано натуральное число. Выведите его последнюю цифру.
Пример
Ввод Вывод
179
9
2)Дано двузначное число. Найдите число десятков в нем.
Пример
Ввод Вывод
42
4
28 | Автор: 500kg | 2012-03-16, 14:04   |  Репутация: [ + 0 ]
Контестер?)

1.
Код
var
a:integer;
begin
read(a);
writeln(a mod 10);
end.


2.
Код
var
a:integer;
begin
read(a);
writeln(a div 10);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
29 | Автор: Berestovskiy | 2012-03-16, 16:05   |  Репутация: [ + 211 ]
Помогите плиз, заранее спасибо.

Дана матрица A из целых чисел размером MxN.
Переставить строки матрицы так, чтобы строки стали расположены
по убыванию в лексикографическом порядке.
30 | Автор: M@RECS | 2012-04-06, 19:56   |  Репутация: [ + 0 ]
как сделать задачу x=5(a+b+c и дзеленная на aквадрат?)

кпк
31 | Автор: rewoljer | 2012-05-26, 11:13   |  Репутация: [ + 0 ]
Quote (rewoljer)
как сделать задачу x=5(a+b+c и дзеленная на aквадрат?)


Пример ввода-вывода, условие не понял.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
32 | Автор: Berestovskiy | 2012-05-28, 09:56   |  Репутация: [ + 211 ]
помогите плиз...нужно составить прогу
Даны 3 множества x1,x2,x3 содержащие целые числа из диапазона 100..200. известно что мощность каждого из этих множеств равно 10. Сформируйте новое множество Y=(X1ÇX2)U(X1UX3). на печать вывести множества x1,x2,x3 и Y. Проверить выполнение условия x1 <=(меньше либо равно) Y, 150 принадлежит Y.
заранее огромное огромное спасибище!!!
33 | Автор: stig9 | 2012-05-30, 19:03   |  Репутация: [ + 0 ]
Не понял условия..

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
34 | Автор: Berestovskiy | 2012-06-01, 09:44   |  Репутация: [ + 211 ]
Дайте пожалуйста решение!!! Очень Срочно

3. По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания. Операцией возведения в степень пользоваться нельзя! Напрмер: Ввод: 50. Вывод:1 2 4 8 16 32.
4. Дано натуральное число N. Выведите слово YES, если число N является точной степенью двойки, или слово NO в противном случае. Операцией возведения в степень пользоваться нельзя! Например: Ввод: 8. Вывод: YES. Ввод: 3. Вывод: No.
5. По данному натуральному числу N выведите такое наименьшее целое число k, что 2k≥N. Операцией возведения в степень пользоваться нельзя! Например: Ввод: 7. Вывод: 3.
35 | Автор: den26 | 2012-11-11, 20:45   |  Репутация: [ + 0 ]
Цитата den26
3. По данному числу N распечатайте все целые степени двойки, не превосходящие N, в порядке возрастания. Операцией возведения в степень пользоваться нельзя! Напрмер: Ввод: 50. Вывод:1 2 4 8 16 32.


Код
var
i,n:integer;
begin
read(n);
i:=1;
while(i*i<=n)do begin
write(i*i,' ');
i:=i+1;end;
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
36 | Автор: Berestovskiy | 2012-11-11, 20:48   |  Репутация: [ + 211 ]
Выдало частичное решение

Добавлено (11.11.12, 20:52)
---------------------------------------------
?

37 | Автор: den26 | 2012-11-11, 20:52   |  Репутация: [ + 0 ]
в смысле?

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
38 | Автор: Berestovskiy | 2012-11-11, 22:45   |  Репутация: [ + 211 ]
Я на mccme отправлял
Написал мол Частичное решение
39 | Автор: den26 | 2012-11-12, 10:09   |  Репутация: [ + 0 ]
Quote (den26)
Я на mccme отправлял


это что?


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
40 | Автор: Berestovskiy | 2012-11-12, 11:24   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задач в Паскале
Страница 2 из 7«123467»
Поиск: