Вот блок-схема алгоритма выполнения домашнего задания по математике.
*Однако, обрати внимание!
На этапе проверки решения в тетради, может образоваться (РЕКУРСИВНЫЙ алгоритм т.е. Рекурсия)
Неправильный ответ это второй под буквой А
var a,c: real;
begin
write ('Введите стоимость 1 кг яблок: ');
readln (c);
a := 0.6;
while a <= 7.2 do
begin
writeln(a:3,' кг яблок стоит ', a*c,' руб.');
a := a + 0.6
end
end.
CPU (Central Processing Unit) - Центральный процессор
RAM (Random Access Memory) - Оперативная память
HDD (Hard Disk Drive) - Жесткий диск
Video Card - Видеокарта
Sound Card - Звуковая карта
Вроде бы пары надо было составить.
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button1Click(Sender: TObject);
var
k,i,j:integer;
begin
k:=10;
for i:=1 to 90 do begin
if (k mod 7)=0 then begin
j:=j+1;
stringgrid1.cells[1,i]:=inttostr(k);
end;
k:=k+1;
end;
label1.Caption:=inttostr(j);
end;