программа на delphi
10-11 класс
|
Разработать програму суммы N чисел пока сумма не превысит значение M.
Не совсем понял смысл, но вот:
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся
Комментарий удален
числа в едит вывод в мемо. очень нужно живу без компа
Другие вопросы из категории
1) Если отец утром отправляется купаться, то с ним обязательно идут купаться мать и сын.
2) Если сын идет купаться, то его сестра Д1 отправляется вместе с ним.
3) Вторая дочь Д2 купается тогда и только тогда, когда купается мать
4) Каждое утро купается, по крайней мере, один из родителей.
Если в воскресенье утром купалась лишь одна из дочерей, то кто из членов семьи в это утро ходил на море?
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
доброй ночи, уважаемые программисты и успевающие в учебе студенты. помогите, пожалуйста, написать программу на C++ (в визуальной вкладке).
ВОТ ЗАДАНИЕ:
дано три переменные вещественного типа. если их значения упорядочены по возрастанию или убыванию, то удвоить их; иначе заменить значение каждой переменной на противоположное. вывести значения переменных.
я прикрепила несколько тестовых файлов (блокнот) в которых есть несколько вариантов решение этого задание (то есть коды программ), а вы скажите какой из них лучше всего подходит, а также скажите какие компоненты нужно кинуть на форму-дизайн (то есть какие кнопки, и что на них писать). в этих 3 файлов есть написанный код программы, нужно написать: на какие кнопки что писать и какой вариант решение больше подходит.
заранее огромное спасибо всем за помощь!!!
углов.
2)
Напишите пожалуйста программу (на языке BASIC) для определения подобия:
а) двух прямоугольников по двум смежным сторонам;
б) двух треугольников по трем сторонам.
от точки с координатами (10;-2)
функции F(x)=sin(x)+tg(x) на отрезке [А, В] при изменении аргумента в точках хi = А+iН, где Н – шаг. А=1, В=2, Н=0,125.
Листинг программы:
Program Tabulir;
Var x, y: real;
Begin x:=1;
While x≤2 do begin
y:=sin(x)+tg(x);
writeln (x:9:1, y:16:3);
x:=x+0,125;
End.