Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 37, средняя оценка - 4.70
Manhunt1
0 / 0 / 0
Регистрация: 03.10.2009
Сообщений: 4
#1

Нужно написать программы - Pascal

29.10.2009, 21:30. Просмотров 5025. Ответов 10
Метки нет (Все метки)

Здравствуйте! Мне нужно решить 14 задач))Помогите кто чем сможет))За ранние спасибо!!!

1. Даны три числа. Написать фрагмент программы, подсчитывающий количество четных чисел.
2. Составить программу, которая уменьшает первое число в пять раз, если оно больше второго по абсолютной величине.
3. Создайте и произведите отладку программы, вычисляющей сумму квадратов чисел от 1 до введенного целого числа п.
4. Используя цикл while, напишите программу определения идеального веса для взрослых людей по формуле: Идеальный вес = рост - 100. Выход из цикла — значение роста 200.
5. Используя цикл repeat, напишите программу-фильтр, которая вводит любые символы, но комментирует только буквы русского алфавита. Завершение работы программы — по нажатию буквы «Я».
6. Используя цикл repeat, напишите программу, которая требует ввод пароля, например, числа 111, и, если пароль правильный, заполняет все строки экрана сообщением «Молодец!!!». Если после пятой попытки пароль неверен, выйти из программы.
7. Найдите наибольшее и наименьшее значения функции у - Зх2 + х - 4, если в заданном интервале [a, b] x изменяется с шагом 0,1.
8. Дана матрица D, имеющая N строк и N столбцов. Сформируйте два одномерных массива. В один запишите четные, а в другой — нечетные элементы матрицы. Выведите на экран все массивы.
9. Создайте матрицу из 15 строк и 15 столбцов. Вычислите произведение суммы элементов главной диагонали на сумму элементов L-й строки.
10. Вычислите сумму элементов двухмерного массива, индексы которых составляют в сумме заданное число К.
11. Найдите длину наибольшего отрезка, соединяющего две точки с координатами, заданными таблицей F(2, N)
12. Дан массив размерностью N*N, N - нечетное число. Вывести элементы массива, при обходе его по спирали, начиная с центра.
13. Для заданного целочисленного массива (N*N) найти максимум среди сумм элементов диагоналей, параллельных главной диагонали.
14. Найти максимальный элемент массива, встречающийся более одного раза.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.10.2009, 21:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужно написать программы (Pascal):

Нужно написать программы.Очень нужно
Подпрограммы 1.Написать программу для вычисления суммы факториалов всех...

Нужно написать 2 программы
Здравствуйте, уважаемые пользователи данного форума. Возникла проблема я не...

Нужно написать блок схему для программы
program abc; const e=0.0001; var x,x1,l,fx,fxp:real; ...

нужно написать программы(сколько сможите)срочно..до 9 июня 2010 года
пожалуйста..очень срочно..напиши программы

Дан листинг программы, к данному листингу нужно написать условие, исходные данные
Дан листинг программы, к данному листингу нужно написать условие, исходные...

Нужно написать текст программы для определения названия k-го месяца который следует за текущим
Нужно написать текст программы для определения названия k-го месяца который...

10
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
29.10.2009, 21:35 #2
А учиться решать примитивные задачи не пробовал?
0
Inadequate
Retired
7709 / 2542 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
29.10.2009, 22:04 #3
1:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  n1,n2,n3:integer;
{ГґГіГ*êöèÿ äëÿ ïîä÷ñåòГ* Г·ГҐГІГ*ûõ Гў ГЄГ*æäîì ÷èñëå}
function Chet(n:integer):integer;
var
  temp,count:integer;
begin
  temp:=n;
  count:=0;
  while temp<>0 do
  begin
    if odd(temp mod 10)=false then
      inc(count);
    temp:=(temp-(temp mod 10)) div 10
  end;
  result:=count
end;
{îñГ*îâГ*Г*Гї ïðîãðГ*ììГ*}
begin
  readln(n1,n2,n3);
  writeln('Êîëè÷åñòâî Г·ГҐГІГ*ûõ Гў 1 ÷èñëå: ',chet(n1));
  writeln('Êîëè÷åñòâî Г·ГҐГІГ*ûõ Гў 2 ÷èñëå: ',chet(n2));
  writeln('Êîëè÷åñòâî Г·ГҐГІГ*ûõ Гў 3 ÷èñëå: ',chet(n3))
end.
ну или так... но в этот вариант я не верю, это слишном элементарно...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  count,n1,n2,n3:integer;
begin
  readln(n1,n2,n3);
  count:=0;
  if n1 mod 2 =0 then
    inc(count);
  if n2 mod 2 =0 then
    inc(count);
  if n3 mod 2 =0 then
    inc(count);
  writeln('Êîëè÷åñòâî Г·ГҐГІГ*ûõ öèôð: ',count)
end.
Добавлено через 5 минут
2: (пишу только чтобы вам было стыдно)
Pascal
1
2
3
4
5
6
7
8
var
  n1,n2:real;
begin
  readln(n1,n2,n3);
  if abs(n1)>n2 then
    n1:=n1/5;
  writeln(n1)
end.
Добавлено через 2 минуты
3: (пишу только чтобы вам было стыдно)
Pascal
1
2
3
4
5
6
7
8
9
var
  summ,n:integer;
begin
  readln(n);
  summ:=0;
  for i:=1 to n do
    summ:=summ+sqr(i);
  writeln(summ)
end.
Добавлено через 13 минут
2Manhunt1, ну а дальше в таком же духе...
да конечно дальше задачи будут труднее... видимо это "весь ваш учебный курс" паскаля...
первые я написал чтобы вам было стыдно. но решать все у меня нет ни малейшего желания, так как все почему то уж очень любят халяву
спрашивайте что не понятно я помогу, ищите на форуме... потому как задачи на табулирование функции, и нахождения минимума/максимума в двумерных и одномерных массивах пережеванны были и не один десяток раз...
2alexevt, а вы то сами решите все здесь сможете решить...???
1
Manhunt1
0 / 0 / 0
Регистрация: 03.10.2009
Сообщений: 4
29.10.2009, 22:31  [ТС] #4
Цитата Сообщение от Inadequate Посмотреть сообщение
1:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  n1,n2,n3:integer;
{ГґГіГ*êöèÿ äëÿ ïîä÷ñåòГ* Г·ГҐГІГ*ûõ Гў ГЄГ*æäîì ÷èñëå}
function Chet(n:integer):integer;
var
  temp,count:integer;
begin
  temp:=n;
  count:=0;
  while temp<>0 do
  begin
    if odd(temp mod 10)=false then
      inc(count);
    temp:=(temp-(temp mod 10)) div 10
  end;
  result:=count
end;
{îñГ*îâГ*Г*Гї ïðîãðГ*ììГ*}
begin
  readln(n1,n2,n3);
  writeln('Êîëè÷åñòâî Г·ГҐГІГ*ûõ Гў 1 ÷èñëå: ',chet(n1));
  writeln('Êîëè÷åñòâî Г·ГҐГІГ*ûõ Гў 2 ÷èñëå: ',chet(n2));
  writeln('Êîëè÷åñòâî Г·ГҐГІГ*ûõ Гў 3 ÷èñëå: ',chet(n3))
end.
ну или так... но в этот вариант я не верю, это слишном элементарно...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  count,n1,n2,n3:integer;
begin
  readln(n1,n2,n3);
  count:=0;
  if n1 mod 2 =0 then
    inc(count);
  if n2 mod 2 =0 then
    inc(count);
  if n3 mod 2 =0 then
    inc(count);
  writeln('Êîëè÷åñòâî Г·ГҐГІГ*ûõ öèôð: ',count)
end.
Добавлено через 5 минут
2: (пишу только чтобы вам было стыдно)
Pascal
1
2
3
4
5
6
7
8
var
  n1,n2:real;
begin
  readln(n1,n2,n3);
  if abs(n1)>n2 then
    n1:=n1/5;
  writeln(n1)
end.
Добавлено через 2 минуты
3: (пишу только чтобы вам было стыдно)
Pascal
1
2
3
4
5
6
7
8
9
var
  summ,n:integer;
begin
  readln(n);
  summ:=0;
  for i:=1 to n do
    summ:=summ+sqr(i);
  writeln(summ)
end.
Добавлено через 13 минут
2Manhunt1, ну а дальше в таком же духе...
да конечно дальше задачи будут труднее... видимо это "весь ваш учебный курс" паскаля...
первые я написал чтобы вам было стыдно. но решать все у меня нет ни малейшего желания, так как все почему то уж очень любят халяву
спрашивайте что не понятно я помогу, ищите на форуме... потому как задачи на табулирование функции, и нахождения минимума/максимума в двумерных и одномерных массивах пережеванны были и не один десяток раз...
2alexevt, а вы то сами решите все здесь сможете решить...???
Спасибо большое))просто самому не очень хочется разбираться))после работы хочется отдохнуть))а не задачи решать))А без них до экзамена не допустят)Может напишите ещё 11 задач чтобы меня окончательно застыдить)))
0
Inadequate
Retired
7709 / 2542 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
29.10.2009, 22:44 #5
Цитата Сообщение от Manhunt1 Посмотреть сообщение
самому не очень хочется разбираться
ну раз вам не хочется, мне то это зачем???
0
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
30.10.2009, 09:15 #6
Цитата Сообщение от Inadequate Посмотреть сообщение
1:
2alexevt, а вы то сами решите все здесь сможете решить...???
Решу. И, по крайней мере, не стану решать первую задачу так, как вы. Там из трёх чисел надо найти чётные, а не искать в них цифры. Она для первоклассников.
0
mamedovvms
2918 / 839 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
30.10.2009, 09:37 #7
Спасибо большое))просто самому не очень хочется разбираться))после работы хочется отдохнуть))а не задачи решать))А без них до экзамена не допустят)Может напишите ещё 11 задач чтобы меня окончательно застыдить)))
Извините но многие люди на форуме такие задачи решали и не один раз, так что какой смысл им делать это если вы даже не заинтересованы попытаться решить.
С таким настроем вам во фриланс, у вас есть работа вы работаете и получаете за нее з/п, а для программистов программирование тоже работа так что их работу тоже надо оплачивать.
0
Inadequate
Retired
7709 / 2542 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
30.10.2009, 11:29 #8
Цитата Сообщение от alexevt Посмотреть сообщение
И, по крайней мере, не стану решать первую задачу так, как вы
2alexevt, вы что не видели что там два варианта?
Цитата Сообщение от Inadequate Посмотреть сообщение
ну или так... но в этот вариант я не верю, это слишном элементарно...
просто сначала я думал что задача серьезней, поэтому начал писал ту задачу, потом посмотрел на последующие и понял что серьезности нет это задачи в пару строк... и написал второй вариант...
0
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
30.10.2009, 17:27 #9
Ну, а я сразу понял весь примитивизм и не стал заморачиваться
0
Inadequate
Retired
7709 / 2542 / 670
Регистрация: 17.10.2009
Сообщений: 5,100
30.10.2009, 17:39 #10
2alexevt, возможно это связанно с тем что мало решаете...
0
elinka
16 / 16 / 0
Регистрация: 23.10.2010
Сообщений: 56
07.11.2010, 20:52 #11
знакомые задачи...))
0
07.11.2010, 20:52
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.11.2010, 20:52
Привет! Вот еще темы с решениями:

Процедуры. Нужно написать программу "Визитка", выводящую в начало распечатки результатов данные об авторе программы.
Нужно написать программу &quot;Визитка&quot;, выводящую в начало распечатки результатов...

Нужно создать программы
1.В заданому масиві обчислити середнє арифметичне елементів, що не менші числа...

Нужно сделать лёгкие программы
Нужно составить программу для вычесления в Pascal: a) периметра и площади...

Нужно прокоментировать две программы
Прокоментируйте пожалуйста если можете программы...Просто надо сделать по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru