Информатика.10 класс задачи на циклы. ПАСКАЛЬ
1. Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 3. Программа получает на вход количество чисел в последовательности N, а затем сами числа. Программа должна вывести одно число — сумму чисел, кратных 3. Пример работы программы:
Входные данные: 3, 12, 25, 9
Выходные данные: 21.
2. Напишите программу, которая позволяет вычислить все значения функции y=2х +4 для ) 5;2( x с шагом 0,5. Программа должна вывести таблицу значений x,y.
3. Напишите программу, которая в последовательности натуральных чисел определяет количество всех чётных чисел, кратных 9. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0. Программа должна вывести одно число: количество всех чётных чисел, кратных 9.
Входные данные: 27,24,18,22,36,0
Выходные данные:2
4.Напишите программу, которая определяет количество нечетных цифр в числе N. Программа получает на вход число N (N описывается типом longint). Программа должна вывести одно число – количество нечетных цифр числа. Пример работы программы:
Входные данные: 12564
Выходные данные: 2
procedure TForm1.Button1Click(Sender: TObject);
var outfile: TextFile;
begin
AssignFile(outfile, 'outfile.txt')
;Rewrite(outfile);
writeln(outfile, 'Привет из Delphi');
writeln(outfile, 'Моя программа работает, и выводит '
+'данный текст, чтобы доказать это...');
writeln(outfile, '3. Треться строка');
writeln(outfile, '234 четвертая');
writeln(outfile, 'Пятая строка');
CloseFile(outfile);
end;
// вывод на экран точнее в мемо или лист бокс
procedure TForm1.Button2Click(Sender: TObject);
begin
// выводим в мемо
Memo1.Lines.LoadFromFile('outfile.txt');
// либо в лист бокс как тебе лучше
ListBox1.Items.LoadFromFile('outfile.txt');
end;
// кнопка для закрытия
procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;
// событие onClose
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
if MessageDlg('Вы точно хотите выйти?', mtConfirmation, mbOkCancel,0)= mrOk then begin
CloseAction:= caFree;
end
else begin
CloseAction:= caNone;
end;
end;
ЗДЕСЬ!
outfile.txt - это ваш файл(может создаваться автоматически
ЧТО НУЖНО СДЕЛАТЬ?
1. Закинуть на форму 3 кнопки
2. Закинуть ListBox или Memo
3. В событиях формы в инспекторе объектов (Инспетор Объектов/ События/ onClose) в onClose выбрать процедуру FormClose