Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 19.06.2022
Сообщений: 5

Написать код c использованием оператора foreach, while или repeat и с оператором присваивания

19.06.2022, 00:53. Показов 744. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите, пожалуйста, написать код на pascalABC.Net c использованием оператора foreach, while или repeat и с оператором присваивания.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
19.06.2022, 00:53
Ответы с готовыми решениями:

Переписать код с использованием цикла while или repeat/until
Как переобразоватъ етот код чтобы был изполъзован цыкл "While" or "Repeat ... Until"? Kод: procedure TForm2.Button1Click(Sender:...

Составить программу с использованием оператора выбора и с условным оператором
Составить программу с использованием оператора выбора и с условным оператором. Данные для формирования условия должны вводиться с...

Вычислить сумму ряда с заданной точностью с использованием оператора While и Repeat
Вычислить сумму ряда с точностью \alpha = 0.0001 с использованием оператора While и Repeat \sum_{n=1}^{\infty }\frac{(-1)^n}{(2n+1)}

7
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,060
19.06.2022, 11:51
Pascal
1
## foreach var c in 'Привет!' do c.Print
0
Модератор
10451 / 5741 / 3409
Регистрация: 17.08.2012
Сообщений: 17,474
19.06.2022, 12:42
JuriiMW, про оператор присваивания забыли.
Pascal
1
2
3
##
  var s := 'Привет!';
  foreach var c in s do c.Print
0
0 / 0 / 0
Регистрация: 19.06.2022
Сообщений: 5
19.06.2022, 14:25  [ТС]
Cyborg Drone спасибо, но мне нужен еще один оператор
0
Модератор
10451 / 5741 / 3409
Регистрация: 17.08.2012
Сообщений: 17,474
19.06.2022, 18:34
Какой? По заданию больше ничего не нужно.
0
 Аватар для XzzzX
405 / 280 / 120
Регистрация: 09.07.2021
Сообщений: 1,017
Записей в блоге: 1
19.06.2022, 19:14
Cyborg Drone, может быть имелось ввиду foreach + |while или repeat| + оператор присваивания. Тогда лучше бы ТС их сразу списком написал конечно
0
0 / 0 / 0
Регистрация: 19.06.2022
Сообщений: 5
19.06.2022, 19:23  [ТС]
XzzzX да, совершенно верно
0
 Аватар для XzzzX
405 / 280 / 120
Регистрация: 09.07.2021
Сообщений: 1,017
Записей в блоге: 1
19.06.2022, 20:03
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
begin
  var a: array of array of integer;
  SetLength(a, 5);
  for var i:= 0 to 4 do
    a[i]:= ArrRandom(10);
  
  foreach var item in a do begin
    var i:= 0;
    writeln('очередной массив:');
    while i<= 9 do begin
      print(item[i]);
      i+= 1;
    end;
    writeln;
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
19.06.2022, 20:03
Помогаю со студенческими работами здесь

С использованием оператора foreach вычислить произведение элементов массива
Здравствуйте! Подскажите как решить Определить одномерный массив А(10), с использованием оператора foreach вычислить произведение...

Организовать циклические процессы с использованием оператора цикла в сочетании с оператором условного перехода
Здравствуйте. Помогите пожайлуста составить программу на Турбопаскале. Задание: Организовать циклические процессы с использованием...

Вычислить суму ряда с точностью епсилон с использованием оператора с постусловием repeat - until
S=\frac{sin2x}{1*3}+\frac{2sin4x}{3*5}+\frac{3sin6x}{5*7}+... для х=0,8; \varepsilon ={10}^{-2}

Переписать код с использованием while, repeat
переведите в while i repeat var N, K, i, d: integer; begin write('Skolko detei? '); readln(K); write('skolko...

Задача на сумму определенных чисел с заданного диапазона с помощью оператора while или repeat
1.определить сумму модулей всех нечетных,отрицательных чисел от -99 до 99.


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru