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

Решить 2 способами: используя цикл с параметром и goto

26.09.2010, 16:26. Показов 1416. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть некоторая зависимость у(х). Х [0;0.2]. Задача: вывести для каждого х соответствующий у. Х с шагом 0,05. Как написано в заголовке- надо сделать 2 способам (цикл с параметром и goto). Другие типы циклов не предлагать. Спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
26.09.2010, 16:26
Ответы с готовыми решениями:

Вычислить сумму указанных чисел,решить задачу 3 способами, используя циклы с параметром, с предусловием, с постусловием
Вычислить сумму указанных чисел, вывести данные числа на экран, решить задачу 3 способами, используя циклы. с параметром, с предусловием, с...

Вычислить сумму ряда, используя цикл с параметром, используя цикл с предусловием
решить задачу двумя способами 1. используя цикл с параметром. 2 используя цикл с предусловием.

Цикл с параметром: решить функцию
Делаю лабораторную, тема "Цикл с параметром". Необходимо решить функцию y = f(x) с х нач и х кон. Private Sub Button3_Click(ByVal sender...

1
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
27.09.2010, 14:13
Лучший ответ Сообщение было отмечено prosto565 как решение

Решение

Цитата Сообщение от prosto565 Посмотреть сообщение
Другие типы циклов не предлагать.
А что будет? Расстреляют?
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
28
29
30
31
32
uses crt;
function F(x:real):real;
begin
F:=cos(x);
end;
var a,b,h,x,y:real;
    n,i:integer;
label 1;
begin
clrscr;
a:=0;
b:=0.2;
h:=0.05;
writeln('Цикл с параметром:');
n:=round((b-a)/h)+1;
for i:=1 to n do
 begin
  x:=a+(i-1)*h;
  y:=F(x);
  writeln('x=',x:4:2,'  y=',y:6:4);
 end;
writeln;
writeln('Цикл с меткой:');
x:=a-h;
1:begin
  x:=x+h;
  y:=F(x);
  writeln('x=',x:4:2,'  y=',y:6:4);
  if x<b then goto 1;
  end;
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
27.09.2010, 14:13
Помогаю со студенческими работами здесь

Используя Graph ABC, надо придумать задачу и решить ее, используя цикл Repeat
Добрый день, дорогие форумчане! Очень прошу вас ,помогите пожалуйста с заданием:в Pascal, используя GraphABC, необходимо придумать любую...

Решить задачу, используя 2 вида цикла: с параметром с предусловием
Решить задачу, используя 2 вида цикла: с параметром с предусловием

Вычислить сумму используя цикл с параметром.
Вычислить сумму используя цикл с параметром. Вывести значение функции на промежутке c шагом 0.5, используя цикл с предусловием. ...

Вычислить сумму, используя цикл с параметром
Найти сумму целых положительных нечетных чисел, меньших 150 и больших 25, кратных 5

Вычислить значение суммы, используя цикл с параметром
вычислить \sum_{i=1}^{50} 1/i^2 с использованием оператора for


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера 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. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru