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

@Manhunt1 · Регистрация: 03.10.2009

Студворк — интернет-сервис помощи студентам

Здравствуйте! Мне нужно решить 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. Найти максимальный элемент массива, встречающийся более одного раза.

@кот Бегемот · 29.10.2009, 21:35

А учиться решать примитивные задачи не пробовал?

@Inadequate · 29.10.2009, 22:04

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, а вы то сами решите все здесь сможете решить...???

@Manhunt1 · 29.10.2009, 22:31 **[ТС]**

Сообщение от 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 задач чтобы меня окончательно застыдить)))

@Inadequate · 29.10.2009, 22:44

Сообщение от Manhunt1

самому не очень хочется разбираться

ну раз вам не хочется, мне то это зачем???

@кот Бегемот · 30.10.2009, 09:15

Сообщение от Inadequate

1:
2alexevt, а вы то сами решите все здесь сможете решить...???

Решу. И, по крайней мере, не стану решать первую задачу так, как вы. Там из трёх чисел надо найти чётные, а не искать в них цифры. Она для первоклассников.

@mamedovvms · 30.10.2009, 09:37

Спасибо большое))просто самому не очень хочется разбираться))после работы хочется отдохнуть))а не задачи решать))А без них до экзамена не допустят)Может напишите ещё 11 задач чтобы меня окончательно застыдить)))

Извините но многие люди на форуме такие задачи решали и не один раз, так что какой смысл им делать это если вы даже не заинтересованы попытаться решить.
С таким настроем вам во фриланс, у вас есть работа вы работаете и получаете за нее з/п, а для программистов программирование тоже работа так что их работу тоже надо оплачивать.

@Inadequate · 30.10.2009, 11:29

Сообщение от alexevt

И, по крайней мере, не стану решать первую задачу так, как вы

2alexevt, вы что не видели что там два варианта?

Сообщение от Inadequate

ну или так... но в этот вариант я не верю, это слишном элементарно...

просто сначала я думал что задача серьезней, поэтому начал писал ту задачу, потом посмотрел на последующие и понял что серьезности нет это задачи в пару строк... и написал второй вариант...

@кот Бегемот · 30.10.2009, 17:27

Ну, а я сразу понял весь примитивизм и не стал заморачиваться

@Inadequate · 30.10.2009, 17:39

2alexevt, возможно это связанно с тем что мало решаете...

@elinka · 07.11.2010, 20:52

знакомые задачи...))

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Manhunt1 0 / 0 / 0 Регистрация: 03.10.2009 Сообщений: 4

	Нужно написать программы 29.10.2009, 21:30. Показов 7437. Ответов 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. Дан массив размерностью NN, N - нечетное число. Вывести элементы массива, при обходе его по спирали, начиная с центра. 13. Для заданного целочисленного массива (NN) найти максимум среди сумм элементов диагоналей, параллельных главной диагонали. 14. Найти максимальный элемент массива, встречающийся более одного раза. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	29.10.2009, 21:35
	А учиться решать примитивные задачи не пробовал? 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	30.10.2009, 17:27
	Ну, а я сразу понял весь примитивизм и не стал заморачиваться 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	30.10.2009, 17:39
	2alexevt, возможно это связанно с тем что мало решаете... 0

@elinka 21 / 21 / 0 Регистрация: 23.10.2010 Сообщений: 56
	07.11.2010, 20:52
	знакомые задачи...)) 0