1.Програма должна уметь вычислить заработок продавца Исходные данные: А Смысловое значение: Сума которою получает продавец с продажи 50 газет. Тип: Целые. Исходные данные: В Смысловое значение: Количество проданных газет несчитая первые 50. Тип: Целые. Результат S Смысловое значение: Заработок продавца Тип: Целые 2.S=50*A+B*1,2*A 3.Дивись малюнок 4. var a,b,s,i:real; begin Writeln('A= '); readln(a); Writeln('B='); readln(b); s:=50*a+b*1.2*a; writeln('Заработок продавца: ',s); end. 5.Запускай программу с разными исходными даннымы и проверяй результати её работы [ это уже сам :) ]
Procedure TForm1.Button4Click(Sender: TObject); var Buff: TNodePointer; x: TItem; i,j: Cardinal; begin i:=0; Buff:=Head; if(Buff^.Next=nil) then begin ShowMessage('В стеке один элемент!'); exit; end; while Buff <> nil do begin while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do begin pop(Buff^.Next,x); for j:=i to StringGrid1.RowCount-2 do StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1]; StringGrid1.RowCount:=StringGrid1.RowCount-1; end; Buff:=Buff^.Next; i:=i+1; end; end;
PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
program dz;
Var
a,b:real;
begin
a:= 1.14085;
b:= 2.1327;
If a>b then write (a);
If b>a then write (b);
end.