Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 29.10.2010
Сообщений: 8

задания с оператором цикла For

30.10.2010, 02:16. Показов 1482. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
№1
ВЫЧИСЛЕНИЕ ПРОИЗВЕДЕНИЯ ЭЛЕМЕНТОВ ПОСЛЕДОВАТЕЛЬНОСТИ

https://www.cyberforum.ru/cgi-bin/latex.cgi?p=\frac{1}{1}*\frac{3}{2}*\frac{5}{3}*...*\frac{2n-1}{n}

№2
а эта задача немного креативная на мой взгляд:
нужно написать программу проверки таблицы умножения,она тебя 10 раз будет спрашивать (3 на 5, 8 на 6 и тд.) а потом взависимости от правильности ответов программа оценит тебя.Оценка за 10 правильных ответов — "отлично", за 9 и 8 — "хорошо", за 7 и 6 — "удовлетворительно", за 6 и менее — "плохо".
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.10.2010, 02:16
Ответы с готовыми решениями:

Задачи c оператором цикла.
Продолжение задания во вложение

любым оператором цикла

задача с оператором цикла for
Здравствуйте, мне нужно с помощью оператора цикла for вычислить y, Но оператор if в теле цикла не использовать. Значение m и n вводить с...

2
Неадекват и грубиян
 Аватар для pryda
310 / 297 / 301
Регистрация: 22.02.2010
Сообщений: 647
30.10.2010, 03:45
Лучший ответ Сообщение было отмечено smoke-by как решение

Решение

1)
Pascal
1
2
3
4
5
6
7
8
9
10
var p:real;
     i,n:integer;
begin
writeln('Введите N');
readln(n);
p:=1;
for i:=1 to n do
p:=p*(i+2)/i;
writeln(p);
end.
1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
30.10.2010, 08:40
2.
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
25
26
27
uses crt;
var a,b,c,d,i,k:byte;
begin
randomize;
clrscr;
writeln('Проверка знания таблицы умножения.');
writeln('Вам будет дано 10 пар чисел.');
k:=0;
for i:=1 to 10 do
 begin
  a:=random(8)+2;//интервал сами подберите
  b:=random(8)+2;
  c:=a*b;
  writeln(a,'*',b,'=');
  write('ответ=');
  readln(d);
  if d=c then k:=k+1;
 end;
writeln('Правильных ответов ',k);
case k of
10 :write('Оценка отлично');
9,8:write('Оценка хорошо');
7,6:write('Оценка удовлетворительно');
else write('Оценка плохо');
end;
readln
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
30.10.2010, 08:40
Помогаю со студенческими работами здесь

Метод с оператором цикла
Написал метод для задачи, но он мне кажется не правильно работает. Ввожу 3 и 1 , в ответе получаю 1,если другое, то NaN. public double...

Задача с оператором цикла while
Помогите написать код к задаче: Написать программу, которая вычисляет сумму и среднее арифметическое элементов вектора-строки B=(18 32...

Блок-схема с оператором цикла.
Дана задача: Дан одномерный массив В элементы которого формулируются по формуле Bi=i sin i,где i-номер элемента в массиве В .Подсчитать...

Написать программу с оператором цикла while
Написать программу. с оператором цикла while; с оператором цикла for; с оператором цикла do while

Протабулировать функцию оператором цикла For
В общем данную функцию необходимо было протабулировать тремя способами while и repeat я уже сделал остался цикл for (не могу догнать как...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru