|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
28.05.2012, 18:08 | #1 (permalink) |
Member
Регистрация: 06.02.2011
Сообщений: 580
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 2429
|
Помогите написать программу в Delphi Pascal
1. С помощью оператора while. С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100. 2. Вычислить и вывести на экран в виде таблицы значения функции, заданной с по¬мощью ряда Тейлора, на интервале от хнач до xкон с шагом dx с точностью е. |
28.05.2012, 18:08 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Интересующие вас ответы могут содержаться в этих темах Помогите пожалуйста написать программу "гусеница" на Turbo Pascal 7.0 Помогите написать программу в Delphi Написать программу. Delphi Помогите написать программу, Delphi Написать программу в Pascal ABC Пожалуйста, помогите написать программу Pascal Free |
28.05.2012, 20:09 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Паскаль |
|
29.05.2012, 12:11 | #4 (permalink) | |
Member
Регистрация: 22.01.2008
Сообщений: 553
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
|
Цитата:
k:integer; begin while s<=100 do begin write('Vvedite chislo '); readln(i); s:=s+i; k:=k+1; end; writeln('Summa= ',s:4:2); writeln('Kolichestvo= ',k); readln; end. |
|
29.05.2012, 18:13 | #5 (permalink) |
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
В delphi еще надо ?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|